home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume10 / ifp / part01 / fproot / demo / Euler < prev    next >
Encoding:
Text File  |  1987-07-05  |  281 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.