1 USING: ascii assocs sequences ;
5 CONSTANT: flag-codes H{
10 { CHAR: E CHAR: 🇪 }
11 { CHAR: F CHAR: 🇫 }
12 { CHAR: G CHAR: 🇬 }
13 { CHAR: H CHAR: 🇠}
14 { CHAR: I CHAR: 🇮 }
15 { CHAR: J CHAR: 🇯 }
16 { CHAR: K CHAR: 🇰 }
17 { CHAR: L CHAR: 🇱 }
18 { CHAR: M CHAR: 🇲 }
19 { CHAR: N CHAR: 🇳 }
20 { CHAR: O CHAR: 🇴 }
21 { CHAR: P CHAR: 🇵 }
22 { CHAR: Q CHAR: 🇶 }
23 { CHAR: R CHAR: 🇷 }
24 { CHAR: S CHAR: 🇸 }
25 { CHAR: T CHAR: 🇹 }
26 { CHAR: U CHAR: 🇺 }
27 { CHAR: V CHAR: 🇻 }
28 { CHAR: W CHAR: 🇼 }
29 { CHAR: X CHAR: 🇽 }
30 { CHAR: Y CHAR: 🇾 }
31 { CHAR: Z CHAR: 🇿 }
34 : unicode-flag ( country-code -- flag )
35 >upper [ flag-codes at ] map ;