Re: Adding numbers

Golf!

sub add($$){
    my($a,$b,$s)=@_;
    s/^/0 x(length($a^$b)-length)/efor$a,$b;
    $s.=0,map$s++,1..$_+$&*$b=~//for$a=~/./g;
    $s
}
[download]

Replies are listed 'Best First'.
Re: Re: Adding numbers by innominate (Beadle) on Aug 31, 2002 at 23:59 UTC
Hehe, thanks mtve. But I was going for speed over size. 8^) Oh yah, Touché! `sub add(){ ($,,$:)=@_; s//0 x(length($,^$:)-length)/efor$,,$:; $^.=0,map$^++,1..$_+$&*$:=~//for$,=~?.?g; $^ }` [download] -inno	[reply] [d/l]