for$i(0..99){$y=0;($i%$_<1&&$y<$a[$_])?$y=$a[$_]:0 for 1..99;push@a,$y+$i-9*int$i/10}push@a,19;print$a[$_],$/for<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page