langs a-z

Task/Factorial/Pure/factorial-1.pure

@@ -0,0 +1,3 @@
+fact n = n*fact (n-1) if n>0;
+       = 1 otherwise;
+let facts = map fact (1..10); facts;

Task/Factorial/Pure/factorial-2.pure

@@ -0,0 +1,3 @@
+fact n = loop 1 n with
+  loop p n = if n>0 then loop (p*n) (n-1) else p;
+end;