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
|
#!/bin/sh
# hasonl szavak kiszrsre
# Nmeth Lszl <nemeth@gyorsposta.hu>
# Usage: simwords < file
awk '
BEGIN { prev = ""}
{
if (length(prev) == length($1)) {
i = 1;
n = 0;
pos = 0;
len = length($1);
while ((i <= len) && (n < 2)) {
if ((substr(prev, i, 1) != substr($1, i, 1))) {
n++;
if (n == 1) pos = i;
}
i++;
}
i1 = index("aeiou",substr(prev, pos, 1));
i2 = index("aeiou",substr($1, pos, 1));
if ((n == 1) && (i1 != 0) && (i2 != 0) && ((i1-i2) * (i1-i2) == 1)) {
print prev " " $1;
}
}
prev = $1;
}'
|
