Data commit

Task/ABC-problem/Logo/abc-problem.logo

@@ -0,0 +1,21 @@
+make "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]]
+
+to can_make? :word [:avail :blocks]
+  if empty? :word [output "true]
+  local "letter make "letter first :word
+  foreach :avail [
+    local "i     make "i     #
+    local "block make "block ?
+    if member? :letter :block [
+      if (can_make? bf :word filter [notequal? # :i] :avail) [output "true]
+    ]
+  ]
+  output "false
+end
+
+foreach [A BARK BOOK TREAT COMMON SQUAD CONFUSE] [
+  print sentence word ? ": can_make? ?
+]
+
+bye