Data commit

Task/ABC-problem/ERRE/abc-problem.erre

@@ -0,0 +1,28 @@
+PROGRAM BLOCKS
+
+!$INCLUDE="PC.LIB"
+
+PROCEDURE CANMAKEWORD(WORD$)
+   LOCAL B$,P%
+   B$=BLOCKS$
+   PRINT(WORD$;" -> ";)
+   P%=INSTR(B$,CHR$(ASC(WORD$) AND $DF))
+   WHILE P%>0 AND WORD$>"" DO
+      CHANGE(B$,P%-1+(P% MOD 2),".."->B$)
+      WORD$=MID$(WORD$,2)
+      EXIT IF WORD$=""
+      P%=INSTR(B$,CHR$(ASC(WORD$) AND $DF))
+   END WHILE
+   IF WORD$>"" THEN PRINT("False") ELSE PRINT("True") END IF
+END PROCEDURE
+
+BEGIN
+  BLOCKS$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM"
+  CANMAKEWORD("A")
+  CANMAKEWORD("BARK")
+  CANMAKEWORD("BOOK")
+  CANMAKEWORD("TREAT")
+  CANMAKEWORD("COMMON")
+  CANMAKEWORD("SQUAD")
+  CANMAKEWORD("Confuse")
+END PROGRAM