clのコードテスト

とりあえず、CLのコードが正しく表示されるかテスト投稿です。

ユークリッド互除法

(defun gcd (m n)
  (cond
    ((< m n) (gcd n m))
    ((= n 0) m)
    (t (gcd n (mod m n)))))

wikipedia:ユークリッドの互除法