From 9b7d337e9bf576c170d20db4d1f560c7b0dc82e7 Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 00:03:55 -0300 Subject: [PATCH] add mod --- src/rustint/core.clj | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 412b0a2..eb03d15 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1947,6 +1947,10 @@ ; LTE: Como ADD, pero calcula la operacion relacional <= entre los dos valores. LTE (let [res (aplicar-operador-diadico <= pila)] (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) + + ; MOD: Como ADD, pero calcula el resto de la division. + MOD (let [res (aplicar-operador-diadico rem pila)] + (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) ) ) )