Perhaps I was just unlucky, but I tried an iPad-type “share” to Documents,
which didn’t produce a useable file; later downloaded a pdf with the Windows
11 laptop. Copy-paste from adobe worked to the extent that multi-spaces became
single spaces,
which I then filled out by hand!
Anyway, I’ll try your ideas out later, maybe not for a few days, as we’ll be
away for a while.
Thanks for your suggestions,
Mike
Sent from my iPad
> On 24 Jun 2022, at 12:12, Raul Miller <rauldmil...@gmail.com> wrote:
>
> I went to a "print out the hexadoku page" on that site, and did a
> right click save-as on the resulting html page.
>
> Extracting the puzzle seems straight forward (but beware email induced
> line wrap):
>
> htm=: fread '~/Downloads/16x16 sudoku, Hexadoku puzzle to print_ level
> beginner, #1.html'
>
> extract=: {{
> mask=. n E. y
> start=. mask i.1
> mask u;.1&(start&}.) y
> }}
>
> clean=: {{
> rplc&(' ';' ') (y #~-.+/\-/'<>'=/y) -. '>'
> }}
>
> parse=: {{
> start=. (I.'<table' E. y) ([ {~_1+I.) I.'id="grid"' E. y
> end=. (I.'</table' E. y) ([ {~ I.) start
> raw=. start}.end{.y
> <@clean extract '<td' extract '<tr' raw
> }}
>
> With the above definitions, parse htm gives me what looks like the
> puzzle. Though perhaps ;"1 parse htm would be more useful to you...
>
> I hope this helps,
>
> --
> Raul
> On Fri, Jun 24, 2022 at 6:34 AM 'Michael Day' via Programming
> <programm...@jsoftware.com> wrote:
>>
>> Sorry for late posting - apparently a problem with my broadband
>> provider's server.
>>
>> Yes, it can be worth doing a limited feasibility check on your input.
>> Every column,
>> row and small box should have no repeated elements apart from the "missing"
>> indicator, such as 0 or perhaps one of '.-*0' , eg, using my
>> generalisation of Roger's code:
>> */ (2 */ @: > #/.~@: -.&0)"1 R{,fiend NB. fiend is a numeric 9x9
>> puzzle
>>
>> 1
>>
>>
>> It might be of minor interest to note I've got my modification of Roger
>> Hui's wiki essay
>>
>> code to solve a 25x25 puzzle which I lifted from an online source,
>>
>> https://www.sudoku-puzzles-online.com/
>>
>> Annoyingly, I haven't dicovered how to download it in a form usable
>> directly by J. I
>> spent far too much time transcribing just one 25x25 puzzle by eye and hand.
>>
>> I modified the solve function , posted on 20 June. just a tad to allow
>> the input of a character
>> representation. I'll just reproduce the new and amended lines:
>>
>> solve =: 3 : 0
>> '.123456789abcdefghjklmnpqrstuvwxyzA' solve y NB. x is a default
>> representation for up to 36x36 just:
>> if. ' ' = 1{.0{.ry =. , y do.
>> chars =. ''
>> chars =. chars, /:~ ~., ' .*-' (e.~#]) ry NB. any other
>> representations of unknown cells?
>> chars =. chars, /:~ ~., '123456789' (+./@:e.~#[) ry
>> chars =. chars, /:~ ~., 'abcdefghijklmnopqrstuvwxyz' (+./@:e.~#[) ry
>> chars =. chars, /:~ ~., 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' (+./@:e.~#[) ry
>> sudokurep =: chars
>> y =. chars i. y
>> else.
>> sudokurep =: x
>> end.
>> .....
>> see1 =: (;~n2$n1{.1)&(<;.1) @ ({&sudokurep) @ (n22&$) @ ,
>>
>> .....
>>
>> )
>>
>>
>> Here's the puzzle I copied, "confirmed" or "advanced" number 7957:
>>
>>
>> t25 =: (#{."1 ] ) dtb"1 >LF cut 0 : 0
>> j g n os wc iy r aup
>> o qf w n mgeb
>> ycaix rlp t b d nvs
>> n qcb e vg x t
>> wbmks ig pnf cd
>> p s w fxa d v u l
>> k u xyv rhog cj p q
>> tj e nq sy xo mbf w
>> lxob ufk i t d ns
>> rqdtc w uh o g
>> u kt o i vbpm gj h
>> j xv pdrqwat o u
>> atib sym h w jod nfcx
>> o w dfbtkns ux a
>> v he ligq b c fk d
>> g x ud m yebqt
>> lh r p s dmw gcxu
>> q rmn pk tw fg b sh
>> m b ac hoej urx p y
>> t o s d bga h f i
>> cn yps db vukfe
>> x p vh b kwa j
>> ajy n f p hte sdriw
>> bfud n v im x
>> wli j ur xv pf q b n
>> )
>>
>>
>> see {:solveh t25
>> ┌─────┬─────┬─────┬─────┬─────┐
>> │jxegv│nktos│bwcdi│ymqhr│laupf│
>> │toprq│fdjvw│syuxn│icakl│hmgeb│
>> │hycai│xmrlp│ogtkf│bedju│nvsqw│
>> │ndflu│aqcby│ejmph│swvgo│ixrkt│
>> │wbmks│uheig│qlvar│txpnf│yjcdo│
>> ├─────┼─────┼─────┼─────┼─────┤
>> │ipysh│rgowm│fxaed│qnkvj│utlbc│
>> │knwue│ibxyv│lrhog│asftc│jdpmq│
>> │gavtj│delnq│cusyp│xoimb│fkwhr│
>> │clxob│hufkj│ivqmt│gprdw│aeyns│
>> │fmrqd│tcpsa│wbknj│luhey│xovgi│
>> ├─────┼─────┼─────┼─────┼─────┤
>> │usdcl│ktwao│xiyfe│nvbpm│qgjrh│
>> │ykjfn│exvhc│mpdrq│watig│olbsu│
>> │atibp│symur│ghlwv│eqjod│knfcx│
>> │oqgmw│pjdfb│tknsc│rluxh│eiayv│
>> │vrhex│ligqn│jaobu│cysfk│pwmtd│
>> ├─────┼─────┼─────┼─────┼─────┤
>> │pgsxc│waudh│vfrlm│oinye│bqtjk│
>> │lhkyf│orbte│pniqs│jdmwv│gcxua│
>> │djqvr│mnipk│ytwux│fgcba│sheol│
>> │mibna│cfqgl│hoejk│urxst│wpdvy│
>> │eutwo│vsyjx│dcbga│khlqp│rfnim│
>> ├─────┼─────┼─────┼─────┼─────┤
>> │rcnhg│ypsmi│aqjtw│dbolx│vukfe│
>> │xeopt│gvhrd│usfib│mkwan│cyqlj│
>> │qvajy│blnxf│kmpco│hteus│driwg│
>> │bfudk│qwact│neghl│vjyri│msoxp│
>> │swlim│jokeu│rdxvy│pfgcq│tbhan│
>> └─────┴─────┴─────┴─────┴─────┘
>>
>>
>> ts
>> 6!:2 , 7!:2@]
>> ts'solveh t25' NB. performance ok for this example
>> 0.0374274 1461408
>>
>> They offer even larger puzzles, but I'll avoid those until I see how to
>> download them
>> in a usable format!
>>
>>
>>
>>> On 20/06/2022 18:00, Brian Schott wrote:
>>> All,
>>>
>>> My code is not perfect, but the error I was noticing in trying to step
>>> through the algorithm using the verbs f and diff were correct, BUT my
>>> initial data in the noun raw was missing a starting SPACE. So the example
>>> data was unsolvable. When I corrected the data, I was able to get an answer
>>> with Mike's most recent verb 'solve', and it looks like it is the correct
>>> answer.
>>>
>>> I apologize for the noise. And will try to improve my solution now; for
>>> some reason my version of 'sudoku' is flawed, but I think I can rectify
>>> that now that I have a working version of the verbs f and diff.
>>>
>>> Again, I apologize. And thank you.
>>> ----------------------------------------------------------------------
>>> For information about J forums seehttp://www.jsoftware.com/forums.htm
>>
>>
>> --
>> This email has been checked for viruses by Avast antivirus software.
>> https://www.avast.com/antivirus
>> ----------------------------------------------------------------------
>> For information about J forums see http://www.jsoftware.com/forums.htm
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
