Comments on: Fibonacci Series in One Line of Perl http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/ They say if you have a 1000 monkeys at a 1000 keyboards, eventually they will produce the works of Shakespeare. This is what happens when you put 3Monkeys at one keyboard... Wed, 20 Aug 2008 08:53:39 +0000 http://wordpress.org/?v=2.3.3 By: Why people dislike Perl? « Fabio Kung http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1917 Why people dislike Perl? « Fabio Kung Thu, 10 Apr 2008 03:07:57 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1917 [...] OMG: Fibonacci series in one line of perl. [...] […] OMG: Fibonacci series in one line of perl. […]

]]> By: C Williams http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1871 C Williams Sun, 09 Mar 2008 19:52:55 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1871 print reduce (lambda x,y: (x[1],x[0]+x[1], x[2]+[x[1]]), xrange(10), (0,1,[]))[2] python 1 liner... 74 chars print reduce (lambda x,y: (x[1],x[0]+x[1], x[2]+[x[1]]), xrange(10), (0,1,[]))[2]

python 1 liner… 74 chars

]]> By: Brian Szymanski http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1838 Brian Szymanski Thu, 20 Dec 2007 00:25:57 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1838 I thought the contest was for 1,1,2,3...and whipped up this: perl -e '$a=1;$a+=$b,print$b=$a-$b,$/for(A..T)' which at 38 chars I think is a winner in the perl, starting at F(1)=1 category... unfortunately adapting it to 0,1,1... bumps it up 11 characters to 49 chars: perl -e 'print 0,$/;$a=1;$a+=$b,print$b=$a-$b,$/for(A..T)' Of course I just now see that there is a perlmonks thread about this which probably kicks my tail... I thought the contest was for 1,1,2,3…and whipped up this:
perl -e ‘$a=1;$a+=$b,print$b=$a-$b,$/for(A..T)’
which at 38 chars I think is a winner in the perl, starting at F(1)=1 category…

unfortunately adapting it to 0,1,1… bumps it up 11 characters to 49 chars:
perl -e ‘print 0,$/;$a=1;$a+=$b,print$b=$a-$b,$/for(A..T)’

Of course I just now see that there is a perlmonks thread about this which probably kicks my tail…

]]> By: Angelbob’s Musings on Programming » Two Mixed Blessings: “How Small Can You Write It?” and “Not Invented Here” http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1813 Angelbob’s Musings on Programming » Two Mixed Blessings: “How Small Can You Write It?” and “Not Invented Here” Tue, 04 Dec 2007 20:59:03 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1813 [...] probably seen various folks talking about how fewer lines of code are better. Every language partisan wants to prove that their language is more expressive than [...] […] probably seen various folks talking about how fewer lines of code are better. Every language partisan wants to prove that their language is more expressive than […]

]]> By: Vidul http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1793 Vidul Sun, 30 Sep 2007 09:20:24 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1793 http://www.vidul.com/articles/2007/07/19/fibonacci-formula #!/usr/bin/env ruby #21 chars x=1;loop{p$.+=x=$.-x} #!/usr/bin/env perl #27 chars print$}+=$.=$}-$.||1while.1 http://www.vidul.com/articles/2007/07/19/fibonacci-formula

#!/usr/bin/env ruby #21 chars
x=1;loop{p$.+=x=$.-x}

#!/usr/bin/env perl #27 chars
print$}+=$.=$}-$.||1while.1

]]> By: Why people dislike Perl? | Fabio Kung http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1792 Why people dislike Perl? | Fabio Kung Thu, 27 Sep 2007 15:51:35 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1792 [...] OMG: Fibonacci series in one line of perl. [...] […] OMG: Fibonacci series in one line of perl. […]

]]> By: Beth Tibbitts http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1788 Beth Tibbitts Sat, 18 Aug 2007 21:38:16 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1788 OK, i got my APL wrong... apologies. that's the cumulative sum, not fibonacci... OK, i got my APL wrong… apologies. that’s the cumulative sum, not fibonacci…

]]> By: Beth Tibbitts http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1787 Beth Tibbitts Fri, 17 Aug 2007 20:06:17 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1787 I'm very rusty on my APL but: APL: +\iota 20 where "iota" is really one character, the "iota" character I’m very rusty on my APL but:
APL:
+\iota 20

where “iota” is really one character, the “iota” character

]]> By: 3Monkeys http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1723 3Monkeys Mon, 23 Jul 2007 02:27:08 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1723 @Jim, I'm impressed by the terseness of the Fortran solution. No way COBOL could do that :) @Jim, I’m impressed by the terseness of the Fortran solution. No way COBOL could do that :)

]]> By: Jim http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1722 Jim Mon, 23 Jul 2007 01:33:28 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1722 Believe it or not, Fortran 77 is fairly respectable on this. 41 characters, counting one byte for each end of line image i=0 j=1 do1n=1,20 print*,i k=i+j i=j 1j=k Believe it or not, Fortran 77 is fairly respectable on this. 41 characters, counting one byte for each end of line image

i=0
j=1
do1n=1,20
print*,i
k=i+j
i=j
1j=k

]]>