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

Content added Content deleted

Inline

@@ Line 1,737: / Line 1,737: @@
       @board = [ [ False xx $n ] xx $n ];
       unless piece eq 'K' {
-	 @diag1 = ^$n .map: [ ^$n ] >>+>> * ;
+         @diag1 = ^$n .map: { $_ ... $n+$_-1 } ;
-         @diag2 = ^$n .map: [ $n-1 ... 0 ] >>+>> * ;
+         @diag2 = ^$n .map: { $n+$_-1 ... $_ } ;
 	 @diag2Lookup = @diag1Lookup = [ False xx 2*$n-1 ]
       }