P34
(load "p33.l") (de totient-phi (N) (cnt '((R) (coprime R N)) (range 1 N) ) )
https://picolisp.com/wiki/?99p34
10jul10 | abu |
(load "p33.l") (de totient-phi (N) (cnt '((R) (coprime R N)) (range 1 N) ) )
https://picolisp.com/wiki/?99p34
10jul10 | abu |