fix dividir

master
CrossNox 3 years ago
parent f23a497aec
commit 819a50f07e
  1. 7
      src/rustint/core.clj

@ -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)
)
)

Loading…
Cancel
Save