mzp https://blog.hatena.ne.jp/mzp/ みずぴー日記 https://mzp.hatenadiary.org/ OCaml 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_int -> "<string>";; ^^^^^^^^^^^^^という警告がでる。… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmzp.hatenadiary.org%2Fentry%2F20071212%2Ftag" title="match withとObj.tag - みずぴー日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-12-12 00:00:01 rich https://mzp.hatenadiary.org/entry/20071212/tag 1.0 100%