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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -9,7 +9,7 @@ check_format(list l)
}
s = lf_q_text(l);
if (length(s) != 10 || character(s, 4) != '-' || character(s, 7) != '-') {
if (length(s) != 10 || s[4] != '-' || s[7] != '-') {
error("bad date format");
}
atoi(delete(delete(s, 7), 4));
@ -38,7 +38,7 @@ main(void)
while (f_list(f, l, 0) != -1) {
if (!trap(check_format, l)) {
if (r_key(r, l_head(l))) {
v_text(cat3("duplicate ", l_head(l), " line\n"));
v_form("duplicate ~ line\n", l_head(l));
} else {
integer i;