RosettaCodeData/Task/N-queens-problem/Uiua/n-queens-problem.uiua
2026-02-01 16:33:20 -08:00

5 lines
231 B
Text

N ← 8
Good ← =1⧻◴[⧻◴⟜(∩(⧻◴)⊃+-⇡⧻.)⟜⧻]
⊙◌⍥(⊏⊚≡Good.♭₂⊞⊂⇡:⊙.):⊙.[[]]N
↙2 &p$"_ solutions, two examples are:\n"⊸⧻
≡(&s≡(/(⊂⊂)@|/⊂⍜(⊡|@Q◌):↯:@_)⊸⧻)