langs a-z

Task/Factorial/Rascal/factorial-1.rascal

@@ -0,0 +1,6 @@
+public int factorial_iter(int n){
+	result = 1;
+	for(i <- [1..n])
+		result *= i;
+	return result;
+}

Task/Factorial/Rascal/factorial-2.rascal

@@ -0,0 +1 @@
+public int factorial_iter2(int n) = (1 | it*e | int e <- [1..n]);

Task/Factorial/Rascal/factorial-3.rascal

@@ -0,0 +1,5 @@
+rascal>factorial_iter(10)
+int: 3628800
+
+rascal>factorial_iter2(10)
+int: 3628800

Task/Factorial/Rascal/factorial-4.rascal

@@ -0,0 +1,4 @@
+public int factorial_rec(int n){
+	if(n>1) return n*factorial_rec(n-1);
+		else return 1;
+}

Task/Factorial/Rascal/factorial-5.rascal

@@ -0,0 +1,2 @@
+rascal>factorial_rec(10)
+int: 3628800