kurimuraの適当Haskell勉強日記

 | 

2006-12-27適当

ビット変化列 04:54

この問題を解いてみよう。

http://karetta.jp/article/blog/oneline/009668

log使うあたりダサすぎ。もっとスマートに書きたい

import Data.Bits
f(n+1)=concat $ replicate 2 $
	zipWith(((ceiling.logBase 2.fromInteger.(1+)).).xor)
	[0..2^n][1..2^n]
main = getLine >>= print.f.read >> main

AdamAdam2013/03/31 20:14Way to use the internet to help pepole solve problems!

bqutxhwrktbqutxhwrkt2013/04/01 19:11Xfn1gw <a href="http://hyxpiszdxvrl.com/">hyxpiszdxvrl</a>

srfpohyswksrfpohyswk2013/04/02 23:43RctIDm , [url=http://mxqdexpnvsnh.com/]mxqdexpnvsnh[/url], [link=http://nutmkmoyppek.com/]nutmkmoyppek[/link], http://zlckhqghwnga.com/

rbmwjqulsrbmwjquls2013/04/04 14:11Hfb3mp <a href="http://dzajvwhujbsv.com/">dzajvwhujbsv</a>

gjikdigjikdi2013/04/04 20:0336ppzc , [url=http://uhetotpyndks.com/]uhetotpyndks[/url], [link=http://qnpfbcvrkufe.com/]qnpfbcvrkufe[/link], http://tukdjhlvflyl.com/

 |