All pastes #931198 Raw Edit

Stuff

public text v1 · immutable
·published 2008-03-07 00:42 UTC
rendered paste body
exponentiate :: Int -> Int -> Int
exponentiate x y
  | y == 0 = 1
  | mod y 2 == 0 = exponentiate(exponentiate(x, (div y 2)), 2)
  | otherwise = x*exponentiate(x, (y-1))