本日はRHGのふつける読書会にきています。 今回のモナドからです。 以下メモ x >>= f = concatMap f xs [x] >>= f concatMap f [x] -> map [f x] [x] >>= f concatMap f [x] concat (map f [x]) [f x] -> f [(1,2)] -> []IOモナドのところで評価と実行は違う…

書いたソースとか (define (count-leaves tree) (fold + 0 (map (lambda (x) (if (pair? x) (count-leaves x) 1)) tree))) (define (sum seq) (fold + 0 seq)) (define (dot-product v w) (sum (map * v w))) (define (transpose mat) (fold-right (lambda (…