Initial data commit

Task/Amb/Ela/amb-1.ela

@@ -0,0 +1,15 @@
+open list core
+
+amb xs = x where
+  (Some x) = & join xs ""
+  join (x::xs) = amb' x (join xs)
+  join [] = \_ -> Some ""
+  eq' [] x = true
+  eq' w x  = last w == head x
+  amb' [] _ _ = None
+  amb' (x::xs) n w
+    | eq' w x =
+    match n x with
+          Some v = Some (x ++ " " ++ v)
+          _ = amb' xs n w
+    | else = amb' xs n w

Task/Amb/Ela/amb-2.ela

@@ -0,0 +1,6 @@
+amb [
+       ["the","that","a"]
+      ,["frog","elephant","thing"]
+      ,["walked","treaded","grows"]
+      ,["slowly","quickly"]
+    ]