kurimuraの適当Haskell勉強日記

2006-12-27適当

Gray 2進符号04:54

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

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

反射させるだけでいいや

import Data.Bits
g :: Integer -> [Integer]
g n     = map (\a -> xor a $ shiftR a 1) $ [0..2^n-1]
main = getLine >>= print.g.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/