Name: Anonymous 2007-11-27 20:52
How would I do this in lisp?
sub test { return (1, 2, 3) }
my ($a, $b, $c) = test();
sub test { return (1, 2, 3) }
my ($a, $b, $c) = test();
sub factor{my@f,$n=pop;map{$n/=$_,push@f,$_ until$n%$_}2..$n/2;@f?@f:$n}
print"prime factors of $_: @{[factor$_]}\n"for@ARGV