square.txt


\ SQR 99-01-31 KBB

( Square root using [ a + b ]^2 method   KBB         Sept 22 1990 )

: (SQR) ( LO HI RESULT ... LO HI RESULT )
   8 0 DO
      >R D2* D2*
      R> 2* DUP >R
      2* 1+
      OVER SWAP -
      DUP 0< IF
         DROP R>
      ELSE
         NIP R> 1+
      THEN
   LOOP
   ;

: SQR ( N ... N1 ) ( return square root of single number )
   0 0 (SQR)
   NIP NIP
   ;

: DSQR ( D -- N ) ( return square root of double number )
   0 0 (SQR)
   ROT DROP (SQR)
   NIP NIP
   ;


  HTMLized by Forth2HTML