Odd words: Difference between revisions

$.#= x; upper x; @.x= . /*save: original case and the semaphore*/

end /*#*/ /* [↑] semaphore name is uppercased. */

minW= minL * 2 - 1 /*minimum width of a word to be usable.*/

say copies('─', 30) # "words in the dictionary file: " iFID

ows= 0 /*count of the "odd words" found. */

if L<minW then iterate /*Is word too short? Then ignore it. */

ow= /*initialize the "odd word". */

say right(left($.j, 20), 24) left(ow, 9) /*indent original word for readability.*/

end /*j*/

{{out|output|text=&nbsp; when using the default input:}}

<pre>

barbarian brain

childbear cider