Re: RPN maps to basic mathematic expressions nicely

"cr88192" <cr88192@[EMAIL PROTECTED]
> writes Re: RPN maps to basic mathematic
expressions nicely

> "Marcel Hendrix" <mhx@[EMAIL PROTECTED]
> wrote in message
news:21891138123560@[EMAIL PROTECTED]
> I meant, in general, not that one go and find some ugly monstrosity in
an 
> attempt to prove a point (absent citing any comprable example, say, in 
> forth).

But where would I find a comparably ugly monstrosity like that in Forth?

> so, here is the challenge:
> find some forth/postscript/... programs that can perform the same task,
and 
> demonstrates comprable or greater readability, with well-written code in

> both languages.
[..]

> but, here is one (comprable):
> println("hello\n");
> (hello\n) show

cr .( hello)

> how about:
> fun hyp(x,y) sqrt(x*x+y*y);
> {/x def /y def x x times y y times add sqrt} /hyp def

: hypothenuse { x y -- z } x fsqr  y fsqr f+  fsqrt ;
2e 3e hypothenuse f. 3.605551 ok

Maybe you can try something like  
  x y or  z *  y and  x /  z xor  x mod  -1 d>f  y @[EMAIL PROTECTED]
 float+ +! 

-marcel