Data update

Task/Totient-function/MAD/totient-function.mad

@@ -0,0 +1,45 @@
+            NORMAL MODE IS INTEGER
+            BOOLEAN PRM
+
+            INTERNAL FUNCTION(A,B)
+            ENTRY TO REM.
+            FUNCTION RETURN A-A/B*B
+            END OF FUNCTION
+
+            INTERNAL FUNCTION(NN)
+            ENTRY TO TOTENT.
+            N = NN
+            TOT = N
+            THROUGH STEP, FOR I=2, 2, I*I.G.N
+            WHENEVER REM.(N,I).E.0
+                THROUGH DIV, FOR N=N, 0, REM.(N,I).NE.0
+DIV             N = N/I
+                TOT = TOT-TOT/I
+            END OF CONDITIONAL
+            WHENEVER I.E.2, I=1
+STEP        CONTINUE
+            WHENEVER N.G.1, TOT = TOT-TOT/N
+            FUNCTION RETURN TOT
+            END OF FUNCTION
+
+            COUNT = 0
+            PRINT FORMAT HEADER
+            THROUGH FRST25, FOR KN=1, 1, KN.G.25
+            KTOT = TOTENT.(KN)
+            PRM = KTOT.E.KN-1
+            WHENEVER PRM, COUNT = COUNT + 1
+FRST25      PRINT FORMAT NUMTOT,KN,KTOT,PRM
+
+            PRINT FORMAT NUMPRM,25,COUNT
+
+            THROUGH CNTPRM, FOR KN=26, 1, KN.G.100000
+            KTOT = TOTENT.(KN)
+            WHENEVER KTOT.E.KN-1, COUNT = COUNT+1
+            WHENEVER KN.E.100 .OR. KN.E.1000 .OR. REM.(KN,10000).E.0,
+          0     PRINT FORMAT NUMPRM,KN,COUNT
+CNTPRM      CONTINUE
+
+            VECTOR VALUES HEADER = $19H  N  TOTIENT  PRIME*$
+            VECTOR VALUES NUMTOT = $I2,S2,I7,S2,I5*$
+            VECTOR VALUES NUMPRM = $22HNUMBER OF PRIMES UP TO,I7,1H:,I6*$
+            END OF PROGRAM