Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- h :: Integer -> Integer -> Integer
- h n m
- | m == 0 = 1
- | (n `mod` 2 == 0) = h ((n) * (n)) (m/2)
- | otherwise = ((n) * ( h (n) ((m) - (1)) ))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement