1 2 3 4 5 6 7 8 9
Orth ← /↥= Diag ← /=⌵- Conflict ← ↥⊃Orth Diag Permute ← ≡⌟∧⍜↘(↻¯1)⊸(♭₂⇡+1⇡⧻) NQueens ← ( ≡⌞(⍉⊟)⟜Permute⇡ ⊡⊢⊚¬⊸≡(/↥♭⊞(×⊃(¬≍)Conflict).) ) ⊸°⊚ NQueens 6