讀取文件時使用的Common Lisp

Question

列出的清單我需要閱讀使用Common Lisp的一個文本文件。文件必須讀取到列表的列表。列表中的每個列表都必須包含來自文件的一行。

現在，我已經做了這樣的代碼：

(with-open-file (in file) 
    (loop for line = (read-line in nil nil) 
     while line 
     collect (coerce line 'list))) 

但是，例如，rusult看起來爲：（（＃\ 0＃\ 0＃\ 0）（＃\ 1＃\ 0＃\ 1））。但是我需要有沒有＃\字符的結果：（（0 0 0）（1 0 1））。如何解決它？

Answer 1

你行已轉換爲字符的列表; 所有你需要做的是將字符轉換爲數字：

(with-open-file (in file) 
    (loop for line = (read-line in nil nil) 
    while line 
    collect (map 'list #'digit-char-p line))) 

您還可以使用(parse-integer (string c))代替digit-char-p，但似乎矯枉過正。