E_Mattsan https://blog.hatena.ne.jp/E_Mattsan/ エンジニアのソフトウェア的愛情 https://blog.emattsan.org/ C++ Haskell Pascal Haskellで書いてみたり… 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で書いてみたり… type TMonth = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, No… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.emattsan.org%2Fentry%2F20070908%2F1189237133" title="どれかと一致する・補遺 - エンジニアのソフトウェア的愛情" 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-09-08 16:38:53 rich https://blog.emattsan.org/entry/20070908/1189237133 1.0 100%