base85>z85-fast ( seq -- )

Vocabulary

base85.private

Inputs

seq

an object

Outputs

None

Definition

USING: kernel sequences tr.private ;

IN: base85.private

: base85>z85-fast ( seq -- )
    [
        B{
            0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
            21 22 23 24 25 26 27 28 29 30 31 32 46 34 45 58 43
            61 39 94 33 47 42 44 63 46 47 48 49 50 51 52 53 54
            55 56 57 58 38 60 62 40 41 91 97 98 99 100 101 102
            103 104 105 106 107 108 109 110 111 112 113 114 115
            116 117 118 119 120 121 122 91 92 93 93 123 125 65
            66 ~29 more~
        }
        tr-nth
    ] map! drop ;