08/04/01 01:18:45
;;
;; parts
;;
(defvar *kt* nil)
(defun fkt(n)
(let ((leng (length *kt*)))
(nth (- leng n) *kt*)))
(defun frt(n)
(cond ((= 0 n) (cons (list 0) (list 1)))
((= 1 n) (cons (list 1) (takou- (list 0) (fkt 1))))
(t (ft- (frt (- n 2)) (ft* (fkt n) (frt (- n 1)))))))
(defun ft-(x y)
(cons (takou- (car x) (car y)) (takou- (cdr x) (cdr y))))
(defun ft*(n x)
(cons (takou* n (car x)) (takou* n (cdr x))))
;;
(defun euclidt(x y)
(setq *kt* nil)
(let ((a (copy-list x))
(b (copy-list y))
(n 0)
(m nil)
(work nil)
(l 0)
(mvalue 0)
(frv nil)
(first 1))