小ネタ
元ネタと流れ qiita.com 流行りには乗れ。 コード (ppx_deriving.show) type zundoko = ZUN | DOKO [@@deriving show] let rec sing cnt gen = match gen () with | DOKO -> if cnt = 4 then print_endline "KIYOSHI!" else sing 0 gen | ZUN -> sing (cnt +…
元ネタと流れ qiita.com 流行りには乗れ。 コード (ppx_deriving.show) type zundoko = ZUN | DOKO [@@deriving show] let rec sing cnt gen = match gen () with | DOKO -> if cnt = 4 then print_endline "KIYOSHI!" else sing 0 gen | ZUN -> sing (cnt +…