10 lines
365 B
Plaintext
10 lines
365 B
Plaintext
: CHAR "!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[" comb
|
|
'\\ comb -1 remove append "]^_`abcdefghijklmnopqrstuvwxyz{|}~" comb append ;
|
|
: CODE 95 iota 33 + ; : comb "" split ;
|
|
: extract' rot 1 compress index subscript expand drop ;
|
|
: chr CHAR CODE extract' ;
|
|
: ord CODE CHAR extract' ;
|
|
|
|
'a ord . # 97
|
|
97 chr . # a
|