Tokenize a string: Difference between revisions
Content added Content deleted
m (→{{header|Mathematica}}: Saved a character) |
(Added Quackery.) |
||
Line 2,584: | Line 2,584: | ||
END FUNCTION ' | End of function. |
END FUNCTION ' | End of function. |
||
</lang> |
</lang> |
||
=={{header|Quackery}}== |
|||
<lang Quackery> [ [] [] rot |
|||
witheach |
|||
[ dup char , = iff |
|||
[ drop nested join [] ] |
|||
else join ] |
|||
nested join ] is tokenise ( $ --> [ ) |
|||
[ witheach [ echo$ say "." ] ] is display ( [ --> ) |
|||
$ "Hello,How,Are,You,Today" tokenise display</lang> |
|||
{{Out}} |
|||
<pre>Hello.How.Are.You.Today.</pre> |
|||
=={{header|R}}== |
=={{header|R}}== |