Data update

Task/ABC-problem/Refal/abc-problem.refal

@@ -0,0 +1,35 @@
+$ENTRY Go {
+    = <Each Show (<Blocks>) <Words>>;
+};
+
+Each {
+    s.F (e.Arg) = ;
+    s.F (e.Arg) t.I e.R = <Mu s.F t.I e.Arg> <Each s.F (e.Arg) e.R>;
+};
+
+Show {
+    (e.Word) e.Blocks = <Prout e.Word ': ' <CanMakeWord (e.Word) e.Blocks>>;
+};
+
+Blocks {
+    = ('BO') ('XK') ('DQ') ('CP') ('NA')
+      ('GT') ('RE') ('TG') ('QD') ('FS')
+      ('JW') ('HU') ('VI') ('AN') ('OB')
+      ('ER') ('FS') ('LY') ('PC') ('ZM');
+};
+
+Words {
+    = ('A') ('BARK') ('BOOK') ('TREAT')
+      ('common') ('squad') ('CoNfUsE');
+};
+
+CanMakeWord {
+    (e.Word) e.Blocks = <CanMakeWord1 (<Upper e.Word>) e.Blocks>;
+}
+
+CanMakeWord1 {
+    () e.Blocks = T;
+    (s.Ltr e.Word) e.Blocks1 (e.X s.Ltr e.Y) e.Blocks2
+        = <CanMakeWord1 (e.Word) e.Blocks1 e.Blocks2>;
+    (e.Word) e.Blocks = F;
+};