15 lines
409 B
Chapel
15 lines
409 B
Chapel
use IO;
|
|
|
|
iter pairs() {
|
|
var low1, low2, high1, high2 : int;
|
|
while readf("%i-%i,%i-%i", low1, high1, low2, high2) do
|
|
yield (low1..high1, low2..high2);
|
|
}
|
|
|
|
proc anyContains((r1, r2): 2*range) { return r1.contains(r2) || r2.contains(r1); }
|
|
proc overlap((r1, r2): 2*range) { return !r1[r2].isEmpty(); }
|
|
|
|
var thePairs = pairs();
|
|
writeln(+ reduce anyContains(thePairs));
|
|
writeln(+ reduce overlap(thePairs));
|