Find Chess960 starting position identifier: Difference between revisions

Unlike the solution for the reverse task, which uses DO/LOOP and so requires at least Commodore BASIC 3.5, this should work on any version.

 

110 READ A$: IF A$="" THEN END

120 PRINT A$":";

630 NEXT I

640 SP = 96*N+16*Q+4*D+L

 

{{Out}}

 

==={{header|FreeBASIC}}===

Dim As String pieza

Dim As Integer pQ(), pK(), pB(), pN(), pR(), i, j

Print

SP_ID("RNQBBKRN")

{{out}}

<pre>QNRBBNKR has SP_ID of 105

{{works with|QBasic|1.1}}

{{trans|Commodore BASIC}}

Print "Enter start array as seen by white."

120 Print

End

 

{{out}}

<pre>Enter start array as seen by White.

 

=={{header|Common Lisp}}==

(defun valid-array-p (start-array)

(and (string-equal (sort (copy-seq start-array) #'string-lessp) "BBKNNQRR") ; right pieces

(loop for ary in '("RNBQKBNR" "QNRBBNKR" "RQNBBKRN" "RNQBBKRN") doing

(format t "~a: ~a~%" ary (sp-id ary)))

 

{{Out}}

=={{header|Factor}}==

{{works with|Factor|0.99 2021-06-02}}

literals math math.combinatorics sequences sequences.extras sets

strings ;

"RNBQKBNR" sp-id.

"RQNBBKRN" sp-id.

{{out}}

<pre>

=={{header|Go}}==

{{trans|Wren}}

 

import (

fmt.Printf("%s or %s has SP-ID of %d\n", pieces, g2l(pieces), spid(pieces))

}

 

{{out}}

 

=={{header|J}}==

'N Q B0 B1'=. 0 6 4 4 #: y

s=. 'B' (0 1+2*B0,B1)} 8#' '

}}"0 i.960

 

 

Examples:

105

c960'♛♞♜♝♝♞♚♜'

601

c960'RNQBBKRN'

 

=={{header|Julia}}==

const whitechars = "rnbqkp"

const blackpieces = "♜♞♝♛♚♝♞♜♟"

println(collect(position), " => ", chess960spid(position))

end

<pre>

['♕', '♘', '♖', '♗', '♗', '♘', '♔', '♖'] => 105

=={{header|Nim}}==

{{trans|Wren}}

 

type Piece {.pure.} = enum Rook = "R", Knight = "N", Bishop = "B", Queen = "Q", King = "K"

 

for glyphs in ["♕♘♖♗♗♘♔♖", "♖♘♗♕♔♗♘♖", "♖♕♘♗♗♔♖♘", "♖♘♕♗♗♔♖♘"]:

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

use List::AllUtils 'indexes';

 

}

 

{{out}}

<pre>QNRBBNKR 105

 

=={{header|Phix}}==

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">function</span> <span style="color: #000000;">spid</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>

<span style="color: #000000;">test</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"RQNBBKRN"</span><span style="color: #0000FF;">)</span>

<span style="color: #000000;">test</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"RNQBBKRN"</span><span style="color: #0000FF;">)</span>

{{out}}

<pre>

RNQBBKRN : 617</pre>

To support all those crazy unicode characters just change the start of spid() to:

<span style="color: #008080;">function</span> <span style="color: #000000;">spid</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">u</span><span style="color: #0000FF;">)</span>

<span style="color: #004080;">sequence</span> <span style="color: #000000;">u32</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">utf8_to_utf32</span><span style="color: #0000FF;">(</span><span style="color: #000000;">u</span><span style="color: #0000FF;">),</span>

<span style="color: #000000;">test</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"♜♛♞♝♝♚♜♞"</span><span style="color: #0000FF;">)</span>

<span style="color: #000000;">test</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"♜♞♛♝♝♚♜♞"</span><span style="color: #0000FF;">)</span>

{{out}}

Note that output on a windows terminal is as expected far from pretty, this is from pwa/p2js

{{works with|Python|3.10.5 2022-06-28}}

 

def validate_position(candidate: str):

assert (

if __name__ == '__main__':

for example in ["QNRBBNKR", "RNBQKBNR", "RQNBBKRN", "RNQBBKRN"]:

{{out}}

<pre>

 

=={{header|Raku}}==

# standardize on letters for easier processing

my $ascii = $array.trans('♜♞♝♛♚♖♘♗♕♔' => 'RNBQK');

}

 

{{out}}

<pre>♖♘♗♕♔♗♘♖ 518

 

=={{header|Ruby}}==

def chess960_to_spid(pos)

start_str = pos.tr(CHESS_PIECES.join, "RNBQKRNBQK")

puts "#{pieces} (#{array}): #{chess960_to_spid array}"

end

{{out}}

<pre>♕♘♖♗♗♘♔♖ (QNRBBNKR): 105

=={{header|Wren}}==

{{libheader|Wren-trait}}

 

var glyphs = "♜♞♝♛♚♖♘♗♕♔".toList

for (pieces in ["♕♘♖♗♗♘♔♖", "♖♘♗♕♔♗♘♖", "♜♛♞♝♝♚♜♞", "♜♞♛♝♝♚♜♞"]) {

System.print("%(pieces) or %(g2l.call(pieces)) has SP-ID of %(spid.call(pieces))")

 

{{out}}