All pastes #2126509 Raw Edit

Stuff

public text v1 · immutable
#2126509 ·published 2012-03-09 23:56 UTC
rendered paste body
apply2 :: (Integer -> Integer -> Integer) -> Integer -> Integer -> Integer -> Integer
apply2 f num1 num2 num3
  | num3 == 0     = num1 + 0
  | even num3     = apply f (f num1 num2) num2 (num3 `mod` 2)
  | otherwise     = error "divided by zero"