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... Thu, 11 Mar 2010 04:20:34 -0700 http://wordpress.org/?v=2.8.4 hourly 1 By: Lory Jalovel http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/comment-page-1/#comment-2236 Lory Jalovel Mon, 01 Mar 2010 14:28:25 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-2236 I came across your post when I was looking for information on kitchen tools. Although it isn't really what I was interested in, I liked reading your post. Will bookmark to come back and read at a later date. Funny how Msn works... I came across your post when I was looking for information on kitchen tools. Although it isn’t really what I was interested in, I liked reading your post. Will bookmark to come back and read at a later date. Funny how Msn works…

]]> By: credit cards offers uk http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/comment-page-1/#comment-2208 credit cards offers uk Fri, 15 Jan 2010 17:30:27 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-2208 Great Blog I love the lay out and the color scheme is it possible to get a copy of your theme? Please send me an email at JoanBm3@gmail.com Great Blog I love the lay out and the color scheme is it possible to get a copy of your theme? Please send me an email at JoanBm3@gmail.com

]]> By: maddox_laurence http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/comment-page-1/#comment-2160 maddox_laurence Fri, 16 Oct 2009 01:52:06 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-2160 I think 0 is technically the 0th term...at least, that's how I've always had to implement the sequence. Anyways...Java: class Fibonacci20{ static{ for(int a=0,b=1,c=20;--c>0;b=a+(a=b)) System.out.println(b); } } I think 0 is technically the 0th term…at least, that’s how I’ve always had to implement the sequence. Anyways…Java:

class Fibonacci20{
static{
for(int a=0,b=1,c=20;–c>0;b=a+(a=b))
System.out.println(b);
}
}

]]> By: Mark Aufflick http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/comment-page-1/#comment-1969 Mark Aufflick Sun, 05 Oct 2008 09:38:28 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1969 Relaxing my no-explicit asssignment rule, I can get the solution down to 37 characters. It's tough to fit into a one-liner though--since both quotes are used, shell escaping would be required: $_="$':".($'+$`||1),print$`while x./:/ Relaxing my no-explicit asssignment rule, I can get the solution down to 37 characters. It’s tough to fit into a one-liner though–since both quotes are used, shell escaping would be required:

$_=”$’:”.($’+$`||1),print$`while x./:/

]]> By: Mark Aufflick http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/comment-page-1/#comment-1968 Mark Aufflick Sun, 05 Oct 2008 07:46:20 +0000 http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/#comment-1968 I just blogged the following: perl -le 'print$2while s/(\d*):?(\d*)/($1+$2||1).":$1"/e' |head -10 Notice that it contains no explicit assignment operations nor any explicit initialisation. It also (unlike some of the others above, notably the 27 character implementation) contains both of the leading 1s in the sequence. http://mark.aufflick.com/blog/2008/10/05/fibonacci-perl-golf I just blogged the following:

perl -le ‘print$2while s/(\d*):?(\d*)/($1+$2||1).”:$1″/e’ |head -10

Notice that it contains no explicit assignment operations nor any explicit initialisation. It also (unlike some of the others above, notably the 27 character implementation) contains both of the leading 1s in the sequence.

http://mark.aufflick.com/blog/2008/10/05/fibonacci-perl-golf

]]> By: Why people dislike Perl? « Fabio Kung http://3monkeyweb.com/3monkeys/2007/07/12/fibonacci-series-in-one-line-of-perl/comment-page-1/#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-page-1/#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-page-1/#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-page-1/#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-page-1/#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

]]>