add-to-score ( arr -- score )

Vocabulary

rosetta-code.bulls-and-cows

Inputs

arr

an object

Outputs

score

an object

Definition

USING: kernel sequences ;

IN: rosetta-code.bulls-and-cows

: add-to-score ( arr -- score )
    <score> [ bull? [ inc-bulls ] [ inc-cows ] if ] reduce ;