数ヶ月前にこんなツイートをしました。Wolfram AlphaでFizzBuzzできた！ → Map[ReplaceAll[GCD[#,15],{15->"FizzBuzz",3->"Fizz",5->"Buzz",_->#}]&,Range[100]]— りんごさん (@aomoriringo) 10月 11, 2011 今更ながら、ちょっと解説記事を書こうと思い立っ…

演習問題の6だけ「?」が残りました。foldrとか使うんだと思うんだけど・・・ どうやったら簡略化できるんだろ？ -- 6. 再帰関数 -- 6.1 基本概念 factorial :: Int->Int -- factorial n = product [1..n] factorial 0 = 1 factorial n = n * factorial (n-1)…

リスト内包表記はMathematicaで慣れてるのでサクサク通過。 -- 5. リスト内包表記 import Data.Char(isLower, isUpper, ord, chr) -- 5.1 生成器 concat :: [[a]] -> [a] concat xss = [x | xs <- xss, x <- xs] firsts :: [(a,b)] -> [a] firsts ps = [x | …