RosettaCodeData/Task/Totient-function/Zkl/totient-function-1.zkl

3 lines
103 B
Plaintext

fcn totient(n){ [1..n].reduce('wrap(p,k){ p + (n.gcd(k)==1) }) }
fcn isPrime(n){ totient(n)==(n - 1) }