September Morn Update

Task/Strip-comments-from-a-string/Aime/strip-comments-from-a-string.aime

@@ -0,0 +1,13 @@
+strip_comments(data b)
+{
+    b.size(b.look(0, ";#")).bf_drop(" \t").bb_drop(" \t");
+}
+
+main(void)
+{
+    for (, text n in list("apples, pears # and bananas", "apples, pears ; and bananas")) {
+        o_(strip_comments(n), "\n");
+    }
+
+    0;
+}

Task/Strip-comments-from-a-string/Python/strip-comments-from-a-string-3.py

@@ -1,5 +1,29 @@
-import re
+'''Comments stripped with itertools.takewhile'''
 
-m = re.match(r'^([^#]*)#(.*)$', line)
-if m:  # The line contains a hash / comment
-    line = m.group(1)
+from itertools import takewhile
+
+
+# stripComments :: [Char] -> String -> String
+def stripComments(cs):
+    '''The lines of the input text, with any
+       comments (defined as starting with one
+       of the characters in cs) stripped out.
+    '''
+    def go(cs):
+        return lambda s: ''.join(
+            takewhile(lambda c: c not in cs, s)
+        ).strip()
+    return lambda txt: '\n'.join(map(
+        go(cs),
+        txt.splitlines()
+    ))
+
+
+if __name__ == '__main__':
+    print(
+        stripComments(';#')(
+            '''apples, pears # and bananas
+               apples, pears ; and bananas
+            '''
+        )
+    )

Task/Strip-comments-from-a-string/Rust/strip-comments-from-a-string.rust

@@ -0,0 +1,13 @@
+fn strip_comment<'a>(input: &'a str, markers: &[char]) -> &'a str {
+    input
+        .find(markers)
+        .map(|idx| &input[..idx])
+        .unwrap_or(input)
+        .trim()
+}
+
+fn main() {
+    println!("{:?}", strip_comment("apples, pears # and bananas", &['#', ';']));
+    println!("{:?}", strip_comment("apples, pears ; and bananas", &['#', ';']));
+    println!("{:?}", strip_comment("apples, pears and bananas ", &['#', ';']));
+}