aoc-2015-07.raku

my %ops = (AND => &[+&], OR => &[+|], LSHIFT => &[+<], RSHIFT => &[+>]);

my (%cct, %mem);
my &get = -> \val { %mem{val} //= +val // %cct{val}() }

for $=finish.lines {
    given .words {
        when 3 { %cct{.[2]} = { get(.[0]) } }
        when 4 { %cct{.[3]} = { +^get(.[1]) +& 0xFFFF } }
        when 5 { %cct{.[4]} = { %ops{.[1]}(get(.[0]), get(.[2])) } }
    }
}

put %cct<d>();

=finish
123 -> x
456 -> y
x AND y -> d
x OR y -> e
x LSHIFT 2 -> f
y RSHIFT 2 -> g
NOT x -> h
NOT y -> i