No sé mucho sobre el ensamblaje, pero estoy bastante seguro de que hay instrucciones de raíz cuadrada en el x86. Intento que la función de raíz cuadrada funcione bien en espuma y la que he encontrado se empantana de alguna manera cuando la ejecuto muchas veces.Función de raíz cuadrada en adelante utilizando el ensamblaje x86?
: sqrt-closer (square guess -- square guess adjustment)
2dup/over - 2/
;
: sqrt (square -- root)
1 begin
sqrt-closer dup
while + repeat
drop nip ;
's" espuma "obfuscated-forth count str = .' –