encode4' ( seq -- seq' )

Vocabulary

base85.private

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: endian kernel math sequences ;

IN: base85.private

: encode4' ( seq -- seq' )
    be>
    [ B{ 122 } ]
    [ 5 [ 85 /mod ch>ascii85 ] B{ } replicate-as reverse! nip ]
    if-zero ; inline