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.

continued_squareroot_fraction.b93 1.1KB

12345678910111213141516171819202122232425262728293031323334
  1. v###
  2. #####
  3. v+1 ,++55<
  4. > 2 >::." =: ",,,, 0\ 951p11p021p131v v12g14 p150 p13/g<
  5. vp01g03_v#-g01:_v#- <>g+31g/ :31g*21g-21v1
  6. >:30p:20 g\/+2/: 30g^^12p14:<>11g21g:*-3 ^
  7. > #$ >$30g::*11g-||+g15-1g13p<
  8. ^p02:p010g11p1< >> >.:! |
  9. ^," "<
  10. [10] (isqrt) pxk
  11. [20] (isqrt) n
  12. [30] (isqrt) xk
  13. [11] (frac) sqrt
  14. [21] (frac) add
  15. [31] (frac) div
  16. [41] (frac) isqrt(sqrt)
  17. [51] (frac) first (9 when first loop)
  18. square-root continued fractions :: a --> frac(a) // reversed on stack
  19. (stack) --> (stack[])
  20. [http://www.maths.surrey.ac.uk/hosted-sites/R.Knott/Fibonacci/cfINTRO.html#section7]