2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 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