Data commit

Task/Substring-Top-and-tail/Picat/substring-top-and-tail-1.picat

@@ -0,0 +1,20 @@
+go =>
+  test("upraisers"),
+  test("Δημοτική"),
+  nl.
+
+test(S) =>
+  println(s=S),
+  println(butfirst=S.slice(2)),
+  println(butfirst=S.tail),
+  println(butfirst=S[2..S.len]),
+
+  println(butlast=S.but_last()),
+
+  println(butfirst_butlast=S.tail.but_last),
+  println(butfirst_butlast=slice(S,2,S.length-1)),
+  println(butfirst_butlast=[S[I] : I in 2..S.length-1]),
+  println(butfirst_butlast=S[2..S.length-1]),
+  nl.
+
+but_last(S)  = S.slice(1,S.length-1).

Task/Substring-Top-and-tail/Picat/substring-top-and-tail-2.picat

@@ -0,0 +1,17 @@
+go2 =>
+  test2("upraisers"),
+  nl,
+  test2("Δημοτική"),
+  nl.
+
+test2(L) :-
+    L = [_|L1],
+    remove_last(L, L2),
+    remove_last(L1, L3),
+    writef("Original string          : %s\n", L),
+    writef("Without first char       : %s\n", L1),
+    writef("Without last char        : %s\n", L2),
+    writef("Without first/last chars : %s\n", L3).
+
+remove_last(L, LR) :-
+    append(LR, [_], L).