jaro-winkler-similarity ( a b -- n )

Vocabulary

math.similarity

Inputs

a	an object
b	an object

Outputs

n

an object

Definition

USING: kernel math math.order sequences sequences.extras ;

IN: math.similarity

:: jaro-winkler-similarity ( a b -- n )
    a b jaro-similarity :> jaro a b min-length 4 min :> len a b
    [ len head-slice ] bi@ [ = ] 2count
    :> #common-prefix 1 jaro - #common-prefix 0.1 * * jaro + ;