No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

integer-squareroot.b93 641B

1234567891011121314151617181920212223242526
  1. > 8::**::**8* 20p v
  2. v <
  3. >0v>vv p03+g03*2:p01-\g01+g03:<
  4. 3 pp2# v/4 < >:30g+10g`! |
  5. > 0 > 1+ : 0^ 10>0g>:10g`#^_>:|:/4p03/2g03<
  6. >^ >30g2/30p4/^ >$30g v
  7. ^ ,+55.<
  8. [10] op
  9. [20] 2^30 const (muss vorher gesetzt sein) <- Up this to 2^60 for bigger sq roots (in long area)
  10. [30] res
  11. Integer Square Root
  12. 2^30 8::**2*::**
  13. >0v>vv p03+g03*2:p01-\g01+g03:<
  14. 3 pp2# v/4 < >:30g+10g`! |
  15. 0^ 10>0g>:10g`#^_>:|:/4p03/2g03<
  16. >^ >30g2/30p4/^ >$30g