tasks a-s

Task/Range-extraction/OxygenBasic/range-extraction.oxy

@@ -0,0 +1,38 @@
+   dim sys ints(100)
+   ints=>
+   0,  1,  2,  4,  6,  7,  8, 11, 12, 14,
+   15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
+   25, 27, 28, 29, 30, 31, 32, 33, 35, 36,
+   37, 38, 39
+
+  function ShowRange(sys*i) as string
+  '==================================
+  pr=""
+  n=0
+  e=0
+  j=0
+  k=-1
+  do
+    j++
+    n=i(j)
+    e=i(j+1)
+    if e<j then
+      exit do
+    end if
+    if e=n+1 and i(j+2)=n+2 then 'LOOKAHEAD
+      if k=-1 then k=n
+    else
+      if k>=0 then
+        pr+=k "-" i(j+1) ", " 'RANGE OF VALUES
+        j++
+        k=-1
+      else
+        pr+=n ", " 'SINGLE VALUES
+      end if
+    end if
+  end do
+  return left pr, len(pr)-2
+  end function
+
+
+  print ShowRange ints