diff options
| -rw-r--r-- | problem71.ijs | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/problem71.ijs b/problem71.ijs new file mode 100644 index 0000000..923cd81 --- /dev/null +++ b/problem71.ijs @@ -0,0 +1,22 @@ +next =: {{%/-:+/2 x:max,y}} +start =: 2r5 +max =: 3r7 + +solve =: {{ + lowBound =. 0 + highBound =. y + guess =. 0 + whilst. guess ~: lastGuess do. + lastGuess =. guess + guess =. <. -: lowBound+highBound + 'num denum' =. 2 x: next^:guess start + if. denum > y do. + highBound =. guess + elseif. denum < y do. + lowBound =. guess + end. + end. + num +}} + +problem71 =: solve 1e6 |