home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 10 / primfak.log < prev    next >
Encoding:
Text File  |  1987-07-23  |  770 b   |  39 lines
  1. ;------------------------------------------
  2.  
  3. TO CARDINALP :X
  4.   ;PRUEFT, OB :X EINE NATUERLICHE ZAHL IST
  5.   IF (NOT NUMBERP :X) [OP "FALSE]
  6.   IF (NOT :X = INT :X) [OP "FALSE]
  7.   IF (:X < 1) [OP "FALSE]
  8.   OP "TRUE
  9. END
  10.  
  11. TO TEILT :X :Y
  12.   ;PRUEFT, OB :Y DURCH :X TEILBAR IST
  13.   OP :X * (QUOTIENT :Y :X) = :Y
  14. END
  15.  
  16. TO AUSNAHME :X
  17.   ;BEHANDLUNG DER AUSNAHMEFAELLE
  18.   IF (NOT CARDINALP :X) [OP "FALSE]
  19.   IF (:X = 1) [OP [1]]
  20.   OP "TRUE
  21. END
  22.  
  23. TO ZERLEGUNG :X
  24.   ;PRIMFAKTOR-ZERLEGUNG VON :X
  25.   LOCAL "H MAKE "H AUSNAHME :X
  26.   IF (NOT :H = "TRUE) [OP :H]
  27.   MAKE "H []
  28.   LOCAL "I MAKE "I 2
  29.  LABEL "L1
  30.   IF (NOT TEILT :I :X) [GO "L2]
  31.   MAKE "H LPUT :I :H
  32.   MAKE "X QUOTIENT :X :I
  33.   GO "L1
  34.  LABEL "L2
  35.   IF (:X = 1) [OP :H]
  36.   MAKE "I :I + 1
  37.   GO "L1
  38. END
  39.