diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2015-04-01 10:49:49 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2015-04-01 10:49:49 +0800 |
| commit | 3eec84838808139470261893ce15846852384bcf (patch) | |
| tree | 6c293d04f7c6f913da8fd06f215b7b6547de8105 /H37.hs | |
| parent | a9abc1da41b56edbed00081800382e854d6698d0 (diff) | |
| download | h99-3eec84838808139470261893ce15846852384bcf.tar.gz h99-3eec84838808139470261893ce15846852384bcf.tar.bz2 h99-3eec84838808139470261893ce15846852384bcf.zip | |
+37 +38
Diffstat (limited to 'H37.hs')
| -rw-r--r-- | H37.hs | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -0,0 +1,5 @@ +import H36 + +toitient :: Integer -> Integer +toitient n = foldr (\(y,_) x -> x * (y-1) `div` y) n (primeFactorsMult n) + |