1 ! Copyright (C) 2010 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: assocs kernel sequences ;
43 { CHAR: g 0x1D77 } ! or 0183
45 { CHAR: i 0x1D09 } ! or 0131
46 { CHAR: j 0x027E } ! or 1E37
48 { CHAR: l 0x0283 } ! or 237
65 { CHAR: 3 0x0190 } ! or 1110
91 CHARS [ CHARS set-at ] assoc-each
93 : ch>flip ( ch -- ch' )
94 dup CHARS at [ nip ] when* ;
98 : flip-text ( str -- str' )
99 [ ch>flip ] map reverse ;