score-1 ( i full -- n )


Vocabulary
tools.completion.private

Inputs
ian object
fullan object


Outputs
nan object


Definition
USING: combinators kernel math sequences sequences.private
unicode ;

IN: tools.completion.private

: score-1 ( i full -- n )
{
{ [ over zero? ] [ 2drop 10 ] }
{ [ 2dup length 1 - = ] [ 2drop 4 ] }
{
[ 2dup [ 1 - ] dip nth-unsafe Letter? not ]
[ 2drop 10 ]
}
{
[ 2dup [ 1 + ] dip nth-unsafe Letter? not ]
[ 2drop 4 ]
}
[ 2drop 1 ]
} cond ; inline