{"title":"\u3069\u308c\u304b\u3068\u4e00\u81f4\u3059\u308b\u30fb\u88dc\u907a","url":"https://blog.emattsan.org/entry/20070908/1189237133","blog_title":"\u30a8\u30f3\u30b8\u30cb\u30a2\u306e\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u7684\u611b\u60c5","blog_url":"https://blog.emattsan.org/","published":"2007-09-08 16:38:53","categories":["C++","Haskell","Pascal"],"provider_name":"Hatena Blog","height":"190","author_name":"E_Mattsan","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.emattsan.org%2Fentry%2F20070908%2F1189237133\" title=\"\u3069\u308c\u304b\u3068\u4e00\u81f4\u3059\u308b\u30fb\u88dc\u907a - \u30a8\u30f3\u30b8\u30cb\u30a2\u306e\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u7684\u611b\u60c5\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"author_url":"https://blog.hatena.ne.jp/E_Mattsan/","provider_url":"https://hatena.blog","version":"1.0","description":"Haskell\u3067\u66f8\u3044\u3066\u307f\u305f\u308a\u2026 data Month = Jan | Feb | Mar | Apr | May | Jun | Jul | Aug | Sep | Oct | Nov | Dec deriving Eq foo m = if elem m [Jan, Mar, May, Jul, Aug, Oct, Dec] then putStrLn \"odd month\" else putStrLn \"even month\" Pascal\u3067\u66f8\u3044\u3066\u307f\u305f\u308a\u2026 type TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, No\u2026","width":"100%"}