Anonymous user
Tokenize a string: Difference between revisions
→{{header|Euphoria}}: Euphoria example added
(Added Nemerle) |
(→{{header|Euphoria}}: Euphoria example added) |
||
Line 369:
io:fwrite("~s~n", [string:join(Lst,".")]),
ok.</lang>
=={{header|Euphoria}}==
<lang euphoria>function split(sequence s, integer c)
sequence out
integer first, delim
out = {}
first = 1
while first<=length(s) do
delim = find_from(c,s,first)
if delim = 0 then
delim = length(s)+1
end if
out = append(out,s[first..delim-1])
first = delim + 1
end while
return out
end function
sequence s
s = split("Hello,How,Are,You,Today", ',')
for i = 1 to length(s) do
puts(1, s[i] & ',')
end for</lang>
=={{header|Factor}}==
| |||