All pastes #931206 Raw Edit

Stuff

public text v1 · immutable
·published 2008-03-07 00:49 UTC
rendered paste body
square = join (*)

pow x 0 = 1
pow x y | even y = square $ pow x (y `div` 2)
        | otherwise = x * pow x (pred y)