September Morn Update

Task/Regular-expressions/NewLISP/regular-expressions.newlisp

@@ -0,0 +1 @@
+(regex "[bB]+" "AbBBbABbBAAAA") -> ("bBBb" 1 4)

Task/Regular-expressions/Ol/regular-expressions.ol

@@ -0,0 +1,11 @@
+; matching:
+(define regex (string->regex "m/aa(bb|cc)dd/"))
+(print (regex "aabbddx")) ; => true
+(print (regex "aaccddx")) ; => true
+(print (regex "aabcddx")) ; => false
+
+; substitute part of a string:
+(define regex (string->regex "s/aa(bb|cc)dd/HAHAHA/"))
+(print (regex "aabbddx")) ; => HAHAHAx
+(print (regex "aaccddx")) ; => HAHAHAx
+(print (regex "aabcddx")) ; => false

Task/Regular-expressions/Rust/regular-expressions.rust

@@ -0,0 +1,11 @@
+use regex::Regex;
+
+fn main() {
+    let s = "I am a string";
+
+    if Regex::new("string$").unwrap().is_match(s) {
+        println!("Ends with string.");
+    }
+
+    println!("{}", Regex::new(" a ").unwrap().replace(s, " another "));
+}

Task/Regular-expressions/Smalltalk/regular-expressions-2.st

@@ -0,0 +1,7 @@
+|re s s1|
+re := 'm[a-z]+ing' asRegex.
+s := 'this is a matching string'.
+
+(re search: s) ifTrue: [ 'matches!' ].
+
+s1 := re copy: s replacingMatchesWith: 'modified'.