1 files changed, 11 insertions, 0 deletions
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]