Anonymous user
Changeable words: Difference between revisions
m
→{{header|REXX}}: used more idiomatic code.
m (→{{header|REXX}}: changed the word count.) |
m (→{{header|REXX}}: used more idiomatic code.) |
||
Line 1,106:
end /*k*/
end /*j*/
say copies('─', 30) finds ' changeable words found with a minimum length of ' minL
exit 0 /*stick a fork in it, we're all done. */
Line 1,117 ⟶ 1,118:
upper x; @.x= $.n /*assign uppercased word ───► array. */
end /*#*/ /* [↑] semaphore name is uppercased. */
#= # - 1 /*adjust word count because of DO loop.*/
say copies('─', 30) #
return</lang>
{{out|output|text= when using the default inputs:}}
| |||