Data update

Task/Substring/EasyLang/substring.easy

@@ -1,3 +1,22 @@
-a$ = "2019-05-22 22:54:22"
+a$ = timestr systime
 print substr a$ 12 5
-print substr a$ 12 -1
+print substr a$ 12 99
+#
+a$ = "Hallo Österreich!"
+print substr a$ 1 (len a$ - 1)
+#
+c$ = "Ö"
+m = 2
+i = 1
+while substr a$ i 1 <> c$
+   i += 1
+.
+print substr a$ i m
+#
+c$ = "re"
+m = 5
+i = 1
+while substr a$ i len c$ <> c$
+   i += 1
+.
+print substr a$ i m

Task/Substring/Phix/substring-1.phix

@@ -1,31 +1,29 @@
--->
- <span style="color: #000080;font-style:italic;">--(1) starting from n characters in and of m length;
- --(2) starting from n characters in, up to the end of the string;
- --(3) whole string minus last character;
- --(4) starting from a known character within the string and of m length;
- --(5) starting from a known substring within the string and of m length. </span>
+--(1) starting from n characters in and of m length;
+--(2) starting from n characters in, up to the end of the string;
+--(3) whole string minus last character;
+--(4) starting from a known character within the string and of m length;
+--(5) starting from a known substring within the string and of m length.
 
- <span style="color: #008080;">constant</span> <span style="color: #000000;">sentence</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"the last thing the man said was the"</span><span style="color: #0000FF;">,</span>
-          <span style="color: #000000;">n</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">10</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">m</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">5</span>
- <span style="color: #004080;">integer</span> <span style="color: #000000;">k</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">l</span>
- <span style="color: #000000;">l</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">+</span><span style="color: #000000;">m</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span>
- <span style="color: #008080;">if</span> <span style="color: #000000;">l</span><span style="color: #0000FF;"><=</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
-     <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">n</span><span style="color: #0000FF;">..</span><span style="color: #000000;">l</span><span style="color: #0000FF;">]</span>           <span style="color: #000080;font-style:italic;">-- (1)</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
- <span style="color: #008080;">if</span> <span style="color: #000000;">n</span><span style="color: #0000FF;"><=</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
-     <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">n</span><span style="color: #0000FF;">..-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>          <span style="color: #000080;font-style:italic;">-- (2) or [n..$]</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
- <span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)></span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>
-     <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..-</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span>          <span style="color: #000080;font-style:italic;">-- (3) or [1..$-1]</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
- <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #008000;">'m'</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)</span>
- <span style="color: #000000;">l</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">k</span><span style="color: #0000FF;">+</span><span style="color: #000000;">m</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span>
- <span style="color: #008080;">if</span> <span style="color: #000000;">l</span><span style="color: #0000FF;"><=</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
-     <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">..</span><span style="color: #000000;">l</span><span style="color: #0000FF;">]</span>           <span style="color: #000080;font-style:italic;">-- (4)</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
- <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">match</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"aid"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)</span>
- <span style="color: #000000;">l</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">k</span><span style="color: #0000FF;">+</span><span style="color: #000000;">m</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span>
- <span style="color: #008080;">if</span> <span style="color: #000000;">l</span><span style="color: #0000FF;"><=</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">then</span>
-     <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">k</span><span style="color: #0000FF;">..</span><span style="color: #000000;">l</span><span style="color: #0000FF;">]</span>           <span style="color: #000080;font-style:italic;">-- (5)</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
-<!--
+constant sentence = "the last thing the man said was the",
+         n = 10, m = 5
+integer k, l
+l = n+m-1
+if l<=length(sentence) then
+    ?sentence[n..l]           -- (1)
+end if
+if n<=length(sentence) then
+    ?sentence[n..-1]          -- (2) or [n..$]
+end if
+if length(sentence)>0 then
+    ?sentence[1..-2]          -- (3) or [1..$-1]
+end if
+k = find('m',sentence)
+l = k+m-1
+if l<=length(sentence) then
+    ?sentence[k..l]           -- (4)
+end if
+k = match("aid",sentence)
+l = k+m-1
+if l<=length(sentence) then
+    ?sentence[k..l]           -- (5)
+end if

Task/Substring/Phix/substring-2.phix

@@ -1,7 +1,5 @@
--->
- <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">n</span><span style="color: #0000FF;">..</span><span style="color: #000000;">n</span><span style="color: #0000FF;">+</span><span style="color: #000000;">m</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
- <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">n</span><span style="color: #0000FF;">..-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
- <span style="color: #0000FF;">?</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..-</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span>
- <span style="color: #0000FF;">?(</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #008000;">'m'</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)..$])[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..</span><span style="color: #000000;">m</span><span style="color: #0000FF;">]</span>
- <span style="color: #0000FF;">?(</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">match</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"aid"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sentence</span><span style="color: #0000FF;">)..$])[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..</span><span style="color: #000000;">m</span><span style="color: #0000FF;">]</span>
-<!--
+?sentence[n..n+m-1]
+?sentence[n..-1]
+?sentence[1..-2]
+?(sentence[find('m',sentence)..$])[1..m]
+?(sentence[match("aid",sentence)..$])[1..m]

Task/Substring/Wren/substring.wren

@@ -1,4 +1,4 @@
-import "/str" for Str
+import "./str" for Str
 
 var s  = "αβγδεζηθ"
 var n = 2