Data commit

Task/Bell-numbers/MSX-Basic/bell-numbers.basic

@@ -0,0 +1,37 @@
+100 ROWS = 15
+110 M$ = CHR$(13)
+120 N = ROWS: GOSUB 500
+130 PRINT "FIRST FIFTEEN BELL NUMBERS:"
+140 FOR I = 1 TO ROWS
+150   BR = I: BC = 0: GOSUB 350
+160   PRINT RIGHT$(" " + STR$(I),2); ": "; BV; MID$(M$,1,2)
+170   T = T + 1 - (T = 2) * 3
+180 NEXT I
+190 PRINT
+200 PRINT "THE FIRST 10 ROWS OF BELL'S TRIANGLE:";
+210 FOR I = 1 TO 10
+220   BR = I: BC = 0: GOSUB 350
+230   PRINT M$: PRINT BV;
+240   FOR J = 1 TO I - 1
+250     IF I - 1 >= J THEN BR = I: BC = J: GOSUB 350: PRINT BV;
+260 NEXT J, I
+270 END
+300 BI = BR * (BR-1) / 2 + BC
+310 RETURN
+350 GOSUB 300
+360 BV = TRI(BI)
+370 RETURN
+400 GOSUB 300
+410 TRI(BI) = BV
+420 RETURN
+500 DIM TRI(N * (N+1) / 2)
+510 BR = 1: BC = 0: BV = 1: GOSUB 400
+520 FOR I = 2 TO N
+530   BR = I - 1: BC = I - 2: GOSUB 350
+540   BR = I: BC = 0: GOSUB 400
+550   FOR J = 1 TO I - 1
+560     BR = I: BC = J - 1: GOSUB 350: V = BV
+570     BR = I - 1: BC = J - 1: GOSUB 350
+580     BR = I: BC = J: BV = V + BV: GOSUB 400
+590 NEXT J, I
+600 RETURN