07.q

//--- Day 7: Handy Haversacks ---

t:{ `bag`contains!(`$first a;raze { (0^"J"$2#x)#`$2_ x } each ", "vs last a:" contain " vs ssr[ssr[-1_ x;"bags";"bag"];" bag";""]) } each read0 `:input/07.txt

-1+count distinct raze { exec bag from t where 0 < count each inter[;x] each contains }\[`$"shiny gold"]
/124
-1+count (raze/) { (raze/) { exec contains from t where bag in x } each x }\[`$"shiny gold"]
/34862