ズンズンズンズンドコが並んだらキ・ヨ・シ！と表示

kiyoshi.fsx

let r = System.Random()
let expected = [|0; 0; 0; 0; 1|]

let kiyoshi() =
    Seq.initInfinite (fun _ -> r.Next 2) |> Seq.windowed 5
    |> Seq.takeWhile ((<>) expected)
    |> Seq.map Array.head
    |> Seq.append <| expected
    |> Seq.iter (Array.get [|"ズン"; "ドコ"|] >> printf "%s")
    printfn "キ・ヨ・シ！"