A-M baby

Task/Factorial/MUMPS/factorial-1.mumps

@@ -0,0 +1,13 @@
+factorial(num)	New ii,result
+	If num<0 Quit "Negative number"
+	If num["." Quit "Not an integer"
+	Set result=1 For ii=1:1:num Set result=result*ii
+	Quit result
+
+Write $$factorial(0) ; 1
+Write $$factorial(1) ; 1
+Write $$factorial(2) ; 2
+Write $$factorial(3) ; 6
+Write $$factorial(10) ; 3628800
+Write $$factorial(-6) ; Negative number
+Write $$factorial(3.7) ; Not an integer

Task/Factorial/MUMPS/factorial-2.mumps

@@ -0,0 +1,13 @@
+factorial(num)	;
+	If num<0 Quit "Negative number"
+	If num["." Quit "Not an integer"
+	If num<2 Quit 1
+	Quit num*$$factorial(num-1)
+
+Write $$factorial(0) ; 1
+Write $$factorial(1) ; 1
+Write $$factorial(2) ; 2
+Write $$factorial(3) ; 6
+Write $$factorial(10) ; 3628800
+Write $$factorial(-6) ; Negative number
+Write $$factorial(3.7) ; Not an integer