2007-01-18から1日間の記事一覧

内包表記

こういうのもできるのか。 Prelude> [x| x <- [0..3], y <- [0..3]] [0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3] Prelude> [y| x <- [0..3], y <- [0..3]] [0,1,2,3,0,1,2,3,0,1,2,3,0,1,2,3]

リストによる正方行列

cf. 今日の一行 - リストによる正方行列処理問題1。 matrix n = [[x+(n^2*y)| x <- [1..n^2]] | y <- [0..n^2-1]] *Main> matrix 2 [[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]] *Main> matrix 3 [[1,2,3,4,5,6,7,8,9],[10,11,12,13,14,15,16,17,18],…