屑俺日記

☆ 2で割ると1余り、3で割ると....6で割ると5余る100以下の整数

以前見かけたクイズ。

(defun divdiv (n)
  (cond
   ((zerop n) nil)
   ((and
     (eq (% n 2) 1)
     (eq (% n 3) 2)
     (eq (% n 4) 3)
     (eq (% n 5) 4)
     (eq (% n 6) 5))
    n)
   (t
    (divdiv (1- n)))))
 
(divdiv 99)
59

(defun divdiv2 (n)
  (cond
   ((zerop n) nil)
   ((=
     (- (% n 2) 1)
     (- (% n 3) 2)
     (- (% n 4) 3)
     (- (% n 5) 4)
     (- (% n 6) 5))
    n)
   (t
    (divdiv2 (1- n)))))
 
(divdiv2 99)
59

☆ 解は一つとは限らない

リストにしてみた。

(defun divdiv3 (n)
  (cond
   ((zerop n) nil)
   ((and
     (= (% n 2) 1)
     (= (% n 3) 2)
     (= (% n 4) 3)
     (= (% n 5) 4)
     (= (% n 6) 5))
    (cons n
          (divdiv3 (1- n))))
   (t
    (divdiv3 (1- n)))))
 
(divdiv3 200)
(179 119 59)