Solve the no connection puzzle: Difference between revisions
Content added Content deleted
| Line 301: | Line 301: | ||
⍝ ⍴⍸~tries{1∊{1∊⍵∊¯1 0 1}¨|(⍺[⍳8])-¨⍺∘{⍺[⍵]}¨⍵}⍤1⊢links |
⍝ ⍴⍸~tries{1∊{1∊⍵∊¯1 0 1}¨|(⍺[⍳8])-¨⍺∘{⍺[⍵]}¨⍵}⍤1⊢links |
||
⍝ 16 |
⍝ 16 |
||
solns←⍸~tries{1∊{1∊⍵∊¯1 0 1}¨|(⍺[⍳8])-¨⍺∘{⍺[⍵]}¨⍵}⍤1⊢links |
|||
tries[''⍴solns;] |
|||
} |
} |
||
</lang> |
</lang> |
||