Secret Number

Score: 87.00 (pass)

#!/usr/bin/perl -l
@f=split(//,pop);while(@f){print@f;$r=shift@f;map{$s=$_+$r;$r=$_;$_=$s>9?$s-9:$s}@f}

Score: 97.00 (pass)

#!/usr/bin/perl -l
print@f=split(//,pop);while($#f){$r=shift@f;for(@f){$t=$r+$_;$r=$_;$_=$t-int($t/10)*9}print@f}

Score: 122.00 (pass)

#!/usr/bin/perl
$"="";@f=split(//,$ARGV[0]);$l="@f\n";while($#f){$r=shift(@f);for(@f){$t=$r+$_;$r=$_;$_=$t-int($t/10)*9}$l.="@f\n"}print$l