Last letter-first letter: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed wording in the REXX section header, added whitespace.) |
m (→optimized version: added whitespace.) |
||
| Line 3,797: | Line 3,797: | ||
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 /*is this a dead word?*/ |
if !.1.F>1 | !.9.L>1 then iterate /*is this a dead word?*/ |
||
say 'ignoring dead word:' @.v; ig=ig+1; |
say 'ignoring dead word:' @.v; ig= ig+1; @= delword(@, v, 1) |
||
end /*v*/ /*delete dead word from @ ──┘ */ |
end /*v*/ /*delete dead word from @ ──┘ */ |
||
#= words(@) /*recalculate the number of words in @.*/ |
#= words(@) /*recalculate the number of words in @.*/ |
||