proc random_get {} {
return [expr int(rand()*2)]
}
proc is_zundoko { val } {
set chk [expr ($val % 32)]
if {$chk == 30} { # 0b11110
return 1
} else {
return 0
}
}
set array(0) "ドコ"
set array(1) "ズン"
set idx 0
set chain ""
set val 0
while {$idx < 100} {
set rnd [random_get]
append chain $rnd
set val [expr ($val*2)]
if { $rnd == 0 } {
puts $array(0)
# no increment
} else {
puts $array(1)
incr val 1
}
set judge [is_zundoko $val]
if { $judge == 1 } {
puts "キヨシ!"
break;
}
incr idx 1
set val [expr $val % 32]
}
#puts $val
#puts [expr $val % 32]
cHJvYyByYW5kb21fZ2V0IHt9IHsKICByZXR1cm4gW2V4cHIgaW50KHJhbmQoKSoyKV0KfQoKcHJvYyBpc196dW5kb2tvIHsgdmFsIH0gewogIHNldCBjaGsgW2V4cHIgKCR2YWwgJSAzMildCiAgaWYgeyRjaGsgPT0gMzB9IHsgIyAwYjExMTEwIAogICAgcmV0dXJuIDEKICB9IGVsc2UgewogICAgcmV0dXJuIDAKICB9Cn0KCnNldCBhcnJheSgwKSAi44OJ44KzIgpzZXQgYXJyYXkoMSkgIuOCuuODsyIKCnNldCBpZHggMAoKc2V0IGNoYWluICIiCnNldCB2YWwgMAp3aGlsZSB7JGlkeCA8IDEwMH0gewogIHNldCBybmQgW3JhbmRvbV9nZXRdCiAgYXBwZW5kIGNoYWluICRybmQKICBzZXQgdmFsIFtleHByICgkdmFsKjIpXQogIGlmIHsgJHJuZCA9PSAwIH0gewogICAgcHV0cyAkYXJyYXkoMCkKICAgICMgbm8gaW5jcmVtZW50CiAgfSBlbHNlIHsKICAgIHB1dHMgJGFycmF5KDEpCiAgICBpbmNyIHZhbCAxCiAgfQogIHNldCBqdWRnZSBbaXNfenVuZG9rbyAkdmFsXQogIGlmIHsgJGp1ZGdlID09IDEgfSB7CiAgICBwdXRzICLjgq3jg6jjgrchIgogICAgYnJlYWs7CiAgfQogIGluY3IgaWR4IDEKICBzZXQgdmFsIFtleHByICR2YWwgJSAzMl0KfQoKI3B1dHMgJHZhbAojcHV0cyBbZXhwciAkdmFsICUgMzJd