%{
%}
dig [0-9]+|([0-9]*)"."([0-9]+)
add "+"
sub "-"
mul "*"
div "/"
pow "^"
ln \n
%%
{dig} {digi();}
{ln} {printf("\n The Answer :%f\n\n",a);}
%%
digi()
{
a=atof(yytext);
else
{
b=atof(yytext);
{
case 1:a=a+b;
break;
case 2:a=a-b;
break;
case 3:a=a*b;
break;
case 4:a=a/b;
break;
case 5:for(i=a;b>1;b--)
a=a*i;
break;
}
}
}
main(int argv,char*argc[])
{
yylex();
}
yywrap()
{
return1;
}
JXsKICAgIGludCBvcD0wLGk7CiAgICBmbG9hdCBhLCBiOwolfQpkaWcgWzAtOV0rfChbMC05XSopIi4iKFswLTldKykKYWRkICIrIgpzdWIgIi0iCm11bCAiKiIKZGl2ICIvIgpwb3cgIl4iCmxuIFxuCiUlCntkaWd9IHtkaWdpKCk7fQp7YWRkfSB7b3A9MTt9CntzdWJ9IHtvcD0yO30Ke211bH0ge29wPTM7fQp7ZGl2fSB7b3A9NDt9Cntwb3d9IHtvcD01O30Ke2xufSB7cHJpbnRmKCJcbiBUaGUgIEFuc3dlciA6JWZcblxuIixhKTt9CiUlCmRpZ2koKQp7CiAgaWYob3A9PTApCiAgYT1hdG9mKHl5dGV4dCk7CiAgIGVsc2UKICAgewogICAgYj1hdG9mKHl5dGV4dCk7CiAgICAgc3dpdGNoKG9wKQogICAgewogICAgICAgY2FzZSAxOmE9YStiOwogICAgICAgYnJlYWs7CiAgICAgICBjYXNlIDI6YT1hLWI7CiAgICAgICBicmVhazsKICAgICAgIGNhc2UgMzphPWEqYjsKICAgICAgIGJyZWFrOwogICAgICAgY2FzZSA0OmE9YS9iOwogICAgICAgYnJlYWs7CiAgICAgICBjYXNlIDU6Zm9yKGk9YTtiPjE7Yi0tKQogICAgICAgYT1hKmk7CiAgICAgICBicmVhazsKICAgIH0KICAgIG9wPTA7CiAgIH0KfQptYWluKGludCBhcmd2LGNoYXIqYXJnY1tdKQp7CiAgICB5eWxleCgpOwp9CiAgICB5eXdyYXAoKQogICAgewogICAgICAgIHJldHVybjE7CiAgICB9CiAgICAKCg==