home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / IFP05.ZIP / FPDEMO.EXE / EULER < prev    next >
Encoding:
Text File  |  1987-02-09  |  294 b   |  13 lines
  1. (*
  2.  * Compute Euler's phi-function, i.e. number of number rel. prime to n.
  3.  *
  4.  * E.g. 8:Euler -> 4 since 1,3,5,7 are relatively prime to 8
  5.  *)
  6. DEF Euler AS
  7.    [id,iota] | distl |
  8.    EACH 
  9.       WHILE [2,#0]|> DO [2,mod] END |
  10.       IF [1, #1]|= THEN #1 ELSE #0 END 
  11.    END | sum;
  12.  
  13.