常々、キーボードやマウスのカスタマイズはしないと言い放ってきた。 window.twttr = (function(d, s, id) { var js, fjs = d.getElementsByTagName(s)[0], t = window.twttr || {}; if (d.getElementById(id)) return t; js = d.createElement(s); js.id = …

記法に慣れたい。 let u=['A'..'Z'] in [a:k:b:"48" | a<-u,k<-u,b<-u ]

1..3999の数字をローマ数字に変換する。 あとでググってみたら、ワンライナーとかすごそうなのが色々あったけど、自分としては今の実装で充分読みやすいと思った。Maybeを使って範囲外はNothingにしたりしてみたけど、このあたり空気は読めてない。 パターン…

とりあえずチュートリアル読みながらの今の時点でのもの。 module Main where import IO fiz' n | n < 1 = Nothing | n > 100 = Nothing | 0 == (mod n 15) = Just "FizBuz" | 0 == (mod n 3) = Just "Fiz" | 0 == (mod n 5) = Just "Buz" | otherwise = Jus…

foldlをどう書いたっけな list1 = fromhsl [ 1,2,3,4] val = listfoldr (-) 0 list1 main = putStrLn (show val) data List a = Nil | Cons a (List a) fromhsl [] = Nil fromhsl (x:xs) = Cons x (fromhsl xs) tohsl Nil = [] tohsl (Cons x xs) = x : (toh…