エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
キヨシ - ryota-ka's blog
界隈の人たちはみんなポエムを書くのが好きなので,散々既出だと思うけど,先週京都にいるときに少し話... 界隈の人たちはみんなポエムを書くのが好きなので,散々既出だと思うけど,先週京都にいるときに少し話が出て,自分だったらこう書くかなぁと,フワッと思ったものを書き下してみた. import Data.Bool (bool) import Data.List (isPrefixOf) import System.Random (randomIO) data Kiyoshi = Z | D | K deriving Eq instance Show Kiyoshi where show Z = "ズン" show D = "ドコ" show K = "キ・ヨ・シ!" gen :: IO Kiyoshi gen = bool Z D <$> randomIO test :: [Kiyoshi] -> Bool test = isPrefixOf [D, Z, Z, Z, Z] main :: IO