[1..100]>>=pen #7293(2008/08/21 21:25 GMT) [ Haskell ] Rating5/5=1.00
２進数の無限リストを使って。
1 2 3 4 5 6 7
a="1":(a>>=(\x->[x++"0",x++"1"])) b=(!!)$"0":a {- > b 10 "1010" -}
Rating5/5=1.00-0+
1 reply [ reply ]
匿名 #7298(2008/08/22 14:11 GMT) [ Other ] Rating1/1=1.00
3文字
1
a="1":[x++y|x<-a,y<-["0","1"]]
Rating1/1=1.00-0+
[1..100]>>=pen #7301(2008/08/23 01:11 GMT) Rating0/0=0.00
あー、そうでした、、、不覚。orz
[ reply ]
[1..100]>>=pen
#7293()
[
Haskell
]
Rating5/5=1.00
Rating5/5=1.00-0+
1 reply [ reply ]