zone-abbrevs ( -- assoc )

Vocabulary

zoneinfo

Inputs

None

Outputs

assoc

an object

Definition

USING: accessors assocs kernel sequences sets splitting ;

IN: zoneinfo

: zone-abbrevs ( -- assoc )
    zoneinfo-zones [
        find-zone-rules [ format>> ] dip [
            letters>> dup { "D" "S" } member? [ drop "" ] unless
            swap "%" split1 [ 1 tail surround ] [ nip ] if*
        ] with V{ } map-as members
    ] zip-with ;