Initial data commit

Task/Amb/Factor/amb.factor

@@ -0,0 +1,20 @@
+USING: backtrack continuations kernel prettyprint sequences ;
+IN: amb
+
+CONSTANT: words {
+    { "the" "that" "a" }
+    { "frog" "elephant" "thing" }
+    { "walked" "treaded" "grows" }
+    { "slowly" "quickly"  }
+}
+
+: letters-match? ( str1 str2 -- ? ) [ last ] [ first ] bi* = ;
+
+: sentence-match? ( seq -- ? ) dup rest [ letters-match? ] 2all? ;
+
+: select ( seq -- seq' ) [ amb-lazy ] map ;
+
+: search ( -- )
+    words select dup sentence-match? [ " " join ] [ fail ] if . ;
+
+MAIN: search