all tasks

Task/Substring/Bracmat/substring.bracmat

@@ -0,0 +1,27 @@
+( (basestring = "The five boxing wizards jump quickly")
+& (n = 10)
+& (m = 5)
+
+  { starting from n characters in and of m length: }
+& @(!basestring:? [(!n+-1) ?substring [(!n+!m+-1) ?)
+& out$!substring
+
+  { starting from n characters in, up to the end of the string: }
+& @(!basestring:? [(!n+-1) ?substring)
+& out$!substring
+
+  { whole string minus last character: }
+& @(!basestring:?substring [-2 ?)
+& out$!substring
+
+  { starting from a known character within the string and of m length: }
+& (char = "w")
+& @(!basestring:? ([?p !char ?: ?substring [(!p+!m) ?))
+& out$!substring
+
+  { starting from a known substring within the string and of m length: }
+& (find = "iz")
+& @(!basestring:? ([?p !find ?: ?substring [(!p+!m) ?))
+& out$!substring
+&
+)