関数型プログラミング言語Haskell Part30 [無断転載禁止]©2ch.net

[777 デフォルトの名無しさん 2017/08/04(金) 06:02:27.89 ID:dl0ZTbjy]

https://wandbox.org/permlink/jdlx4FhKT80IWQKN

data T = A | B deriving Show

hoge 0 = A
hoge 1 = B

fuga _ 0 _ = []
fuga k x n = let (d,m) = divMod n k in hoge m : fuga k (x-1) d

piyo x = map (fuga 2 x) [0..2^x-1]

main = print $ piyo 3