Tokenize a string: Difference between revisions
Content added Content deleted
(Added Snobol4) |
(Adding MUMPS example) |
||
Line 634: | Line 634: | ||
IO.Put("\n"); |
IO.Put("\n"); |
||
END Tokenize.</lang> |
END Tokenize.</lang> |
||
=={{header|MUMPS}}== |
|||
<lang MUMPS>TOKENS |
|||
NEW I,J,INP |
|||
SET INP="Hello,how,are,you,today" |
|||
NEW I FOR I=1:1:$LENGTH(INP,",") SET INP(I)=$PIECE(INP,",",I) |
|||
NEW J FOR J=1:1:I WRITE INP(J) WRITE:J'=I "." |
|||
KILL I,J,INP |
|||
QUIT</lang> |
|||
In use:<pre>USER>D TOKENS^ROSETTA |
|||
Hello.how.are.you.today</pre> |
|||
=={{header|Objective-C}}== |
=={{header|Objective-C}}== |