package day11

import isDebug
import java.io.File
import kotlin.system.measureTimeMillis

fun main() {
    val name = if (isDebug()) "test.txt" else "input.txt"
    System.err.println(name)
    val dir = ::main::class.java.`package`.name
    val input = File("src/main/kotlin/$dir/$name").readLines()
    val (parsed, size) = parse(input)
    System.err.println(measureTimeMillis {
        part1(parsed)
    })
    System.err.println(measureTimeMillis {
        part2(parsed, size)
    })
}

fun parse(input: List<String>) = input.flatMapIndexed { j, line ->
    line.mapIndexedNotNull { i, c ->
        (i to j).takeIf { c != '.' }?.to(c == '#')
    }
}.toMap() to maxOf(input.first().count(), input.count())

fun part1(input: Map<Pair<Int, Int>, Boolean>) {
    val neighboursMap = input.mapValues { (k, _) -> k.neighbours.filter { it in input } }
    val res = generateSequence(input) { seats ->
        seats.mapValues { (k, occupied) ->
            val neighboursCount = neighboursMap.getValue(k).count {
                seats.getOrDefault(it, false)
            }
            when {
                !occupied && neighboursCount == 0 -> true
                occupied && neighboursCount >= 4 -> false
                else -> occupied
            }
        }
    }.zipWithNext().first { (first, second) -> first == second }.second.values.count { it }
    println("Part 1 = $res")
}

fun part2(input: Map<Pair<Int, Int>, Boolean>, size: Int) {
    val neighboursMap = input.mapValues { (k, _) ->
        (1..size).asSequence().run {
            listOfNotNull(
                    map { (k.first - it) to k.second }.firstOrNull { it in input },
                    map { (k.first - it) to (k.second - it) }.firstOrNull { it in input },
                    map { (k.first - it) to (k.second + it) }.firstOrNull { it in input },
                    map { (k.first + it) to k.second }.firstOrNull { it in input },
                    map { (k.first + it) to (k.second - it) }.firstOrNull { it in input },
                    map { (k.first + it) to (k.second + it) }.firstOrNull { it in input },
                    map { (k.first) to (k.second - it) }.firstOrNull { it in input },
                    map { (k.first) to (k.second + it) }.firstOrNull { it in input })
        }
    }
    val res = generateSequence(input) { seats ->
        seats.mapValues { (k, occupied) ->
            val neighboursCount = neighboursMap.getValue(k).count {
                seats.getOrDefault(it, false)
            }
            when {
                !occupied && neighboursCount == 0 -> true
                occupied && neighboursCount >= 5 -> false
                else -> occupied
            }
        }
    }.zipWithNext().first { (first, second) -> first == second }.second.values.count { it }
    println("Part 2 = $res")
}

val Pair<Int, Int>.neighbours: List<Pair<Int, Int>>
    get() = listOf((first - 1) to (second - 1), (first) to (second - 1), (first + 1) to (second - 1),
            (first - 1) to second, (first + 1) to second,
            (first - 1) to (second + 1), (first) to (second + 1), (first + 1) to (second + 1))

package day11

import isDebug
import java.io.File
import kotlin.system.measureTimeMillis

fun main() {
    val name = if (isDebug()) "test.txt" else "input.txt"
    System.err.println(name)
    val dir = ::main::class.java.`package`.name
    val input = File("src/main/kotlin/$dir/$name").readLines()
    val (parsed, size) = parse(input)
    System.err.println(measureTimeMillis {
        part1(parsed)
    })
    System.err.println(measureTimeMillis {
        part2(parsed, size)
    })
}

fun parse(input: List<String>) = input.flatMapIndexed { j, line ->
    line.mapIndexedNotNull { i, c ->
        (i to j).takeIf { c != '.' }?.to(c == '#')
    }
}.toMap() to maxOf(input.first().count(), input.count())

fun part1(input: Map<Pair<Int, Int>, Boolean>) {
    val neighboursMap = input.mapValues { (k, _) -> k.neighbours.filter { it in input } }
    val res = generateSequence(input) { seats ->
        seats.mapValues { (k, occupied) ->
            val neighboursCount = neighboursMap.getValue(k).count {
                seats.getOrDefault(it, false)
            }
            when {
                !occupied && neighboursCount == 0 -> true
                occupied && neighboursCount >= 4 -> false
                else -> occupied
            }
        }
    }.zipWithNext().first { (first, second) -> first == second }.second.values.count { it }
    println("Part 1 = $res")
}

fun part2(input: Map<Pair<Int, Int>, Boolean>, size: Int) {
    val neighboursMap = input.mapValues { (k, _) ->
        (1..size).asSequence().run {
            listOfNotNull(
                    map { (k.first - it) to k.second }.firstOrNull { it in input },
                    map { (k.first - it) to (k.second - it) }.firstOrNull { it in input },
                    map { (k.first - it) to (k.second + it) }.firstOrNull { it in input },
                    map { (k.first + it) to k.second }.firstOrNull { it in input },
                    map { (k.first + it) to (k.second - it) }.firstOrNull { it in input },
                    map { (k.first + it) to (k.second + it) }.firstOrNull { it in input },
                    map { (k.first) to (k.second - it) }.firstOrNull { it in input },
                    map { (k.first) to (k.second + it) }.firstOrNull { it in input })
        }
    }
    val res = generateSequence(input) { seats ->
        seats.mapValues { (k, occupied) ->
            val neighboursCount = neighboursMap.getValue(k).count {
                seats.getOrDefault(it, false)
            }
            when {
                !occupied && neighboursCount == 0 -> true
                occupied && neighboursCount >= 5 -> false
                else -> occupied
            }
        }
    }.zipWithNext().first { (first, second) -> first == second }.second.values.count { it }
    println("Part 2 = $res")
}

val Pair<Int, Int>.neighbours: List<Pair<Int, Int>>
    get() = listOf((first - 1) to (second - 1), (first) to (second - 1), (first + 1) to (second - 1),
            (first - 1) to second, (first + 1) to second,
            (first - 1) to (second + 1), (first) to (second + 1), (first + 1) to (second + 1))
