Continued fraction/Arithmetic/Construct from rational number: Difference between revisions

Line 304:
 
<lang J>
f =: dyad3 : define0
a =. x {.y
b =. {:y
out=. <. a%b
while. b > 1 do.
Line 315:
end.
out
)
14142136 f 14142136 10000000
1 2 2 2 2 2 2 2 2 2 6 1 2 4 1 1 2 _
 
Anonymous user