ABC problem: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add SETL) |
Not a robot (talk | contribs) (Add ABC) |
||
Line 831: | Line 831: | ||
True |
True |
||
</pre> |
</pre> |
||
=={{header|ABC}}== |
|||
<syntaxhighlight lang="ABC">HOW TO REPORT word can.be.made.with blocks: |
|||
FOR letter IN upper word: |
|||
IF NO block IN blocks HAS letter in block: FAIL |
|||
REMOVE block FROM blocks |
|||
SUCCEED |
|||
PUT {"BO";"XK";"DQ";"CP";"NA";"GT";"RE";"TG";"QD";"FS"} IN blocks |
|||
PUT {"JW";"HU";"VI";"AN";"OB";"ER";"FS";"LY";"PC";"ZM"} IN blocks2 |
|||
FOR block IN blocks2: INSERT block IN blocks |
|||
PUT {"A";"BARK";"BOOK";"treat";"common";"Squad";"CoNfUsE"} IN words |
|||
FOR word IN words: |
|||
WRITE word, ": " |
|||
SELECT: |
|||
word can.be.made.with blocks: WRITE "yes"/ |
|||
ELSE: WRITE "no"/</syntaxhighlight> |
|||
{{out}} |
|||
<pre>A: yes |
|||
BARK: yes |
|||
BOOK: no |
|||
CoNfUsE: yes |
|||
Squad: yes |
|||
common: no |
|||
treat: yes</pre> |
|||
=={{header|Action!}}== |
=={{header|Action!}}== |