CLISP：檢查兩個元素都在陸續爲了一個在列表中

Question

我有一個列表

L=(1 j 3 k 4 h 5 n 6 w) 

我需要做的功能驗證，將驗證，如果第一個原子是第二了。 我想驗證這一點：

> Verify(3 k) 

結果應該返回

> T 

//因爲原子 '3' 是原子 'K'

之前，在這種情況下：

>Verify(h 4) 

結果應該返回

> NIL 

//因爲原子「H」是原子後「4」

我要檢查每一個元素的位置和比較位置

您正在使用什麼方言的Lisp的

Answer 1

？下面是關於如何得到一個解決方案的一些三分球，填充了空白：

(define (verify lst a b) 
     ; what happens if there's only one element left in the list? 
    (cond ((null? (cdr lst)) <???>) 
     ; how do we check if the current element is equal to the `a` parameter 
     ; and the next element is equal to the `b` parameter? 
     (<???> T) 
     ; how do we continue traversing the rest of the list? 
     (else (verify <???> a b)))) 

;;; tests 

(define lst '(1 j 3 k 4 h 5 n 6 w)) 

(verify lst 3 'k) 
> T 
(verify lst 'h '4) 
> F 

Answer 2

這是一個班輪Common Lisp中：

(defun verify (list a b) 
    (member b (member a list))) 

注意它不返回T或NIL，但是「廣義布爾值」（除了nil之外的任何值都爲真）。這是Lisp語言的一個基本概念：

http://clhs.lisp.se/Body/26_glo_g.htm#generalized_boolean

這還假定「之前」的意思是「之前的任何地方」。你的家庭作業問題看起來可能與「之前」有關。應該很容易修改。