dbfin/euler_totient.hs

Last active August 29, 2015 13:55

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/dbfin/8725023.js"></script>
Save dbfin/8725023 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

euler_totient.hs

	-- Euler's totient function
	phi :: Int -> Int
	phi n = product $ map (\(p,pw) -> (p - 1) * p^(pw - 1)) $ factor n

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment