Data commit

Task/Bell-numbers/Applesoft-BASIC/bell-numbers.basic

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