1 files changed, 3 insertions, 0 deletions
diff --git a/H34.hs b/H34.hs
new file mode 100644
index 0000000..6db5e5d
--- /dev/null
+++ b/H34.hs
@@ -0,0 +1,3 @@
+-- http://en.wikipedia.org/wiki/Euler%27s_totient_function
+totient :: Integral a => a -> Bool
+totient x = length $ filter ((==1).(gcd x)) [1..x]