package aoc2022

import aoc.*
import aoc.parser.*


class Day07() {
    sealed interface Node {
        val size: Int
        val subNodes: List<Node>
    }

    data class FileNode(override val size: Int, val name: String) : Node {
        override val subNodes: List<Node>
            get() = emptyList()
    }

    data class DirNode(val name: String, override val subNodes: List<Node> = emptyList()) : Node {
        override val size: Int
            get() = subNodes.sumOf { it.size }
    }

    val fileEntry = seq(number() followedBy " ", regex("[a-zA-Z./]+") followedBy "\n", ::FileNode)
    val dirEntry = "dir " followedBy regex("[a-zA-Z./]+") followedBy "\n" asValue null
    val fileDirEntry = dirEntry or fileEntry
    val entry: Parser<Node?> = ref(::dirListing) or fileDirEntry
    val entries = oneOrMore(entry) map { it.filterNotNull() }
    val dirListing = seq(
        "\$ cd " followedBy regex("[a-zA-Z/]+"),
        "\n\$ ls\n" followedBy entries, ::DirNode) followedBy (eoF() or literal("\$ cd ..\n"))


    fun part1(input: String): Int {
        val tree = dirListing.parse(input)
        val r = foldTree(tree, Node::subNodes, 0) { acc, node ->
            acc + if (node is DirNode && node.size < 100000) node.size else 0
        }
        return r
    }

    fun part2(input: String): Int {
        val minimum = 30000000 - 21618835
        val tree = dirListing.parse(input)
        val r = foldTree(tree, Node::subNodes, null) { acc: Node?, node: Node ->
            if (node is DirNode && node.size >= minimum && node.size < (acc?.size ?: Int.MAX_VALUE)) node else acc
        }
        return r?.size ?: 0
    }
}



package aoc2022

import aoc.*
import aoc.parser.*


class Day07() {
    sealed interface Node {
        val size: Int
        val subNodes: List<Node>
    }

    data class FileNode(override val size: Int, val name: String) : Node {
        override val subNodes: List<Node>
            get() = emptyList()
    }

    data class DirNode(val name: String, override val subNodes: List<Node> = emptyList()) : Node {
        override val size: Int
            get() = subNodes.sumOf { it.size }
    }

    val fileEntry = seq(number() followedBy " ", regex("[a-zA-Z./]+") followedBy "\n", ::FileNode)
    val dirEntry = "dir " followedBy regex("[a-zA-Z./]+") followedBy "\n" asValue null
    val fileDirEntry = dirEntry or fileEntry
    val entry: Parser<Node?> = ref(::dirListing) or fileDirEntry
    val entries = oneOrMore(entry) map { it.filterNotNull() }
    val dirListing = seq(
        "\$ cd " followedBy regex("[a-zA-Z/]+"),
        "\n\$ ls\n" followedBy entries, ::DirNode) followedBy (eoF() or literal("\$ cd ..\n"))


    fun part1(input: String): Int {
        val tree = dirListing.parse(input)
        val r = foldTree(tree, Node::subNodes, 0) { acc, node ->
            acc + if (node is DirNode && node.size < 100000) node.size else 0
        }
        return r
    }

    fun part2(input: String): Int {
        val minimum = 30000000 - 21618835
        val tree = dirListing.parse(input)
        val r = foldTree(tree, Node::subNodes, null) { acc: Node?, node: Node ->
            if (node is DirNode && node.size >= minimum && node.size < (acc?.size ?: Int.MAX_VALUE)) node else acc
        }
        return r?.size ?: 0
    }
}


