USING: combinators kernel math sequences unicode.categories ;

IN: tools.completion

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