Какой самый быстрый/эффективный способ подсчета строк в Rebol?

Расширенная версия PARSE, предложенная BrianH:

i: 1 ; add one as TextMate
parse text [any [thru newline (++ i)]]
print i

Вот лучшая простая версия без parse, которую я могу придумать:

count-lines: function [text [string!]] [
    i: 1
    find-all text newline [++ i]
    i
]

Он использует function и ++ из более поздних версий Rebol и find-all из R3 или R2/Forward. Вы можете посмотреть исходный код find-all и встроить то, что найдете и оптимизируете, но именно для таких ситуаций мы и написали find-all, так почему бы не использовать его?

Вот лучшее для меня:

temp: read/lines %mytext.txt
length? temp

remove-each может быть быстрым, так как он родной

s: "1^/2^/3"
a: length? s
print a - length? remove-each v s [v = #"^/"]
; >> 2

или как функция

>> f: func [s] [print [(length? s) - (length? remove-each v s [v = #"^/"])]]
>> f "1^/2^/3"
== 2

Интересно, почему никто не предложил самое простое решение :)

t: "abc^/de^/f^/ghi"
i: 0 until [i: i + 1 not t: find/tail t newline] i
== 4

Не уверен насчет производительности, но я думаю, что это довольно быстро, так как UNTIL и FIND являются нативными. WHILE также можно использовать.

i: 1 while [t: find/tail t newline] [i: i + 1] i
== 4

Просто нужно проверить пустую строку. И если это будет функция, ряд аргументов должен быть HEADed.

Не самое эффективное, но, вероятно, одно из самых быстрых решений (в любом случае, если запустить тест, я хотел бы посмотреть, как это решение работает):

>> s: "1^/2^/ ^/^/3"
>> (length? s) - length? trim/with copy s newline
== 4

Не знаю насчет производительности и правила последней строки (r3).

>> length? parse "1^/2^/3" "^/"
== 3

хе-хе-хе длина чтения/строк? temp - отличная штука, я думаю о read/lines -> foreach lines temps [count: count + 1]

другой способ сделать это - сделать

temp: "line 1 ^M line2 ^M  line3 ^M "
length? parse temp newline ; that cuts the strings into a block 
;of multiple strings that represent each a line [ "line 1" "line2" "line3" ] 
:then you count how much  strings you have in the block with length? 

Мне нравится программировать в реболе, это так забавно

Изменить. Я не читал весь пост, поэтому мое решение уже было предложено по-другому...

хорошо, чтобы исправить мой грех публикации уже опубликованного решения, я приведу комментарий к неожиданному поведению этого решения. Множественные возвраты каретки в цепочке не учитываются (с использованием rebol3 linux...)

>> a: "line1 ^M line2 ^M line3 ^M^M"
== "line1 ^M line2 ^M line3 ^M^M"

>> length? parse a newline 
== 3