rst76 https://blog.hatena.ne.jp/rst76/ Life Goes On https://rst76.hatenablog.com/ Haskell 今年も参加してます。予選だしあまり言うこともないのですが、せっかくなのでコードを晒しときます。 去年のコードと比べると、ゴルフの影響を受けすぎ（悪い意味で）。もうちょっと可読性を大事にする人間だったはずなのですが・・・。 ともあれ Haskell で解けるというのはウレシイ限りです。 A 最初、問題の意味がぜんぜん分かりませんでした（snapper って何だよ！）。分かれば簡単。2 進表記で指定された桁以下が全部 1 かどうか答える。 main=interact$unlines.zipWith(++)["Case #"++shows i": "|i<-[1..]].map(f.map read… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Frst76.hatenablog.com%2Fentry%2F20100509%2F1273370761" title=" Google Code Jam 2010 - Qualification Round - Life Goes On" 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 2010-05-09 11:06:01 rich https://rst76.hatenablog.com/entry/20100509/1273370761 1.0 100%