in reply to Adding 2 + 2
(undef$a)and(undef$b)or++$a;while(
$a!=2){$a++if($b);$b++if(not$b);}
$b++?$d=$a.'+'.$b.'=':die;map{$c+=
$_;}($a,$b);$_=$d.$c."\n";print;
|
---|
In Section
Cool Uses for Perl
in reply to Adding 2 + 2
|
---|