http://d.hatena.ne.jp/teramonagi/20141215/1418648845 を参考にぞいを数えてみた

gistfile1.fs

open System
let dic = [ ["今日"; "ぞい"]; ["も"]; ["1"; "ぞい"]; ["日"; "ぞい"]; ["がん"; "ぞい"]; ["ばる"; "ぞい"]; ["ぞい！"]]
let rnd = Random()

let makeZoi (xss: string list list) =
  let rec makeZoi' (xss: string list list, count) =
    match xss, count with
    | xs::xss, count ->
        let crnt = xs.[rnd.Next(List.length xs)]
        let rest, count = makeZoi' (xss, if crnt.Contains("ぞい") then count + 1 else count)
        crnt + rest, count
    | [], count -> ("", count)

  makeZoi' (xss, 0)

let countZoi (xss: string list list) =
  let rec countZoi' count =
    let zoi, cnt = makeZoi xss 
    printfn "%s" zoi
    match zoi with
    | "今日も1日がんばるぞい！" -> count
    | _ -> countZoi' (count + cnt)
  countZoi' 0

printfn "🌟 がんばるまで %d zoiでした🌟" (countZoi dic)