逆転したビット列です。2進数にしてreverseして10進数に戻しています。 import Data.Char import Numeric main = do print $ rbits 4 print $ rbits 5 rbits :: Int -> [Int] rbits n = map (\m -> readBin $ reverse $ padding0 n (toBin m)) $ take (2 ^ n…