... darkrealms ...

Forums before death by AOL, social media and spammers... "We can't have nice things"

comp.lang.forth

Forth programmers eat a lot of Bratwurst

117,927 messages

[ << oldest | < older | list | newer > | newest >> ]

Message 116,702 of 117,927

Buzz McCool to dxf

Re: Avoid treating the stack as an array

02 Sep 24 22:53:54

   From: buzz_mccool@yahoo.com   
      
   On 9/2/24 18:23, dxf wrote:   
   > Under VFX Forth:   
   ...   
   > \ Without locals...   
   >   
   > : CylVolLoop ( StartHeight FinalHeight Radius -- )   
   >    cr ." Radius " fdup fe.   
   >    swap ( FinalHeight Height)   
   >    begin 2dup >= while   
   >      dup s>f  fdup cr ." Height " fe.   
   >      fover ( Height Radius)  VolOfCyl ." Volume " fe.   
   >      1+   
   >    repeat 2drop fdrop   
   >    cr ;   
   >   
   > see CylVolLoop   
   > ...   
   > ( 148 bytes, 27 instructions )   
   >   
      
   Nice. I will study your technique.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)

[ << oldest | < older | list | newer > | newest >> ]