我想将包含单词列表(每行一个单词)的文件读入列表中。
(define (read-wordlist myFile)
(begin
(set 'listA '())
(set 'in-file (open myFile "read"))
(while (read-line in-file)
(set 'listA (append listA (list (current-line)))))
(close in-file)))
此函数将文件读入列表listA
假设我有wordlist.txt
Lemon
Orange
Lime
Mango
Pawpaw
Strawberry
Apple
Watermelon
Banana
我明白了
> (read-my-file "wordlist.txt")
true
> listA
("Lemon" "Orange" "Lime" "Mango" "Pawpaw" "Strawberry" "Apple" "Watermelon" "Banana")
2个参数
我现在想要一个将文件读入列表的函数,我可以在其中指定名称。
(define (read-wordlist2 myFile myList)
(begin
(set myList '())
(set 'in-file (open myFile "read"))
(while (read-line in-file)
(set myList (append myList (list (current-line)))))
(close in-file)))
然而调用
(read-wordlist2 "wordlist.txt" 'myWordList)
给出错误
ERR: array, list or string expected in function append : myWordList
called from user defined function read-my-file2
如何更改 的定义read-wordlist2
以使其工作?