|
|
|
@ -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: 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 [ |
|
|
|
SQRT (let [ |
|
|
|
res (Math.sqrt (last pila)), |
|
|
|
res (Math/sqrt (last pila)), |
|
|
|
nueva_pila (assoc pila (- (count pila) 1) res) |
|
|
|
nueva_pila (assoc pila (- (count pila) 1) res) |
|
|
|
] |
|
|
|
] |
|
|
|
(recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) |
|
|
|
(recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) |
|
|
|
|