added 469 characters in body

Source Link

edited Mar 9, 2022 at 8:23

Wolfram Language (Mathematica), 45 bytes

Mod[#-{0,##&@@Most@#}&/@Range@#~Tuples~#2,#]&

Wolfram Language (Mathematica), 59 bytes

IntegerDigits[FindHamiltonianPath@GridGraph@Table@##-1,##]&

Finds a Hamiltonian path of the \$\underbrace{N\times\cdots\times N}_{k}\$ grid graph.

IntegerDigits[FindHamiltonianPath@GridGraph@Table@##-1,##]&

Finds a Hamiltonian path of the \$\underbrace{N\times\cdots\times N}_{k}\$ grid graph.

Mod[#-{0,##&@@Most@#}&/@Range@#~Tuples~#2,#]&

IntegerDigits[FindHamiltonianPath@GridGraph@Table@##-1,##]&

Finds a Hamiltonian path of the \$\underbrace{N\times\cdots\times N}_{k}\$ grid graph.

added 90 characters in body

Source Link

edited Mar 9, 2022 at 7:35

IntegerDigits[FindHamiltonianPath@GridGraph@Table@##-1,##]&

Finds a Hamiltonian path of the \$\underbrace{N\times\cdots\times N}_{k}\$ grid graph.

IntegerDigits[FindHamiltonianPath@GridGraph@Table@##-1,##]&

IntegerDigits[FindHamiltonianPath@GridGraph@Table@##-1,##]&

Finds a Hamiltonian path of the \$\underbrace{N\times\cdots\times N}_{k}\$ grid graph.

Source Link

created Mar 9, 2022 at 7:10

IntegerDigits[FindHamiltonianPath@GridGraph@Table@##-1,##]&