! Copyright (C) 2022 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit kernel math.intervals
math.parser sequences splitting ;
IN: 2022-aoc4

: parse-line ( string -- i1 i2 )
    "," split1 [ "-" split1 [ dec> ] bi@ [a,b] ] bi@ ;

: aoc4-1 ( string -- n )
    split-lines [
        parse-line [ interval-subset? ] [ swap interval-subset? ] 2bi or
    ] count ;

: aoc4-2 ( string -- n )
    split-lines [
        parse-line intervals-intersect?
    ] count ;