fibo's 66 chars

$a=shift;@b=(0,1);push@b,$b[-2]+$b[-1]while$#b<$a;print"$b[-2]\n";
[download]

Comment on fibo's 66 chars Download Code

Replies are listed 'Best First'.
Re: fibo's 66 chars by TimToady (Parson) on May 28, 2009 at 04:23 UTC
Not much point in golfing fibonacci in Perl 6: `0,1...&[+]` [download] And it's almost readable...	[reply] [d/l]
Re^2: fibo's 66 chars by Anonymous Monk on May 28, 2009 at 04:40 UTC
Really?! You're making that up! :D	[reply]
Re: fibo's 66 chars by pepik_knize (Scribe) on May 26, 2009 at 05:28 UTC
I agree, very nice. If you're golfing this, I have a few reductions for you: You can save yourself a couple of characters by using `pop` instead of `shift`. Also, if you use `-l`, you can get rid of the quotes and newline: `$a=pop;@b=(0,1);push@b,$b[-2]+$b[-1]while$#b<$a;print$b[-2]` Then, you can cut down the `while$#b<$a` by using `for(2..$a)`: `$a=pop;@b=(0,1);push@b,$b[-2]+$b[-1]for(2..$a);print$b[-2]` Of all the causes that conspire to blind Man's erring judgment, and misguide the mind, What the weak head with strongest bias rules, Is pride, the never-failing vice of fools. -- Pope.	[reply] [d/l] [select]
Re^2: fibo's 66 chars by Roy Johnson (Monsignor) on May 27, 2009 at 21:17 UTC
Since you only use the parameter once, it's cheaper to just ~~reference it as `$ARGV[0]`~~ pop it inline rather than assign it to anything. `@b=(0,1);push@b,$b[-2]+$b[-1]for 2..pop;print$b[-2]` [download] You can save fourteen more strokes (and, irrelevantly, memory) by not using an array and using convoluted scalar assignment with a variable that is pre-initialized: `$b=1;$?=($b+=$?)-$?for 2..pop;print$?` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l] [select]
Re: fibo's 66 chars by CountZero (Bishop) on May 24, 2009 at 15:04 UTC
Very nice! ++ And for a change, without using recursion. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply]
Re: fibo's 66 chars by ambrus (Abbot) on May 27, 2009 at 19:31 UTC
Here are some other threads about fibonacci numbers (definitely not all). Thread Fibonacci numbers (again) has some short programs in perl and dc. Thread (OT) Fibonacci numbers in Ruby - final shot - 24 chars golfs fibonacci numbers in ruby, Thread Fibonacci Numbers has lots of different programs in perl. Thread Fibonacci golf with one state variable has some more variants. And there's this very thread too.	[reply]
Re: fibo's 66 chars by Anonymous Monk on May 27, 2009 at 16:06 UTC
Or, without creating a large list: `@b=(0,1);@b=($b[1],$b[0]+$b[1])for(2..pop);print$b[1];` [download] (and there is no reason to assign $a) 20090727 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips	[reply] [d/l]
Re^2: fibo's 66 chars by pepik_knize (Scribe) on May 27, 2009 at 20:59 UTC
I starting going down that path too, but noticed that it fails for 1. `$ perl -e'@b=(0,1);@b=($b[1],$b[0]+$b[1])for(2..pop);print$b[1]' 1 1` [download] Of all the causes that conspire to blind Man's erring judgment, and misguide the mind, What the weak head with strongest bias rules, Is pride, the never-failing vice of fools. -- Pope.	[reply] [d/l]

Back to Obfuscated Code