ML系の言語で、.NETの生態系が使える、関数型言語でアプリを作るならF♯が最強かもしれないということに気づいてしまった。

現時点では

が存在する。FuncUIはAvalonia専用なんだが、FabulousはMAUI、Avalonia、Xaramin.Forms、三つのバックエンドが使える。両方ともElm風のMVUで開発できる。

Elmishはちょっと違うのでパス。

とりあえずFabulousを使ってみることにした。

Fabulousをさわってみる

チュートリアルの手順に沿って、テンプレートからプロジェクトを生成すればは以下のサンプルコードがでてくる。

namespace FFF

open Avalonia.Themes.Fluent
open Fabulous
open Fabulous.Avalonia

open type Fabulous.Avalonia.View

module App =
    type Model =
        { Count: int; Step: int; TimerOn: bool }

    type Msg =
        | Increment
        | Decrement
        | Reset
        | SetStep of float
        | TimerToggled of bool
        | TimedTick

    let initModel = { Count = 0; Step = 1; TimerOn = false }

    let timerCmd () =
        async {
            do! Async.Sleep 200
            return TimedTick
        }
        |> Cmd.ofAsyncMsg

    let init () = initModel, Cmd.none

    let update msg model =
        match msg with
        | Increment ->
            { model with
                Count = model.Count + model.Step },
            Cmd.none
        | Decrement ->
            { model with
                Count = model.Count - model.Step },
            Cmd.none
        | Reset -> initModel, Cmd.none
        | SetStep n -> { model with Step = int(n + 0.5) }, Cmd.none
        | TimerToggled on -> { model with TimerOn = on }, (if on then timerCmd() else Cmd.none)
        | TimedTick ->
            if model.TimerOn then
                { model with
                    Count = model.Count + model.Step },
                timerCmd()
            else
                model, Cmd.none

    let view model =
        (VStack() {
            TextBlock($"%d{model.Count}").centerText()

            Button("Increment", Increment).centerHorizontal()

            Button("Decrement", Decrement).centerHorizontal()

            (HStack() {
                TextBlock("Timer").centerVertical()

                ToggleSwitch(model.TimerOn, TimerToggled)
            })
                .margin(20.)
                .centerHorizontal()

            Slider(1., 10, float model.Step, SetStep)

            TextBlock($"Step size: %d{model.Step}").centerText()

            Button("Reset", Reset).centerHorizontal()

        })
            .center()

    
#if MOBILE
    let app model = SingleViewApplication(view model)
#else
    let app model = DesktopApplication(Window(view model))
#endif

    
    let theme = FluentTheme()

    let program = Program.statefulWithCmd init update app

F♯ところか、実は一行もOCamlも書いたことがないけど、意外とわかりやすい。

dotnet run -f net7.0で実行できる。

まだ.NET8.0対応していないらしい。.NETのことよくわからないのでなんとも言えない。

dotnet buildでビルドできる。

やはり.NETはいいものだね。

F♯でなんか書いてみたいと思う。

F♯はきっといいものに違いない

Fabulousをさわってみる