Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
5 lines (3 sloc) 98 Bytes
import EulerMath.BigNum
euler16 :: (Integral a) => a -> a -> a
euler16 base = digitSum . (base^)