P34

(load "p33.l")

(de totient-phi (N)
   (cnt
      '((R) (coprime R N))
      (range 1 N) ) )

http://picolisp.com/wiki/?99p34

10jul10

abu