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 #6430(2008/06/04 08:30 GMT) [ Haskell ] Rating1/1=1.00
Haskell の方がきれいに書けますね。
1 2 3 4
import Data.List check (x:xs) = (all (< x) xs || all (> x) xs) && check xs check [] = True
Rating1/1=1.00-0+
[ 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 ]