aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Bell-numbers/ANSI-BASIC/bell-numbers.basic
View file

@ -1,7 +1,7 @@
100 REM Bell numbers
110 LET MaxN = 14
120 OPTION BASE 0
130 DIM A(13) ! i.e. DIM A(MaxN - 1), ANSI BASIC does not allow expressions in the bound arguments.
110 OPTION BASE 0
120 DIM A(13)
130 LET MaxN = UBOUND(A) + 1
140 FOR I = 0 TO MaxN - 1
150 LET A(I) = 0
160 NEXT I