「1-6 Ants」
今回のは Series っぽく書けた。 :IMPLICIT-MAP T してあるので明示的にループやマップを書かなくてもいい。
:IMPLICIT-MAP T
;;;; 1-6 Ants(let ((l 10) (xs (scan '(2 6 7)))) (values (collect-max (min xs (- l xs))) (collect-max (max xs (- l xs)))))
0 件のコメント:
コメントを投稿