ドドスコード

ddsk.fsx

let next =
    let rand = System.Random()
    fun () -> [| "ドド"; "スコ" |] |> Array.item (rand.Next 2)

let fin = String.replicate 3 "ドドスコスコスコ"

""
|> Seq.unfold (fun s ->
    if s.EndsWith(fin) then
        None
    else
        Some(s, s + next ()))
|> Seq.iter (printf "%s")

printf "ラブ注入♡"

ddsk2.fsx

let rand = System.Random()

0
|> Seq.unfold (function
    | 2184 -> None
    | i ->
        let n = rand.Next 2
        let s = (i <<< 1 ||| n) % 4096
        Some(n, s))
|> Seq.map (fun n -> if n = 1 then "ドド" else "スコ")
|> Seq.iter (printf "%s")

printf "ラブ注入♡"

ドドスコ.fsx

type ドドスコ =
    | ドド
    | スコ

let 次ドドスコ =
    let rand = System.Random()
    fun () -> [| ドド; スコ |] |> Array.item (rand.Next 2)

let rec ドドスコード これまでのドドスコ =
    match これまでのドドスコ with
    | スコ :: スコ :: スコ :: ドド :: スコ :: スコ :: スコ :: ドド :: スコ :: スコ :: スコ :: ドド :: _ -> printf "ラブ注入♡"
    | _ ->
        let 次 = 次ドドスコ ()
        次 |> printf "%A"
        次 :: これまでのドドスコ |> ドドスコード

ドドスコード []

ドドスコ2.fsx

type ドドスコ =
    | ドド
    | スコ

let 次ドドスコ =
    let rand = System.Random()
    fun () -> [| ドド; スコ |] |> Array.item (rand.Next 2)

let rec ドドスコード これまでのドドスコ =
    match List.rev これまでのドドスコ with
    | [ ドド; スコ; スコ; スコ; ドド; スコ; スコ; スコ; ドド; スコ; スコ; スコ ] -> printf "ラブ注入♡"
    | _ ->
        let 次 = 次ドドスコ ()
        次 |> printf "%A"
        次 :: これまでのドドスコ |> List.truncate 12 |> ドドスコード

ドドスコード []