March 2014 update

Task/Substring-Top-and-tail/Common-Lisp/substring-top-and-tail.lisp

@@ -0,0 +1,8 @@
+> (defvar *str* "∀Ꮺ✤Л◒")
+*STR*
+> (subseq *str* 1) ; remove first character
+"Ꮺ✤Л◒"
+> (subseq *str* 0 (1- (length *str*))) ; remove last character
+"∀Ꮺ✤Л"
+> (subseq *str* 1 (1- (length *str*))) ; remove first and last character
+"Ꮺ✤Л"

Task/Substring-Top-and-tail/Perl-6/substring-top-and-tail.pl6

@@ -0,0 +1,19 @@
+my $s = '𝄪♯♮♭𝄫';
+
+print qq:to/END/;
+    Original:
+    $s
+
+    Remove first character:
+    { substr($s, 1) }
+    { $s.substr(1) }
+
+    Remove last character:
+    { substr($s, 0, *-1) }
+    { $s.substr( 0, *-1) }
+    { $s.chop }
+
+    Remove first and last characters:
+    { substr($s, 1, *-1) }
+    { $s.substr(1, *-1) }
+    END

Task/Substring-Top-and-tail/Standard-ML/substring-top-and-tail.ml

@@ -0,0 +1,8 @@
+- val str = "abcde";
+val str = "abcde" : string
+- String.substring(str, 1, String.size str - 1);
+val it = "bcde" : string
+- String.substring(str, 0, String.size str - 1);
+val it = "abcd" : string
+- String.substring(str, 1, String.size str - 2);
+val it = "bcd" : string