All pastes #931204 Raw Edit

Stuff

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

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