Back to task

100 symbols perl
Fri Feb 27 10:09:16 2015 bluebear94
#!/usr/bin/perl -n
@m=(0);for$i(1..$_){$n=9;for$j(1..$i**.5){$p=$m[$i-$j*$j];$n=$p<$n?$p:$n}$m[$i]=$n+1}print $m[$#m]


Leave a comment

Parsed as Markdown

Login to leave a comment