March 2014 update

Task/Strip-comments-from-a-string/Bracmat/strip-comments-from-a-string.bracmat

@@ -0,0 +1,21 @@
+(   "    apples, pears # and bananas
+       oranges, mangos ; and a durian"
+  : ?text
+& :?newText
+& ( non-blank
+  = %@:~(" "|\t|\r|\n)
+  )
+& ( cleanUp
+  =
+    .   @(!arg:?arg ("#"|";") ?)
+      & @(rev$!arg:? (!non-blank ?:?arg))
+      & @(rev$!arg:? (!non-blank ?:?arg))
+      & !arg    {You could write & "[" !arg "]" to prove that the blanks are stripped.}
+  )
+&   whl
+  ' ( @(!text:?line (\r|\n) ?text)
+    & !newText \n cleanUp$!line:?newText
+    )
+& !newText \n cleanUp$!text:?newText
+& out$(str$!newText)
+);

Task/Strip-comments-from-a-string/Common-Lisp/strip-comments-from-a-string.lisp

@@ -0,0 +1,6 @@
+(defun strip-comments (s cs)
+  "Truncate s at the first occurrence of a character in cs."
+  (defun comment-char-p (c)
+    (some #'(lambda (x) (char= x c)) cs))
+  (let ((pos (position-if #'comment-char-p s)))
+    (subseq s 0 pos)))

Task/Strip-comments-from-a-string/J/strip-comments-from-a-string-1.j

@@ -1 +1 @@
-strip=: #~  *./\@:-.@e.&';#'
+strip=: dltb@(#~  *./\@:-.@e.&';#')

Task/Strip-comments-from-a-string/J/strip-comments-from-a-string-2.j

@@ -1 +1 @@
-strip=: {.~  <./@i.&';#'
+strip=: dltb@({.~  <./@i.&';#')

Task/Strip-comments-from-a-string/J/strip-comments-from-a-string-3.j

@@ -1,4 +1,4 @@
-   strip 'apples, pears # and bananas'
-apples, pears
-   strip 'apples, pears ; and bananas'
-apples, pears
+   dquote strip '  apples, pears # and bananas'  NB. quote result to show stripped whitespace
+"apples, pears"
+   strip '  apples, pears ; and bananas'
+"apples, pears"