N-queens minimum and knights and bishops: Difference between revisions

m
→‎{{header|J}}: remove an overly aggressive optimization..
m (→‎{{header|J}}: remove an overly aggressive optimization..)
Line 343:
r=. (n+2) {.!._ x
N=. n
todo=. (#~ ({:x) < ]) (,0=y)#c
lim=. >./,(first +&{: x)+m
for_open. (#~ lim>:]) todo do.
Line 362:
task=: {{
Q=:K=:B=:i.0
echo label=. ' order queens bishops knights'
L=.1+#@>;:label
for_order.1+i.10 do.
genboard order
Line 376 ⟶ 374:
 
<lang J> task''
┌─┬─┬─┐ Q: 1
+-----+ Q: 1
¦Q¦B¦K¦│Q│B│K│ B: 1
└─┴─┴─┘ K: 1
+-----+ K: 1
┌──┬──┬──┐ Q: 1
+--------+ Q: 1
¦Q│Q.¦BB¦KK¦│BB│KK│ B: 2
¦..¦..¦KK¦│KK│ K: 4
└──┴──┴──┘
+--------+
┌───┬───┬───┐ Q: 1
+-----------+ Q: 1
¦...¦...¦KKK¦│KKK│ B: 3
¦.Q.¦BBB¦│BBB│.K.¦ K: 4
¦...¦...¦...¦
└───┴───┴───┘
+-----------+
┌────┬────┬────┐ Q: 3
+--------------+ Q: 3
¦Q│Q...¦....¦....¦ B: 4
¦..Q.¦BBBB¦KKKK¦│BBBB│KKKK│ K: 4
¦....¦....¦....¦
¦.Q..¦....¦....¦
└────┴────┴────┘
+--------------+
┌─────┬─────┬─────┐ Q: 3
+-----------------+ Q: 3
¦Q│Q....¦│B.B....¦K│K....¦ B: 5
¦...Q.¦..BBB.¦.....¦.│ K: 5
¦.....¦B....¦.│..KK.¦
¦..Q..¦.BB.B...KK.¦
¦.....¦.....¦.....¦
└─────┴─────┴─────┘
+-----------------+
┌──────┬──────┬──────┐ Q: 4
+--------------------+ Q: 4
¦Q│Q.....¦B│B..B...¦..│K....¦K│ B: 6
¦..Q...│...B.BBB.¦......¦ K: 8
¦.Q....¦Q│...B..│..¦KK..KK¦
¦......¦......¦KK..KK¦..│
¦......¦..BB..¦......¦
¦..Q........¦..│K....¦K│
└──────┴──────┴──────┘
+--------------------+
+-----------------------+ Q: 5
¦Q......¦.......¦KKKK.K.¦ B: 7
6,962

edits