07.q

// --- Day 7: No Space Left On Device ---

lines:1 _ read0 `:input/07.txt

dirs:enlist[1#`]!enlist 0
cwd:`
isls:0b

while[count line:first lines;
  if[line like "$ cd*";
    isls:0b;
    dir:`$last " " vs line;
    cwd:$[dir~`$"..";
      -1_ cwd;
      cwd,dir
      ];
    ];

  if[isls;
    if[not "dir"~first split:" " vs line;
      size: "J"$ first split;
      {dirs[enlist[x]]+:y}[;size] each ,\[cwd]  // yuck
      ];
    ];

  if[line like "$ ls";
    isls:1b;
    ];

  lines: 1 _ lines;
  ];


sum (value dirs) where (value dirs) < 100000
/1084134
min dirs where dirs > 30000000 - 70000000 - dirs[enlist `]
/6183184