From 819a50f07e7366fa0c903c1c460ef8f64d28ce47 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 10:30:52 -0300 Subject: [PATCH] fix dividir --- src/rustint/core.clj | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 5df416a..911d136 100644 --- a/src/rustint/core.clj +++ b/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) ) )