in reply to Re^2: (Golf) Master lock combinations
in thread (Golf) Master lock combinations

A further minor refinement, that exploits the "-" seperator: 

#0        1         2         3         4         5         6       
#123456789012345678901234567890123456789012345678901234567890123456789

for$i(@x=map$_*4+$_[0]%4,0..9){map{print$i,2-$_%40,"-$_[0]\n"}@x}

[download]

The other solutions posted that use map to construct the list, rather than grep an existing list, is a nice touch.

Replies are listed 'Best First'.
Re^4: (Golf) Master lock combinations
by themage (Friar) on Jun 26, 2005 at 16:57 UTC
    sorry ppl,

    For now I can't do better than hv.

    This example works fine with 19 (and any other number which module is 3, but don't work with 0, 1 or 2 - 17,18 or 20 as last part).

    Is show 202-20 when it should print 20-38-20, for example.

[reply]

In Section Obfuscated Code