in reply to Re: Golf: Movie style code cracker.
in thread Golf: Movie style code cracker.

Changes from your 2008-09-12, 18:27 UTC update, plus find $m the way I did, plus a few other little changes...108 strokes. 

$t.=0,$c.=int rand 10 for 1..pop;($m)="$t-$c"=~/^(.*).*-\1/,(substr$t,
+length$m,1)++,print"$t\n"until$t eq$c

[download]

I wish I'd thought of using pop instead of shift.

In Section Meditations