quint> ( str -- m )

Vocabulary

proquint

Inputs

str

an object

Outputs

m

an object

Definition

USING: kernel math sequences ;

IN: proquint

: quint> ( str -- m )
    0 [
        dup {
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            f
            0
            ~24 more~
        } nth
        [ nip [ 4 shift ] [ + ] bi* ] [
            dup {
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                f
                0
                f
                ~19 more~
            } nth
            [ nip [ 2 shift ] [ + ] bi* ] [ 45 assert= ] if*
        ] if*
    ] reduce ;