OCamlのモナド拡張、pa_monadで遊んでみました。今回はリスト内の値を長さとする棒を組み合わせて三角形ができる場合に、その周長が最大になるものをpa_monadを使ってListモナドで求めてみました。 open List (* Listモナド *) module ListM = struct let re…