プログラミングコンテストチャレンジブック 第2版 1-6 Ants

「1-6 Ants」

今回のは Series っぽく書けた。 :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)))))