ABC problem: Difference between revisions
Content deleted Content added
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>
|