Data update

Task/ABC-problem/EMal/abc-problem.emal

@@ -0,0 +1,28 @@
+List words ← text["", "A", "Bark", "book", "TREAT", "COMMON", "SQuAd", "CONFUSE"]
+List checks ← logic[true, true, true, false, true, false, true, true]
+fun canMakeWord ← logic by text word
+  if word.length æ 0 do return true end
+  List wblocks ← text[
+    "BO", "XK", "DQ", "CP", "NA",
+    "GT", "RE", "TG", "QD", "FS",
+    "JW", "HU", "VI", "AN", "OB",
+    "ER", "FS", "LY", "PC", "ZM"]
+  for each text ch in word.upper().split()
+    logic found ← false
+    for each text wblock in wblocks
+      if wblock.find(ch) ≥ 0
+        wblocks[wblockIndex] ← Text.EMPTY
+        found ← true
+        break
+      end
+    end
+    if not found do return false end
+  end
+  return true
+end
+writeLine("word".padEnd(11, " "), "|", "canMakeWord", "|", "isCorrect")
+for each text word in words
+  writeLine(word.padEnd(11, " "), "|",
+    (text!canMakeWord(word)).padEnd(11, " "), "|",
+	(canMakeWord(word) æ checks[wordIndex]))
+end