From cfc4bd0e35f79d0e42c3e66fe8fc67d98046d0a5 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 10 Nov 2021 19:17:01 +0100 Subject: Problem 751 --- problem751.ijs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 problem751.ijs (limited to 'problem751.ijs') diff --git a/problem751.ijs b/problem751.ijs new file mode 100644 index 0000000..89d3450 --- /dev/null +++ b/problem751.ijs @@ -0,0 +1,20 @@ +digits =: 24 +next =: {{ (<.y)*1+y-<.y }} +catseq =: {{ (([: ".'x',~]) % 10x^<:@#) (digits+1){.;":each<.y }} +digitsOf =: {{ <. y * 10^x:x }} +solve =: {{ + lowerBound =. x:2.0 + upperBound =. x:2.9 + whilst. (digits digitsOf res) ~: (digits digitsOf start) do. + start =. -: lowerBound + upperBound + res =. catseq <. next^:(i.digits+1) start + if. res < start do. + upperBound =. start + elseif. res > start do. + lowerBound =. start + end. + end. + start +}} + +problem751 =: ({.,'.',}.)": digits digitsOf solve '' \ No newline at end of file -- cgit v1.2.3