Perl ランダム ０と１ かぶり

質問

いつもお世話になっております
ご教示お願い致します。

□←０
■←１

とします。
この０と１をランダムに５こでるようにします。
↓
例１）
□■■□■
例２）
■■□□□

このようにバラバラに出現させることができました。
しかし、
極稀になのですが、
□□□□□や■■■■■
とすべてかぶることがあります。

この■（１）はすべてかぶってもいいのですが、
□（０）はかぶらないでほしいのです

まずそのソースが下記・・・↓
srand(time()^($$ + ($$<<15)));
our $val1 = int(rand(2));
our $val2 = int(rand(2));
our $val3 = int(rand(2));
our $val4 = int(rand(2));
our $val5 = int(rand(2));

０と１が必ずバラバラになるようにするにはどのように
するのでしょう？

回答No.2

superside0 · ベストアンサー

□or■の２つの状態を　1bit(２進数)に割り当てると　それが５つなので、
5bitのデータで表せることになりまますので、
rand(2)を5回実行すのではなく
特定のものを除外した5bitデータを１度のrandで生成すれば　簡単だと思います。

つまり、５つの□or■を、10進数で示すと
□□□□□=0
□□□□■=1
□□□■□=2
□□□■■=3
...
■■■■■=31
の0～31となりますのが
このうち　□□□□□=0　　のみを除外したいなら、
１～31をrandで生成すればよいことになります。

これは
$val = int(rand(31)) + 1;
(rand(31)で0～30の範囲の返り値をもらって、それに＋１）
ですので、
あとは、この値を、2進数に分解して各bitが0なら□, 1なら■とすればよいかと。
たとえば、
　 1→00001 →□□□□■
...
　25→11001→■■□□■
...
　31→11111→■■■■■
という形です。

10進数から５つの0or1への変換は
$bin = sprintf ("%05b", $val);
で5桁の２進数の文字列にしてから、１文字づつ取り出せばよいかと。

お礼

ありがとうございます！！
実行できました。
０がかぶることなくできるようになり助かりました！

文字はsubstrで１文字ずつ取り除きました。

回答No.1

kichi8000

かぶらなくなるまで「やり直しループ」させる

お礼

ご回答ありがとうございます・・・

IFで全てが０だったとき～するという処理は試してみたのですが、
そこにどうループを埋め込めばいいのかわからないです・・・