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