in reply to Golf: Movie style code cracker.

122, but the true "movie version" is longer 

#        123456789_123456789_123456789_123456789_123456789_123456789_1
+23456789_123456789_123456789_123456789_123456789_123456789_12
perl5.10 -E'$l=pop;sub r(){int rand 10}@x=map r,1..$l;while(@h<@x){@g=
+map$h[$_]//r,0..$l-1;push@h,$g[@h]if$g[@h]==$x[@h];say@g}' 16

[download]

Movie Version: clear line and slowdown (approx 3 min)

perl5.10 -E'$l=pop;sub r(){int rand 10}@x=map r,1..$l;$|=1;print@x;whi
+le(@h<@x){@g=map$h[$_]//r,0..$l-1;push@h,$g[@h]if$g[@h]==$x[@h]&&"111
+1"==r.r.r.r;print"\b"x$l," "x$l,"\b"x$l,@g}say' 16

[download]

Update: make movie version spin wheels more to break 2.5min bonus point time.

Good Day,
    Dean

Replies are listed 'Best First'.
Re^2: Golf: Movie style code cracker.
by mr_mischief (Monsignor) on Sep 12, 2008 at 17:46 UTC
    I know BrowserUK stated "including all switches and other CLI syntax", but I'm not sure that includes the arguments to the program itself and the space before it. Those are constants other than the length of the argument. Perhaps we need that clarified.

    If that really counts we can trim one character just by making it 6 or 8 digits instead of 10 or 16. If not, you're down to 119.

    While we're clarifying minor rule variations, mine doesn't use any command-line switches to perl, so I was counting on it being in a file and not counting the ' -e'. Do I then need to count the '#!' or the name of the file? If so, just run perl and paste my solution into STDIN. ;-) Do I then need to count the ctrl-D for end of file?

[reply]
Re^2: Golf: Movie style code cracker.
by BrowserUk (Patriarch) on Sep 14, 2008 at 03:40 UTC

    It took me a while to work out how to speed it up so I could check it would produce all the digits 0..9. I love the use of statistics to control the matching speed. '1111'==r.r.r.r is soo cool.

    You can gain a couple of strokes by dropping the prototype on the sub.

    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]

In Section Meditations