Arrowを使ってパスカルの三角形を作ってみた。これは全然Arrowっぽくないんだけど、ちょっとだけ分かった、気がする。 {- ArrowPascalTriangle.hs :set -farrows nisikawa 2007.04.02 -} import Control.Arrow import Data.List (mapAccumL) newtype PS a b …