Это Кира. Всем программерам втыкать, осознавать как это работает и переться как змеям в укропе. JUSTONE -- a word sorter. 9 April 1984 =======================================
/* This routine removes duplicate words from a string, */ /* and illustrates the use of a compound variable */ /* which is indexed by arbitrary data (words). */ Justone: procedure /* make all variables private */ parse arg wordlist /* get the list of words */ hadword.=0 /* show all possible words as new */ outlist='' /* initialise output list */ do while wordlist<>'' /* loop while have data */ /* split WORDLIST into first word and remainder */ parse var wordlist word wordlist if hadword.word then iterate /* loop if had word */ hadword.word=1 /* record that we have had word */ outlist=outlist word /* add word to output list */ end return outlist /* finally return the result */
![[livejournal.com profile]](https://www.dreamwidth.org/img/external/lj-userinfo.gif){kind=small}
![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png){kind=small}
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
timeasmymeasure
no subject
Date: 2005-06-29 07:14 am (UTC)REXX rulez
Date: 2005-06-29 01:01 pm (UTC)JUSTONE -- a word sorter. 9 April 1984
=======================================
/* This routine removes duplicate words from a string, */
/* and illustrates the use of a compound variable */
/* which is indexed by arbitrary data (words). */
Justone: procedure /* make all variables private */
parse arg wordlist /* get the list of words */
hadword.=0 /* show all possible words as new */
outlist='' /* initialise output list */
do while wordlist<>'' /* loop while have data */
/* split WORDLIST into first word and remainder */
parse var wordlist word wordlist
if hadword.word then iterate /* loop if had word */
hadword.word=1 /* record that we have had word */
outlist=outlist word /* add word to output list */
end
return outlist /* finally return the result */
no subject
Date: 2005-06-29 03:53 pm (UTC)no subject
Date: 2005-06-30 07:25 am (UTC)