Re: Where is the Missing Link?.
Re: Where is the Missing Link?.
- Subject: Re: Where is the Missing Link?.
- From: Craig Treleaven <email@hidden>
- Date: Wed, 26 Sep 2001 13:48:04 -0400
At 10:11 AM -0400 9/26/01, Rachel Cogent wrote:
>
This is the kind of programming I am used to(working a stack):
>
<< SWAP OVER
>
DO ROT DUP 2 + ROLL HARM EVAL 3 ROLLD OVER POS 3 ROLLD POS + 2 + 3
>
/ DUP 23 > 38 * - FLOOR
>
UNTIL ROT 1 - DUP NOT
>
END DROP SWAP NOT COEF OBJ-> 1 0 ROT
>
DO ROT OVER 3 + ROLL / 36 / DUP2 SWAP 2 * 5 + DUP ROLL SWAP 1 -
>
PICK SIGN OVER SIGN == OVER SIGN * - * 4 ROLL +
>
UNTIL ROT 1 - DUP NOT
>
END + SWAP DROP + >>
Oh my God, now Forth! The above would be a whole lot simpler with named locals and/or more factoring. (And I hope you trimmed out the comments. ;-)
Craig
Craig Treleaven, Clearview Consulting
(905) 829-2054 email@hidden