
1 Dec
2013
1 Dec
'13
2:22 a.m.
Hi everyone ! I am newbie and I made this code for counting k, so that 2^k divisor of n.Somehow it doesn't work. Anyone knows what is wrong? Regards and thanks. Wili. maxexp2:: Int -> Int maxexp2 n |n== 0 || 2^k 'mod' n /=0 =0 |otherwise = k Where k= e ' div' f e=round (fromIntegral (log n)) f = round (fromIntegral (log 2))