Make Block.h compile with c++ compilers
[ghc.git] / testsuite / tests / perf / should_run / T7507.hs
1 module Main where
2
3 import Data.Int
4 import System.Environment
5
6 bitcount x = if x > 0
7 then let (d,m) = divMod x 2 in bitcount d + m
8 else 0
9
10 main = print $ sum $ map bitcount
11 [ 0 :: Int64 .. 2^20 - 1 ]
12
13
14