23 lines
918 B
Perl
Executable File
23 lines
918 B
Perl
Executable File
#!/usr/bin/perl
|
|
open STDOUT, "|sqlite3" or die "Cannot fork sqlite";
|
|
print "
|
|
create table number(x integer, y1 integer, y2 integer, n integer, primary key (x,y1));
|
|
create table symbol(x integer, y integer, sym text, primary key (x,y));
|
|
create view adjacent as
|
|
select number.n, number.x as nx, number.y1 as ny, symbol.sym, symbol.x as sx, symbol.y as sy
|
|
from symbol, number
|
|
where
|
|
symbol.x between number.x - 1 and number.x + 1
|
|
and y >= y1-1
|
|
and y < y2+1
|
|
;
|
|
begin;
|
|
";
|
|
while(<>) {
|
|
print "insert into number values ($., $-[0], $+[0], $&);\n" while /\d+/g;
|
|
print "insert into symbol values ($., $-[0], '$&');\n" while /[^.0-9\n]/g;
|
|
}
|
|
print "commit;\n";
|
|
print "select sum(n) from number where (x, y1) in (SELECT nx, ny from adjacent);";
|
|
print "select sum(a.n * b.n) from adjacent a, adjacent b where a.sym = '*' and a.sx = b.sx and a.sy = b.sy and (a.nx < b.nx or a.nx = b.nx and a.ny < b.ny);";
|