Initial data commit

Task/ABC-problem/Bracmat/abc-problem.bracmat

@@ -0,0 +1,48 @@
+(
+  ( can-make-word
+  =   ABC blocks
+    .       (B O)
+          + (X K)
+          + (D Q)
+          + (C P)
+          + (N A)
+          + (G T)
+          + (R E)
+          + (T G)
+          + (Q D)
+          + (F S)
+          + (J W)
+          + (H U)
+          + (V I)
+          + (A N)
+          + (O B)
+          + (E R)
+          + (F S)
+          + (L Y)
+          + (P C)
+          + (Z M)
+        : ?blocks
+      & ( ABC
+        =   letter blocks A Z
+          .   !arg:(.?)
+            |   !arg:(@(?:%?letter ?arg).?blocks)
+              &   !blocks
+                :   ?
+                  + ?*(? !letter ?:?block)
+                  + (?&ABC$(!arg.!blocks+-1*!block))
+        )
+      &   out
+        $ ( !arg
+            ( ABC$(upp$!arg.!blocks)&yes
+            | no
+            )
+          )
+  )
+& can-make-word'A
+& can-make-word'BARK
+& can-make-word'BOOK
+& can-make-word'TREAT
+& can-make-word'COMMON
+& can-make-word'SQUAD
+& can-make-word'CONFUSE
+);