agrego sqrt

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