Используйте open с / direct и / lines уточнение для прямой записи в файл без буферизации содержимого:
file: open/direct/lines/write %myfile.txt
loop 1000 [
t: random "abcdefghi"
append file t
]
Close file
Это напишет 1000 случайных строк без буферизации.
Вы также можете подготовить блок строк (скажем, 10000 строк), а затем записать его непосредственно в файл, это будет быстрее, чем запись построчно.
file: open/direct/lines/write %myfile.txt
loop 100 [
b: copy []
loop 1000 [append b random "abcdef"]
append file b
]
close file
это будет намного быстрее, 100000 строк меньше секунды.
Надеюсь, это поможет.
Обратите внимание, что вы можете изменить число 100 и 1000 в зависимости от ваших потребностей в памяти вашего компьютера и использовать b: make block! 1000 вместо b: copy [], это будет быстрее.