You can used this script to check part 1 answer, which is essentially
brutal force, not super fast but good enough for part 1.
todig=:0 -.~ #;._1@:(0,])
gen=:{{ ('#'=y)+"1 mm(#^:_1"1)(nn$2)#:i.2^nn=.+/mm=.'?'=y }}
input=:cutLF fread 'input.txt'
fn =: {{
'str nums'=.cutopen >y
nums=. ". nums
+/(nums-:todig)"1 gen str
}}"0
NB. smoutput fn input
>>>>> In <[email protected]>
>>>>> David Lambert <[email protected]> wrote:
> My program correctly scores the example. Which indexes from my data
> set are incorrect please?
> data file:
> https://www.dropbox.com/scl/fi/ihuwsmsnxdgl2yne331qw/c?rlkey=sn9my1ymqq02zzwlwo8cmdx30&dl=0
> Counts:
> https://www.dropbox.com/scl/fi/a0xvce49wpbshn1l8yv8j/cresult?rlkey=tuh4b4sg542k2961hnsy8m8c1&dl=0
> With thanks and hope that I've correctly set dropbox permissions,
> Dave
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
