Anonymous user
ABC problem: Difference between revisions
m
→{{header|REXX}}: added an archaic form of spelling. -- ~~~~
m (→{{header|REXX}}: made the toy block letters to match the task's version of the blocks. -- ~~~~) |
m (→{{header|REXX}}: added an archaic form of spelling. -- ~~~~) |
||
Line 168:
=={{header|REXX}}==
<lang rexx>/*REXX
blocks = 'BO XK DQ CP NA GT RE TG QD FS JW HU VI AN OB ER FS LY PC ZM'
list = 'A baRk bOOk trEat coMMon squaD conFuse' /*can be in any case. */
Line 199:
if x=='' then x="(null)" /*express a NULL better.*/
say right(x,20) right(word("can't can",OK+1),6) 'be
return OK /*also, return flag. */</lang>
'''output'''
<br>[Spelling note: '''spelt''' is an alternate version of '''spelled'''.]
<pre>
(null) can't be
A can be
BARK can be
BOOK can't be
TREAT can be
COMMON can't be
SQUAD can be
CONFUSE can be
</pre>
|