RosettaCodeData/Task/Tokenize-a-string/Quackery/tokenize-a-string.quackery

11 lines
263 B
Plaintext

[ [] [] 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