Secret Number

Score: 82.00 (pass)

#!perl -l
for(@c=split'',pop;@c;){print@c;@c=map{$_=$c[$_]+$c[$_+1];$_-=9*($_>9)}0..@c-2}

Score: 91.00 (pass)

#!perl
for(@c=split'',$ARGV[0];@c>0;){print@c,'
';@c=map{$_=$c[$_]+$c[$_+1];$_-=9*($_>9)}0..@c-2;}