Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Arrays/SNOBOL4/arrays.sno
+++ b/Task/Arrays/SNOBOL4/arrays.sno
@ -0,0 +1,10 @@
+      ar = ARRAY("3,2")      ;* 3 rows, 2 columns
+fill  i = LT(i, 3) i + 1     :F(display)
+      ar<i,1> = i
+      ar<i,2> = i "-count"   :(fill)
+
+display                      ;* fail on end of array
+      j = j + 1
+      OUTPUT = "Row " ar<j,1> ": " ar<j,2>
+                            :S(display)
+END