Anonymous user
Determine if a string is collapsible: Difference between revisions
m
→{{header|REXX}}: changed whitespace.
m (→{{header|REXX}}: add semaphore.) |
m (→{{header|REXX}}: changed whitespace.) |
||
Line 1,436:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
collapse: procedure expose collapsible; parse arg y 1 $ 2
do k=2 to length(y) /*traipse through almost all the chars.*/
_= substr(y, k, 1) /*pick a character from Y (1st arg). */
| |||