Re: Golfing a fibonacci number generator

Well, I'm not exactly addressing your math, but I can shave a couple of characters off your map:

die map{int((($;=((1+($^=5**.5))/2)**$_)-((-1**$_)/$;))/$^).$/}0..9
[download]

By changing the map to use the coderef syntax, you eliminate the need for the comma between the operation and the operands. You can also get rid of that last semicolon in the map block, as it is uneeded.

My personal fibonacci generator is:

@@=(1,1);push(@@,$@[0]+$@[1]),print(shift@@)for(1..20)
[download]

Ivan Heffner
Sr. Software Engineer, DAS Lead
WhitePages.com, Inc.

Comment on Re: Golfing a fibonacci number generator Select or Download Code

Replies are listed 'Best First'.
Re^2: Golfing a fibonacci number generator by ikegami (Patriarch) on Nov 03, 2006 at 23:16 UTC
`@@=(1,1);push(@@,$@[0]+$@[1]),print(shift@@)for(1..20)` condenses to `@@=(1,1);$@[2]=$@[0]+$@[1],print shift@@for 1..20` For an extra character, you can print all 20 genereated fibs, instead of just 18: `@@=(1,1);push@@,$@[-2]+$@[-1]for 1..20;print for@@`	[reply] [d/l] [select]
Re^3: Golfing a fibonacci number generator by cLive ;-) (Prior) on Nov 03, 2006 at 23:50 UTC
let's chop another 6 chars off that: `@x=(1);push@x,$x[-2]+$x[-1]for 1..21;print@x`	[reply] [d/l]
Re^4: Golfing a fibonacci number generator by ikegami (Patriarch) on Nov 04, 2006 at 00:03 UTC
All your numbers are all concatened together, even with `perl -l`. I avoided that. Anyway, found something shorter still (42): `print$@[@@]=$@[-1]+$@[-2]for(@@=(1,0))..21` The following are my different solutions, all generating the same output under `perl -l` (except where noted): `sub{$_[2]=$_[0]+$_[1],print shift for 1..20}->(1,1) #51 @@=(1,1);push@@,$@[-2]+$@[-1]for 1..18;print for@@ #50 @@=(1,1);$@[2]=$@[0]+$@[1],print shift@@for 1..20 #49 @@=(1,0);print$@[@@]=$@[-1]+$@[-2]for 1..20 #43 print$@[@@]=$@[-1]+$@[-2]for(@@=(1,0))..21 #42 Missing first "1": print$@[@@]=$@[-1]+$@[-2]for(@@=1)..19 #38 Loops forever: @@=(1,0);print$@[@@]=$_+$@[-1]for@@ #35 Missing first "1" and loops forever: @@=1;print$@[@@]=$_+$@[-2]for@@ #31` [download]	[reply] [d/l] [select]
Re^2: Golfing a fibonacci number generator by Anonymous Monk on Nov 03, 2006 at 21:40 UTC
//Me again// Wow, I like that one alot :) I think that might be the best one I've seen. I figured most people would try to go for the 'add the previous to the next' method, so I put the phi/-phi formula to use. Thanks for the help! It's getting close to the lowest it can get, I'd think, because of the necessary bulk of the forumla itself. 67 characters, not bad! :D I appreciate the feedback.	[reply]
Re^3: Golfing a fibonacci number generator by jdalbec (Deacon) on Nov 04, 2006 at 00:36 UTC
Since the `(-phi)^(-n)` term goes to zero quickly, it's enough to round `(phi^n)/sqrt(5)`to the nearest integer. 49 characters: `die map{int(((1+($^=5.5))/2)$_/$^+.5).$/}0..9`	[reply] [d/l] [select]