guess>chars
] with map concat members
[ background of ] assoc-map
- [ first ] collect-value-by
+ [ drop ] collect-value-by
[ [ color>n ] zip-with sort-values reverse first first ] assoc-map
CHAR: a CHAR: z [a..b] [ 1string COLOR: white ] { } map>assoc [ or ] assoc-merge ;
: lookup-country-names ( seq -- seq' ) [ lookup-country-name ] map ;
: timezone>country-map ( -- alist )
- parse-zonetabs [ second ] collect-key-by ;
+ parse-zonetabs [ nip ] collect-key-by ;
: country>timezones-map ( -- alist )
- parse-zonetabs [ first ] collect-value-by ;
+ parse-zonetabs [ drop ] collect-value-by ;
: country-timezones-map ( -- alist )
country>timezones-map [ dup lookup-country-names zip ] map-values ;