2008-02-28から1日間の記事一覧
さて、昨日のtransposeなのですが、 transpose :: [ [a ] ] -> [ [a ] ] transpose [ ] = repeat [ ] transpose (xs : xss) = zipWith (:) xs (transpose xss) これは、つまりtranspose [ [1, 2, 3], [4, 5, 6] ]を [1, 2, 3] `zipWith (:)` [4, 5, 6] `zipW…
さて、昨日のtransposeなのですが、 transpose :: [ [a ] ] -> [ [a ] ] transpose [ ] = repeat [ ] transpose (xs : xss) = zipWith (:) xs (transpose xss) これは、つまりtranspose [ [1, 2, 3], [4, 5, 6] ]を [1, 2, 3] `zipWith (:)` [4, 5, 6] `zipW…