39 lines
464 B
Text
39 lines
464 B
Text
integer
|
|
ordered(data s)
|
|
{
|
|
integer a, c, p;
|
|
|
|
a = 1;
|
|
|
|
p = -1;
|
|
for (, c in s) {
|
|
if (c < p) {
|
|
a = 0;
|
|
break;
|
|
} else {
|
|
p = c;
|
|
}
|
|
}
|
|
|
|
a;
|
|
}
|
|
|
|
integer
|
|
main(void)
|
|
{
|
|
file f;
|
|
text s;
|
|
index x;
|
|
|
|
f.affix("unixdict.txt");
|
|
|
|
while (f.line(s) != -1) {
|
|
if (ordered(s)) {
|
|
x.v_list(~s).append(s);
|
|
}
|
|
}
|
|
|
|
l_ucall(x.back, o_, 0, "\n");
|
|
|
|
return 0;
|
|
}
|