blob: 688a56dbe4f30d13c7ab704c4e111ee38dbf28a5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
// Evol functions.
// Authors:
// Reid
//
// Description:
// Riddle enigma validator
//
// Arguments
// 0 PC answer
// 1 English correct answer
// 2 Translated correct answer
// TODO: levenshtein(), similar_text(), and maybe even soundex()
function script riddlevalidation {
.@answer$ = strtolower (getarg (0));
.@good$ = strtolower (getarg (1));
.@good_translated$ = strtolower (getarg (2));
.@size_answer = getstrlen (.@answer$);
.@size_good = getstrlen (.@good$);
.@size_good_translated = getstrlen (.@good_translated$);
.@max = max (.@size_answer, .@size_good_translated, .@size_good);
// Input is too long.
if (.@max > 20)
{
return false;
}
.@size_good *= 70;
.@size_good_translated *= 70;
for (.@i = 0; .@i < .@max; .@i++)
{
.@correct = 0;
.@correct_translated = 0;
for (.@k = .@k_translated = .@j = .@i; .@j < .@max; .@j++)
{
if (charat (.@answer$, .@j) == charat (.@good$, .@k))
{
.@correct++;
.@k++;
}
else
{
.@correct--;
}
if (charat (.@answer$, .@j) ==
charat (.@good_translated$, .@k_translated))
{
.@correct_translated++;
.@k_translated++;
}
else
{
.@correct_translated--;
}
}
// if 70% of the word is correct
.@correct *= 100;
.@correct_translated *= 100;
if (.@correct >= .@size_good ||
.@correct_translated >= .@size_good_translated)
{
return true;
}
}
return false;
}
|
