From eae46f8ec053e1baed040a7d598749db15beda0c Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 05:41:39 -0300 Subject: [PATCH] agrego sqrt --- src/rustint/core.clj | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/rustint/core.clj b/src/rustint/core.clj index c8f59d9..68de54d 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1986,6 +1986,14 @@ AND (let [res (aplicar-operador-diadico and-diadico pila)] (if (nil? res) res (recur cod regs-de-act (inc cont-prg) res mapa-regs))) + ; SQRT: Incrementa cont-prg en 1, quita de la pila un elemento numerico, calcula su raiz cuadrada y la coloca al final de la pila. + SQRT (let [ + res (Math.sqrt (last pila)), + nueva_pila (assoc pila (- (count pila) 1) res) + ] + (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) + ) + ) ) )