June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Multifactorial/BBC-BASIC/multifactorial.bbc
+++ b/Task/Multifactorial/BBC-BASIC/multifactorial.bbc
@ -0,0 +1,17 @@
+REM >multifact
+FOR i% = 1 TO 5
+  PRINT "Degree "; i%; ":";
+  FOR j% = 1 TO 10
+    PRINT " ";FNmultifact(j%, i%);
+  NEXT
+  PRINT
+NEXT
+END
+:
+DEF FNmultifact(n%, degree%)
+LOCAL i%, mfact%
+mfact% = 1
+FOR i% = n% TO 1 STEP -degree%
+  mfact% = mfact% * i%
+NEXT
+= mfact%