tznames ( abbrevs -- assoc )

Vocabulary

tzinfo.private

Inputs

abbrevs

an object

Outputs

assoc

an object

Definition

USING: arrays hashtables kernel math sequences strings ;

IN: tzinfo.private

:: tznames ( abbrevs -- assoc )
    0
    [ 0 over abbrevs index-from dup ]
    [ [ dupd abbrevs subseq >string 2array ] keep 1 + swap ]
    produce 2nip >hashtable ;