A-M baby

Task/Factorial/Modula-3/factorial-1.mod3

@@ -0,0 +1,11 @@
+PROCEDURE FactIter(n: CARDINAL): CARDINAL =
+  VAR
+    result := n;
+    counter := n - 1;
+
+  BEGIN
+    FOR i := counter TO 1 BY -1 DO
+      result := result * i;
+    END;
+    RETURN result;
+  END FactIter;

Task/Factorial/Modula-3/factorial-2.mod3

@@ -0,0 +1,9 @@
+PROCEDURE FactRec(n: CARDINAL): CARDINAL =
+  VAR result := 1;
+
+  BEGIN
+    IF n > 1 THEN
+      result := n * FactRec(n - 1);
+    END;
+    RETURN result;
+  END FactRec;