home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d885 / false.lha / False / other / eval.f < prev    next >
Encoding:
Text File  |  1993-07-16  |  422 b   |  12 lines
  1. {
  2. SYNTAX: a.out <Expression> <operand> <Expression>
  3.         <Expression> = num |  (<Expression> <operand> <Expression> )
  4.   ex.: a.out (((3*(4+2))-2)^2)-4
  5. }
  6. [^a:a;'(=$[m;!b:^a:]?~[a;0b:[a:'0 a;>~'91+a;>&][b;10
  7. *b:a;'0-b;+b:^]#]?b;[a;32=][^a:]#a;^a:a;'(=$[m;!b:^a
  8. :]?~[a;0b:[a:'0a;>~'91+a;>&][b;10*b:a;'0-b;+b:^]#]?b
  9. ;b:o:a:o;'*=[a;b;*]?o;'+=[a;b;+]?o;'-=[a;b;-]?o;'/=[
  10. a;b;/]?o;'^=[a;c:[b;1>][c;a;*c:b;1-b:]#c;]?]m:m;!."
  11. "
  12.