Re: Fibonacci Sequence

Perhaps not especially obscure, but:

$"++,grep{$.=$"+$^,print$.,$/;$^=$",$"=$.}$[..0x10
[download]

Update: A variation, less obfuscated, but more golfy if you have a vaguely modern version of Perl...

#                1         2         3
#       12345678901234567890123456789012345678
perl -E'$a=1;map{$.=$a+$b;$b=$a;say$a=$.}0..71'
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name

Comment on Re: Fibonacci Sequence Select or Download Code

Replies are listed 'Best First'.
Re^2: Fibonacci Sequence by skunix (Novice) on Feb 27, 2013 at 14:59 UTC
Today I learned, $/ :D	[reply]
Re^3: Fibonacci Sequence by skunix (Novice) on Feb 27, 2013 at 15:21 UTC
Still not as short as yours but here is mine revised: `$~=$^++;_:$~^=$^ ^=$~^=$^;$_.=($~=$~+$^.$/);($~<$$)?goto _:print`	[reply] [d/l]
Re^4: Fibonacci Sequence by Anonymous Monk on Mar 05, 2013 at 11:44 UTC
Loopy version `for($\=1;$/<1<<7;$\+=$/,$/=$\-$/){print $"}`	[reply] [d/l]
Re^2: Fibonacci Sequence by hdb (Monsignor) on Mar 05, 2013 at 12:01 UTC
Loopy short version: `for(++$\;$/<$$;$/=($\+=$/)-$/){print $"}` Now can someone find a similar short expression for oeis.org/A000040 please?	[reply] [d/l]
Re^3: Fibonacci Sequence by tobyink (Canon) on Mar 05, 2013 at 14:48 UTC
`$"++;_:while(++$"){$"%$_\|\|next(_)for 2..$"-1;print$",$/}` [download] Update: trizen has pointed out that this is more efficient: `$"++;_:while(++$"){$"%$_\|\|next(_)for 2..sqrt$";print$",$/}` [download] ... but I don't like the two extra keystrokes required. Meanwhile, this solution gives you a minor efficiency boost without any extra nasty keystroke things... `$"++;_:while(++$"){$"%$_\|\|next(_)for 2..$"/2;print$",$/}` [download] `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l] [select]