in reply to Re^2: Golf: Pandigital puzzle
in thread Golf: Pandigital puzzle

You can still squeeze three more characters:
(I played with the option of wasting half the random numbers, but it seems it's not really useful...)

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