Help for this page

Select Code to Download

Select or download this

perl -le '@l=sort{rand$_<=>rand$_}(1..10);print for@l[0..2]'

Select or download this

#!/usr/bin/perl

...
 7477: 4 2 3 1
14853: 4 3 1 2
15032: 4 3 2 1