make-position ( white-bishop black-bishop knight knight queen {r,k,r} -- position )


Vocabulary
chess960

Inputs
white-bishopan object
black-bishopan object
knightan object
knightan object
queenan object
{r,k,r}an object


Outputs
positionan object


Definition
USING: arrays combinators kernel sequences ;

IN: chess960

: make-position
( white-bishop black-bishop knight knight queen {r,k,r} -- position )
first3 8 f <array> {
[ [ rook ] 2dip set-nth ]
[ [ king ] 2dip set-nth ]
[ [ rook ] 2dip set-nth ]
[ [ queen ] 2dip set-nth ]
[ [ knight ] 2dip set-nth ]
[ [ knight ] 2dip set-nth ]
[ [ bishop ] 2dip set-nth ]
[ [ bishop ] 2dip set-nth ]
[ ]
} cleave ;