2017-02-15 29 views
0

編輯:找出最初的問題。現在它說sel2沒有函數,我不確定它爲什麼認爲我在sel2是一個列表時調用一個函數。它看起來像被稱爲我的名單。錯誤:<輸入級聯流的空字符>

我覺得我在做一些愚蠢的事情,但對於我的生活我無法弄清楚。我應該製作一個反轉列表的功能(可以使用反向功能)和一個檢測列表是否包含迴文的功能。到目前爲止,我有:

(defun Myreverse (sel) 

    (return-from Myreverse (reverse sel)) 
) 

(defun Palindrome (sel2) 
    (if (= sel2 (reverse (sel2))) 
     (return-from Palindrome (write "Yes")) 
    ) 
    (write "No") 
) 

(Myreverse '(1 2 3 4)) 

有誰知道我「在做錯誤的。如果是這樣,你可以點我在正確的方向

READ from #<INPUT CONCATENATED-STREAM #<INPUT UNBUFFERED FILE-STREAM CHARACTER @7>>: illegal character #\Null 

多謝

+0

很難說你做錯了什麼,因爲你沒有告訴我們你在做什麼。有一些代碼和一條消息。但是你做了什麼?誰在印刷該消息? –

+0

我將代碼複製並粘貼到lisp控制檯中 –

+0

我確實說過我在做什麼......我製作了兩個函數並調用其中一個函數(myreverse)。 –

回答

0

?。 。解決我自己的問題,按照上述意見也解決了函數調用問題

新代碼:

(defun Myreverse (sel) 

    (reverse sel) 
) 

(defun Palindrome (pal) 
    (equal pal (reverse pal)) 
) 
+0

變量REV沒有在任何地方聲明。它是未定義的。這也不是必需的。 –

+0

是的。我將編輯代碼。 –