From 3eec84838808139470261893ce15846852384bcf Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Wed, 1 Apr 2015 10:49:49 +0800
Subject: +37 +38

---
 H37.hs | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 H37.hs

(limited to 'H37.hs')

diff --git a/H37.hs b/H37.hs
new file mode 100644
index 0000000..d5c07f5
--- /dev/null
+++ b/H37.hs
@@ -0,0 +1,5 @@
+import H36
+
+toitient :: Integer -> Integer
+toitient n = foldr (\(y,_) x -> x * (y-1) `div` y) n (primeFactorsMult n)
+
-- 
cgit v1.2.3-70-g09d2