🦌 しかのこのこのここしたんたん in F# 🔷

shikanoko.fs

open System

type Pattern =
    | Shika
    | Noko
    | Koshi
    | Tan

    member self.String() =
        match self with
        | Shika -> "しか"
        | Noko -> "のこ"
        | Koshi -> "こし"
        | Tan -> "たん"


[ Shika; Noko; Koshi; Tan ]
|> List.zip [ 1; 3; 1; 2 ]
|> List.collect (fun (count, pattern) -> List.init count (fun _ -> pattern.String()))
|> String.concat ""
|> Console.WriteLine