fix sqrt, bad syntax

master
CrossNox 3 years ago
parent eae46f8ec0
commit 8461be5a41
  1. 2
      src/rustint/core.clj

@ -1988,7 +1988,7 @@
; 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)),
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)

Loading…
Cancel
Save