>quint16 ( m -- str )

Vocabulary

proquint.private

Inputs

m

an object

Outputs

str

an object

Definition

USING: kernel math math.bitwise sequences ;

IN: proquint.private

: >quint16 ( m -- str )
    5 [
        even?
        [ [ -4 shift ] [ 4 bits consonant nth ] bi ]
        [ [ -2 shift ] [ 2 bits vowel nth ] bi ] if
    ] "" map-integers-as reverse nip ;