面白い問題おしえて〜な 27問目

[0872 １３２人目の素数さん 2018/10/23(火) 12:41:03.14 ID:ow6G4yxf]

Prelude Data.List> let xs = concat $ iterate (¥x->[1:n| n<-x] ++ [2:n|n<-x]) [[1],[2]]
Prelude Data.List> xs !! 999
[2,2,2,2,1,2,1,1,2]