Lisp Scheme Part22 - 暇つぶし2ch

Lisp Scheme Part22 at TECH

68:デフォルトの名無しさん
08/05/23 23:43:43
>>62
(define (誰かひとりが犯人? . ls)
(cond
((eq? (car ls) '有罪) (and (eq? (cadr ls) '無罪) (eq? (caddr ls) '無罪)))
((eq? (cadr ls) '有罪) (and (eq? (car ls) '無罪) (eq? (caddr ls) '無罪)))
((eq? (caddr ls) '有罪) (and (eq? (car ls) '無罪) (eq? (cadr ls) '無罪)))
(else #f)))

こうだよねｗ

次ページ

続きを表示

1を表示