top-rank-main ( -- )

Vocabulary

rosetta-code.top-rank

Inputs

None

Outputs

None

Definition

USING: accessors assocs io kernel math.parser ;

IN: rosetta-code.top-rank

: top-rank-main ( -- )
    employees prepare-departments [
        [ "Department " write write ":" print ] dip 3 [
            [ id>> write "  $" write ]
            [ salary>> number>string write "  " write ]
            [ name>> print ] tri
        ] first-n-each nl
    ] assoc-each ;