kozima #6429(2008/06/04 08:07 GMT) [ Common Lisp ] Rating0/0=0.00
書いてみたら意外とすっきり。
1 2 3
(defun check (list) (loop for (x . xs) on list always (or (every (lambda (y) (< x y)) xs) (every (lambda (y) (> x y)) xs))))
Rating0/0=0.00-0+
1 reply [ reply ]
kozima
#6429()
[
Common Lisp
]
Rating0/0=0.00
書いてみたら意外とすっきり。
(defun check (list) (loop for (x . xs) on list always (or (every (lambda (y) (< x y)) xs) (every (lambda (y) (> x y)) xs))))Rating0/0=0.00-0+
1 reply [ reply ]