Re^2: Golf: Pandigital puzzle

Let's tweak that down to 72:

#!perl -l
$N=pop;print 1/$N*grep{keys%{{map{int
rand 10}1..$ARGV[0]*2}}>9}1..$N
[download]

Comment on Re^2: Golf: Pandigital puzzle Download Code

Replies are listed 'Best First'.

Re^3: Golf: Pandigital puzzle
by dragonchild (Archbishop) on Nov 19, 2004 at 14:18 UTC

print 1/($N=pop)*grep{keys%{{map{int
rand 10}1..$ARGV[0]*2}}>9}1..$N
[download]

Update: If I can change the order of the parameters, I can get to 70.

$#a=2*pop;print 1/($N=pop)*grep{keys%{{map{int rand 10}@a}}>9}1..$N
[download]

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

[reply]
[d/l]
[select]