@ -2582,10 +2582,9 @@
; 0.5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn dividir [arg1 arg2]
(
cond
(and (float? arg2) (int? arg1)) (/ arg1 arg2)
:else (quot arg1 arg2)
(if (and (int? arg1) (int? arg2))
(quot arg1 arg2)
(/ arg1 arg2)
)