remaining-chars ( game -- chars )

Vocabulary

wordlet

Inputs

game

an object

Outputs

chars

an object

Definition

USING: accessors assocs assocs.extras colors io.styles kernel
math.order ranges sequences sets sorting.specification strings ;

IN: wordlet

: remaining-chars ( game -- chars )
    [ secret-word>> ] [ guesses>> ] bi [ guess>chars ] with map
    concat members [ background of ] assoc-map
    [ drop ] collect-value-by [
        [ color>n ] zip-with { >=< } sort-values-with-spec
        first first
    ] assoc-map 97 122 [a..b]
    [ 1string COLOR: white ] { } map>assoc [ or ] assoc-merge ;