Back to task

99 symbols perl
Fri Feb 27 10:10:02 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