2011-06-24から1日間の記事一覧

ぶらり途中 Power Set の旅

Power Set久々に少しづつ刻んでいったので思考の変遷を辿る.まず,142byte.羃集合なので,脳直でそのままビットを調べて作っていた初版. main=interact$f.p.read f x='{':foldr1(&)x++"}" a&b=a++", "++b p n="0":[f[p(n-1)!!x|x<-[0..n],odd$i(`div`2)a!…