屑俺日記

☆ なんか違う

手習い本の数遊びを少しめくって、同じ結果になるように 自分の頭で書いてみた。しかし。

(defun plusone (one)
  (+ one 1))
 
(defun minusone (one)
  (- one 1))
 
(defun myplus (one two)
  (cond
   ((zerop two) one)
   (t
    (myplus (plusone one)
            (minusone two)))))
 
(defun myminus (one two)
  (cond
   ((zerop two) one)
   (t
    (myminus (minusone one)
             (minusone two)))))

(myplus	5 9)
14
(myminus 10 8)
2

手習い本には再帰が (plusone (myplus one (minusone two))) のように書いてあったのだけど。