by shigemk2

当面は技術的なことしか書かない

対話によるCommon Lisp入門 37 member その2

x が yより前の要素なら真さもなくば偽。
member関数の結果に対してmember関数を利用している。

[3]> (setf can '(michael holger irmin jaki malcolm))
(MICHAEL HOLGER IRMIN JAKI MALCOLM)
[6]> (defun ordered-p (can x y)
(member y (member x can)))
ORDERED-P
[7]> (ordered-p can 'malcolm 'damo)
NIL
[8]> (ordered-p can 'jaki 'malcolm)
(MALCOLM)
[9]> (trace ordered-p)
;; Tracing function ORDERED-P.
(ORDERED-P)
[10]> (ordered-p can 'jaki 'malcolm)
1. Trace: (ORDERED-P '(MICHAEL HOLGER IRMIN JAKI MALCOLM) 'JAKI 'MALCOLM)
1. Trace: ORDERED-P ==> (MALCOLM)
(MALCOLM)