update

Task/Substring-Top-and-tail/Aime/substring-top-and-tail.aime

@@ -0,0 +1,6 @@
+o_text(delete("knights", 0));
+o_newline();
+o_text(delete("knights", -1));
+o_newline();
+o_text(delete(delete("knights", 0), -1));
+o_newline();

Task/Substring-Top-and-tail/Erlang/substring-top-and-tail.erl

@@ -0,0 +1,6 @@
+% Implemented by Arjun Sunel
+string:left("Hello", length("Hello")-1,$.). 	% To strip the word from the right by 1
+
+string:right("Hello", length("Hello")-1,$.).		% To strip the word from the left by 1
+
+string:left(string:right("Hello", length("Hello")-1,$.), length("Hello")-2,$.).  %To strip the word from both sides by 1.

Task/Substring-Top-and-tail/Logo/substring-top-and-tail.logo

@@ -0,0 +1,4 @@
+make "s "|My string|
+print butfirst :s
+print butlast :s
+print butfirst butlast :s

Task/Substring-Top-and-tail/Raven/substring-top-and-tail.raven

@@ -0,0 +1,15 @@
+define println use $s
+   $s print "\n" print
+
+"0123456789" as $str
+
+define offTheTop use $s
+   $s 1 0x7FFFFFFF extract
+
+define offTheTail use $s
+   $s 0 -1 extract
+
+
+$str offTheTop  println
+$str offTheTail println
+$str offTheTop  offTheTail  println