open Obj let f x = match tag (repr x) with | int_tag -> "<int>" | string_of_int -> "<string>" とやると、 let f x = match tag @@ repr x with | int_tag -> "<int>" | string_of_int -> "<string>";; Characters 468-481: Warning U: this match case is unused. | string_of_in</string></int></string></int>…

30分プログラム、その202。多相なprintが欲しいので、Obj.tagで分岐してみる。 前回、Objモジュールを使えば、型に関する操作ができそうだということが分ったので、調べてみた。ここで、Obj.magicとかを適当に説明するつもりだったけど、#006 禁断の Obj - K…