Category:Amazing Hopper: Difference between revisions

Content added Content deleted
Line 4,723: Line 4,723:
#include <stdio.hh>
#include <stdio.hh>
#include <math.hh>
#include <math.hh>

#context-free obtenercuadradodepi
#context-free obtenercuadradodepi
#define imprimeconunsalto {"\n"}print
#define imprimeconunsalto {"\n"}print
Line 4,739: Line 4,739:
El código anterior expande a:
El código anterior expande a:


main:
main:
emptystack?,not,do{{"No puedo continuar por datos en el stack "},throw(1000)}jsub(obtenercuadradodepi),{"\n"}print
emptystack?,not,do{{"No puedo continuar por datos en el stack "},throw(1000)}jsub(obtenercuadradodepi),{"\n"}print
{0}return
{0}return
.locals
.locals
obtenercuadradodepi:
obtenercuadradodepi:
{3.14159265358979323846}powby'2'
{3.14159265358979323846}powby'2'
back
back



==== #SYNONYMOUS, #SYNON ====
==== #SYNONYMOUS, #SYNON ====