fork download
copy 
  1. %{
  2.     int op=0,i;
  3.     float a, b;
  4. %}
  5. dig [0-9]+|([0-9]*)"."([0-9]+)
  6. add "+"
  7. sub "-"
  8. mul "*"
  9. div "/"
  10. pow "^"
  11. ln \n
  12. %%
  13. {dig} {digi();}
  14. {add} {op=1;}
  15. {sub} {op=2;}
  16. {mul} {op=3;}
  17. {div} {op=4;}
  18. {pow} {op=5;}
  19. {ln} {printf("\n The  Answer :%f\n\n",a);
  20. %%
  21. digi()
  22. {
  23.   if(op==0)
  24.   a=atof(yytext);
  25.    else
  26.    {
  27.     b=atof(yytext);
  28.      switch(op)
  29.    {
  30.        case 1:a=a+b;
  31.        break;
  32.    }
  33. }
  34.  
  35.  
Success #stdin #stdout #stderr 0.02s 7000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/UcUECM
language:
Prolog (swi 7.6.4)
created:
87 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!