Anonymous user
Tokenize a string: Difference between revisions
m
→{{header|Icon}} and {{header|Unicon}}
No edit summary |
|||
Line 1,655:
<lang icon>procedure main()
A := []
"Hello,How,Are,You,Today" ?
while put(A, 1(tab(upto(',')|0),=","))
put(A,tab(0))
}
every writes(!A,".")
write()
Line 1,663 ⟶ 1,666:
<pre>
->ss
Hello.How.Are.You.Today.
->
</pre>
A Unicon-specific solution is:
<lang unicon>import util
procedure main()
A := stringToList("Hello,How,Are,You,Today", ',')
every writes(!A,".")
write()
end</lang>
=={{header|Io}}==
| |||