draw-specific-card ( card deck -- card )


Vocabulary
poker

Inputs
cardan object
deckan object


Outputs
cardan object


Definition
USING: kernel poker.private sequences ;

IN: poker

: draw-specific-card ( card deck -- card )
[ >ckf ] dip 2dup index
[ swap remove-nth! drop ] [ no-card ] if* ;