From 8e04f9adc049c2a8281e6d943d5ed26220cedd56 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Thu, 11 Nov 2021 18:53:24 +0100 Subject: Problem 71 --- problem71.ijs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 problem71.ijs (limited to 'problem71.ijs') 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 -- cgit v1.2.3