🐲2024.fsx

🐲2024.fsx

open System
open System.Threading

type Frame = string[]
type Animation = seq<Frame>

let mergeFrame (a: Frame) (b: Frame) : Frame =
    Array.zip a b
    |> Array.map (fun (a, b) ->
        (a.ToCharArray(), b.ToCharArray())
        ||> Array.zip
        |> Array.map (fun (a, b) -> if b = ' ' then a else b)
        |> String)

let mergeAnimation (a: Animation) (b: Animation) : Animation =
    Seq.zip a b |> Seq.map (fun (a, b) -> mergeFrame a b)

let shiftFrame (lag: int) (frame: Frame) : Frame =
    frame
    |> Array.map (fun line ->
        line.ToCharArray()
        |> Array.permute (fun i -> (i + lag) % line.Length)
        |> String)

let bgAnimation =
    let bg = [|
        "                                            "
        "                                            "
        "                                            "
        "                                            "
        "                                            "
        "                                            "
        "~~    ~~                               ~~   "
        "               ~~~~       ~~~  ~~           "
        "☁      ☁☁           ☁☁☁        ☁☁         ☁☁"
        "☁  ☁☁☁☁☁      ☁☁☁☁☁       ☁☁☁☁ ☁     ☁   ☁☁ "
    |]

    seq {
        let mutable i = 0

        while true do
            yield shiftFrame i bg

            i <- i + 1
    }

let dragonAnimation =
    [
        [|
            @"                                            "
            @"     本年も                                    "
            @"        よろしくお願いいたします 🐉                     "
            @"     /\/\__      _      _      _            "
            @"    ()()_  \    / \    / \    / \    /\     "
            @"    /oo/ \  \__/ _ \__/ _ \__/ _ \__/ /     "
            @"    \_/   \_____/ \____/ \____/ \____/      "
            @"                                            "
            @"                                            "
            @"                                            "
        |]
        [|
            @"                                            "
            @"     本年も                                    "
            @"        よろしくお願いいたします 🐉                     "
            @"     /\/\__      _      _      _            "
            @"    ()()_  \    / \    / \    / \    ____   "
            @"    /oo/ \  \__/ _ \__/ _ \__/ _ \__/ _/    "
            @"    \_/   \_____/ \____/ \____/ \____/      "
            @"                                            "
            @"                                            "
            @"                                            "
        |]
    ]
    |> List.replicate 1000
    |> List.concat


mergeAnimation bgAnimation dragonAnimation
|> Seq.iter (fun frame ->
    Console.Clear()
    frame |> Array.iter (printfn "%s")
    Thread.Sleep(100))