Anonymous user
ABC problem: Difference between revisions
no edit summary
No edit summary |
|||
Line 4,372:
</pre>
=={{header|M2000 Interpreter}}==
<lang M2000 Interpreter>
Module ABC {
can_make_word("A")
can_make_word("BaRk")
can_make_word("BOOK")
can_make_word("TREAT")
can_make_word("CommoN")
can_make_word("SQUAD")
can_make_word("CONFUSE")
Sub can_make_word(c$)
local b$=ucase$(c$)
local i, a$="BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM", m
for i=1 to len(b$)
m=Instr(a$,mid$(b$, i, 1))
If m=0 Then Exit for
Insert binary.or(m-1, 1),2 a$="" ' delete 2 chars
Next i
Print c$, m<>0
End Sub
}
ABC
</lang>
{{out}}
<pre >
A True
BaRk True
BOOK False
TREAT True
CommoN False
SQUAD True
CONFUSE True
</pre >
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>
| |||