#!/usr/bin/perl -l $N=pop;print 1/$N*grep{my@a;$a[rand 10]++for 1..$ARGV[0];9<grep$_,@a}1 +..$N [download]
In reply to Re^3: Golf: Pandigital puzzle by itub in thread Golf: Pandigital puzzle by itub