Anonymous user
Reverse the gender of a string: Difference between revisions
→{{header|REXX}}: simplified the TELL subroutine, added output for the task's example.
m (→{{header|REXX}}: added some words, combined some similar word-pairs (statements) into one REXX statement.) |
(→{{header|REXX}}: simplified the TELL subroutine, added output for the task's example.) |
||
Line 1,124:
$=x
end /*until*/
if
say
return</lang>
This REXX program makes use of '''LINESIZE''' REXX program (or BIF) which is used to determine the screen width (or linesize) of the terminal (console).
<br>The '''LINESIZE.REX''' REXX program is included here ──► [[LINESIZE.REX]]. <br>
{{out|output|text= when using the input of: She was a soul stripper. She took my heart!}}
<pre>
───────────────────────────────────────────── old ─────────────────────────────────────────────
She was a soul stripper. She took my heart!
────────────────────── There're 2776 words in the gender bender list. ───────────────────────
───────────────────────────────────────────── new ─────────────────────────────────────────────
He was a soul stripper. He took my heart!
</pre>
{{out|output|text= when using the default input:}}
<pre>
| |||