Lisp Scheme Part24
■ このスレッドは過去ログ倉庫に格納されています
0322デフォルトの名無しさん
2008/11/11(火) 10:51:55(define multirember
(lambda (waha musu)
(cond
((null? musu) (quote ()))
((eq? (car musu) waha) (multirember waha (cdr musu)))
(else (cons (car musu) (multirember waha (cdr musu)))))))
(multirember 'tuna '(tuna octopus cram))
■ このスレッドは過去ログ倉庫に格納されています