Perl 初心者コーナー Part23

[0095 nobodyさん 03/05/18 00:37 ID:???]

>>77
@dat0 = @dat1 = ();
foreach(0 .. 999999){ $dat0[$_] = $_; }
foreach(0 .. 999999){ $dat1[$_] = splice(@dat0,rand($#dat0),1); }
ではだめ？