Split a character string based on change of character: Difference between revisions

Content added Content deleted
Line 57: Line 57:
set mf to mReturn(f)
set mf to mReturn(f)
script furtherMatch
script matchPrevious
on lambda(y)
on lambda(y)
mf's lambda(x, y)
mf's lambda(x, y)
Line 63: Line 63:
end script
end script
set {ys, zs} to span(furtherMatch, tail(xs))
set {ys, zs} to span(matchPrevious, tail(xs))
set lstGroup to {{x} & ys}
set lstGroup to {{x} & ys}