Multisplit: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Ring}}: Remove vanity tags) |
No edit summary |
||
Line 1,872: | Line 1,872: | ||
Extra Credit: a(!=)(==)b(=)(!=)c |
Extra Credit: a(!=)(==)b(=)(!=)c |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
<lang Yabasic>t$ = "a!===b=!=c" |
|||
s$ = "==,!=,=" |
|||
dim n$(1) |
|||
n = token(s$, n$(), ",") |
|||
dim p(n) |
|||
do |
|||
l = len(t$) |
|||
j = 0 |
|||
for i = 1 to n |
|||
p(i) = instr(t$, n$(i)) |
|||
if p(i) and p(i) < l then l = p(i) : j = i end if |
|||
next |
|||
if not j print t$ : break |
|||
print left$(t$, l - 1), " with separator ", n$(j) |
|||
t$ = right$(t$, len(t$) - (l + len(n$(j))) + 1) |
|||
loop</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |