PM
Size: a a a
PM
AP
generate 0 _ = [[]]
generate m n =
concat [ map (x :) $ generate (m - 1) n
| x <- [1..n] ]
AP
> generate 1 3
[[1],[2],[3]]
> generate 2 3
[[1,1],[1,2],[1,3],[2,1],[2,2],[2,3],[3,1],[3,2],[3,3]]
> generate 3 2
[[1,1,1],[1,1,2],[1,2,1],[1,2,2],[2,1,1],[2,1,2],[2,2,1],[2,2,2]]
AP
calculate m n =
sum [ let s = sum xs
in s * s
| xs <- generate m n ]
PM
AP
PK
PK
λO
GS
PK