decode3 ( seq -- )


Vocabulary
base45.private

Inputs
seqan object


Outputs
None

Definition
USING: io kernel math sequences ;

IN: base45.private

: decode3 ( seq -- )
[ { 1 45 2025 } 0 [ [ base45>ch ] dip * + ] 2reduce ]
[ length 3 < [ write1 ] [ 256 /mod [ write1 ] bi@ ] if ] bi
; inline