rule: [while [not ["--"] skip] some "-"]
parse "a-bc----d" [rule ??]
отпечатки
??: "d"
Но мне нужно более эффективное правило (например, используя to #"-"
) ...
РЕДАКТИРОВАТЬ:
t: copy "" append/dup t "." 10000 append t "-..---..--"
rule: [while [not ["--"] skip] some "-"]
print [delta-time [loop 1000 [parse t [rule] ]]]
=> ~ 15,4 сек на моем телефоне
rule: [any ["--" break | skip] any "-"]
=> ~ 8,2 сек
rule: [to "--" some "-"]
(ответ @sqlab)
=> ~ 0,3 с