langs a-z

Task/Factorial/ZX-Spectrum-Basic/factorial-1.zx

@@ -0,0 +1,9 @@
+10 LET x=5: GO SUB 1000: PRINT "5! = ";r
+999 STOP
+1000 REM *************
+1001 REM * FACTORIAL *
+1002 REM *************
+1010 LET r=1
+1020 IF x<2 THEN RETURN
+1030 FOR i=2 TO x: LET r=r*i: NEXT i
+1040 RETURN

Task/Factorial/ZX-Spectrum-Basic/factorial-2.zx

@@ -0,0 +1 @@
+DEF FN f(n) = VAL (("1" AND n<=0) + ("n*FN f(n-1)" AND n>0))

Task/Factorial/ZX-Spectrum-Basic/factorial-3.zx

@@ -0,0 +1 @@
+DEF FN f(n) = VAL (("1" AND n<=0) + ("FN f(n-1)*n" AND n>0))