重ならない乱数列を作るには…。 とてもめんどくさいですね。 もっと軽くできないのかしらん？ #!/usr/bin/perl my $max = 2048; # 0 ~ 2047の乱数 my $ro = 200; # 生成する乱数の数 my @num; srand(12345); # seed for(my $i = 0; $i<$ro;$i++){ my $a = in…