Я прохожу свой путь через Стиль компьютерных наук с логотипом с использованием UCB Logo 6.0 на Win10
Один из примеров - процедура extract на этой странице: https://people.eecs.berkeley.edu/~bh/v2ch1/files.html
Моя проблема в том, что он будет читать только одну строку из файла, когда я думаю, что он должен прочитать все до конца файла. Я создал файл примера (адресную книгу в виде простого текста), используя Notepad.exe с двумя записями, разделенными жесткой клавишей возврата (ENTER).
Вот процедура и пример ее использования из книги:
to extract :word :file
openread :file
setread :file
extract1 :word
setread []
close :file
end
to extract1 :word
local "line
if eofp [stop]
make "line readlist
if memberp :word :line [print :line]
extract1 :word
end
Чтобы использовать его: ? extract "brian "phonelist (с phonelist именем файла)
И результат должен быть:
Brian Harvey 555-2368
Brian Silverman 555-5274
Мой файл примера имел2 линии Брайана, но только первая получена. Есть идеи, что происходит? - Спасибо