Anonymous user
Last letter-first letter: Difference between revisions
m
→{{header|REXX}}: changed wording in the REXX section header, added whitespace.
m (→{{header|Phix}}: try is now a reserved keyword) |
m (→{{header|REXX}}: changed wording in the REXX section header, added whitespace.) |
||
Line 3,691:
{{trans|ooRexx}}
===brute force version===
(This program is modeled after the ooRexx version, but with a
<br><br>This REXX version allows a limit on the word scan (very useful for testing and debugging), and
<br>also has various speed optimizations.
Line 3,706:
do v=# by -1 for # /*scrub the @ list for unusable words. */
parse var @.v F 2 '' -1 L /*obtain first and last letter of word.*/
if !.1.F>1 | !.9.L>1 then iterate
say 'ignoring dead word:' @.v; ig= ig+1; @= delword(@, v, 1)
end /*v*/ /*delete dead word from @ ──┘ */
Line 3,796:
do v=# by -1 for # /*scrub the @ list for unusable words. */
parse var @.v F 2 '' -1 L /*obtain first and last letter of word.*/
if !.1.F>1 | !.9.L>1 then iterate
say 'ignoring dead word:' @.v; ig=ig+1; @=delword(@, v, 1)
end /*v*/ /*delete dead word from @ ──┘ */
| |||