diff --git a/src/rustint/core.clj b/src/rustint/core.clj index eb5c92c..d9b17d9 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1994,6 +1994,15 @@ (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) ) + ; SIN: Incrementa cont-prg en 1, quita de la pila un elemento numerico, calcula su seno y lo coloca al final de la pila. + SIN (let [ + res (Math/sin (last pila)), + nueva_pila (assoc pila (- (count pila) 1) res) + ] + (recur cod regs-de-act (inc cont-prg) nueva_pila mapa-regs) + ) + + ) ) )