; $mmscore(actual, guess)
; eg $mmscore(2778,7777)
; returns <correct> <close>
; ("2 0" for the above example)
alias mmscore {
var %i = 1, %correct = 0, %close = 0
while $mid($2,%i,1) != $null {
if $v1 == $mid($1,%i,1) {
inc %correct
tokenize 32 $left($1,$calc(%i - 1)) $+ $right($1,- $+ %i) $&
$left($2,$calc(%i - 1)) $+ $right($2,- $+ %i)
}
else inc %i
}
%i = 1
while $mid($2,%i,1) != $null {
if $pos($1,$v1) {
inc %close
tokenize 32 $left($1,$calc($v1 - 1)) $+ $right($1,- $+ $v1) $2
}
inc %i
}
return %correct %close
}