Xlisp - Divisão

[beuleal]

Olá amigos, estu estudando Xlisp, porem estou com dificuldades em realizar uma funcao de divisao, por enquanto somente com positivos.

Segue meu cod:

(defun div(x y)
    (cond ((equal x 0) (equal y 0) 0)
          ((equal x y) 1)
          ((equal y 1) x)
          ((equal x 0) 0)
          ((equal y 0) 0)         
          ('t (soma(div (subt (x y)) y) +1))))
          
(defun negativo (x)
    (cond ((equal x 0) 'nil)
          ('t (neg x x))))

(defun neg (a d)
    (cond ((equal a 0) 't)
          ((equal d 0) 'nil)
          ('t (neg (1+ a) (1- d)))))

(defun soma (x y)
    (cond ((equal y 0) x)
          ((negativo y) (soma (1- x) (1+ y)))
          ('t (soma (1+ x) (1- y)))))

(defun subt (x y)
    (cond ((equal y 0) x)
          ((negativo y) (subt (1+ x) (1+ y)))
          ('t (subt (1- x) (1- y)))))

[Jhonas]

veja

http://fit.faccat.br/~everton/lp/lisp.doc

http://www.pcmasmas.com/viewtopic.php?t=31189

http://www.estig.ipbeja.pt/~jasnau/Intelig...icial/guias.pdf

abraço

[beuleal]

eu noa posso usar funcoes predefinidas como / e *... Isso esta me enchendo o saco.

[Jhonas]

em um dos links vai achar a resposta

abraço