2024-11-03 17:50:36 +00:00
|
|
|
#!/usr/bin/env talc
|
|
|
|
|
|
2024-10-31 21:20:20 +00:00
|
|
|
totient = \n -> do
|
|
|
|
|
count(factors(n)) | pairs | map(\v -> do
|
2024-11-03 17:50:36 +00:00
|
|
|
v[0]^v[1] - v[0]^(v[1] - 1)
|
2024-10-31 21:20:20 +00:00
|
|
|
end) | prod
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
println(totient(6615)) -- 3024
|
