From 9db0008777cc4cd9f07e14a3458e3d903e3cc4f6 Mon Sep 17 00:00:00 2001 From: Determinant Date: Mon, 29 May 2017 13:29:11 -0400 Subject: finish vol 4 --- 31-41/34.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 31-41/34.hs (limited to '31-41/34.hs') diff --git a/31-41/34.hs b/31-41/34.hs new file mode 100644 index 0000000..fe542a2 --- /dev/null +++ b/31-41/34.hs @@ -0,0 +1,11 @@ +import Data.List (foldl') + +myGCD :: Int -> Int -> Int + + +myGCD a 0 = abs a +myGCD a b = myGCD b (a `mod` b) + +totient :: Int -> Int + +totient x = foldl' (\acc y -> acc + if myGCD x y == 1 then 1 else 0) 0 [1..x] -- cgit v1.2.3