September 2017 Update

Task/Factorial/Dc/factorial.dc

@@ -0,0 +1,19 @@
+[*
+ * (n) lfx -- (factorial of n)
+ *]sz
+[
+ 1 Sp           [product = 1]sz
+ [              [Loop while 1 < n:]sz
+  d lp * sp      [product = n * product]sz
+  1 -            [n = n - 1]sz
+  d 1 <f
+ ]Sf d 1 <f
+ Lfsz           [Drop loop.]sz
+ sz             [Drop n.]sz
+ Lp             [Push product.]sz
+]sf
+
+[*
+ * For example, print the factorial of 50.
+ *]sz
+50 lfx psz