home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / phi2.cef < prev    next >
Encoding:
Text File  |  2002-08-18  |  211 b   |  16 lines
  1. #!/usr/local/bin/clip
  2. #\!- <val>
  3.  
  4. if @0 < 1
  5.     :warn "èOòöè╓Éö\-é╠ê°Éöé¬0é▄é╜é═òëé╠Ælé╔é╚éΦé▄é╡é╜
  6.     return
  7. endif
  8.  
  9. :uint \10
  10.  
  11. @t = 0
  12. for @d = 0; @d < @0; @d++
  13.     if !gcd @d @0 == 1; @t++; endif
  14. next
  15. @t
  16.