aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

30
Task/Text-processing-2/Aime/text-processing-2.aime
View file

@ -1,29 +1,29 @@
void
check_format(list l)
{
integer i;
text s;
if (~l != 49) {
error("wrong number of fields");
error("bad field count");
}
s = l[0];
if (~s != 10 || s[4] != '-' || s[7] != '-') {
if (match("????-??-??", s)) {
error("bad date format");
}
l[0] = atoi(delete(delete(s, 7), 4));
l[0] = s.delete(7).delete(4).atoi;
i = 1;
while (i < 49) {
l[i] = atof(l[i]);
atof(l[i]);
i += 1;
l[i] = atoi(l[i]);
l[i >> 1] = atoi(l[i]);
i += 1;
}
l.erase(25, -1);
}
integer
main(void)
{
integer goods, i, v;
@ -37,25 +37,17 @@ main(void)
while (f.list(l, 0) != -1) {
if (!trap(check_format, l)) {
if (x.key(v = lf_pick(l))) {
if ((x[v = lf_x_integer(l)] += 1) != 1) {
v_form("duplicate ~ line\n", v);
}
x[v] = 0;
i = 1;
while (i < 48) {
if (l[i] < 1) {
break;
}
i += 2;
}
if (48 < i) {
goods += 1;
}
l.ucall(min_i, 1, i);
goods += iclip(0, i, 1);
}
}
o_(goods, " good lines\n");
return 0;
0;
}