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

m
(added Raku programming solution)
m (→‎{{header|Raku}}: simplify)
Line 1,737:
@board = [ [ False xx $n ] xx $n ];
unless piece eq 'K' {
@diag1 = ^$n .map: [{ ^$n_ ]... >>$n+>>$_-1 *} ;
@diag2 = ^$n .map: [{ $n+$_-1 ... 0$_ ] >>+>> *} ;
@diag2Lookup = @diag1Lookup = [ False xx 2*$n-1 ]
}
354

edits