Advent of Code F# – Day 8

Yan Cui

I help clients go faster for less using serverless technologies.

ps. look out for all my other solutions for Advent of Code challenges here.

 

Day 8

See details of the challenge here.

The input for today’s challenge looks like this:

rect 1×1
rotate row y=0 by 10
rect 1×1
rotate row y=0 by 10
rect 1×1
rotate row y=0 by 5
rotate column x=43 by 1
rotate column x=40 by 2
rotate column x=38 by 1

So, our first task is to parse this input into something more workable (something like the Cmd union type we’ve declared below).

Notice that I used active patterns instead of plain functions:

  • StartsWith returns the substring after the specified prefix
  • SepBy returns the 2 numbers separated by either “x” or “by” (eg. “1×1”, “0 by 5”)

I find this style of parsing code easier to understand as it structurally matches the input line and mentally I don’t have to follow any branching logic.

 

Next, let’s model the screen and the different operations against it – rect, rotate row and rotate column.

Here I’ve gone with an imperative approach for efficiency sake, duplicating the 50×6 2D array repeatedly (at least once per command) just doesn’t sit well with me.

Anyhow, once we apply the commands parsed from the input file we need to count the no. of true elements in our 2D array to answer part 1.

 

Part 2

You notice that the screen is only capable of displaying capital letters; in the
font it uses, each letter is 5 pixels wide and 6 tall.

After you swipe your card, what code is the screen trying to display?

To solve part 2, the easiest way I could think of was to print it out and see what letters are spelled out.

which in my case spelled out:

aoc_day08_part2

 

Links


Whenever you’re ready, here are 3 ways I can help you:

  1. Production-Ready Serverless: Join 20+ AWS Heroes & Community Builders and 1000+ other students in levelling up your serverless game.
  2. Consulting: If you want to improve feature velocity, reduce costs, and make your systems more scalable, secure, and resilient, then let’s work together and make it happen.
  3. Join my FREE Community on Skool, where you can ask for help, share your success stories and hang out with me and other like-minded people without all the negativity from social media.

 

2 thoughts on “Advent of Code F# – Day 8”

  1. I’m doing these exercises for my own fun, so I don’t want to make compromises on immutability, just to force myself into solving problems in more functional way.

    In this case Array2D is the first option, but I ended up replacing it with a Set and it works great. A sketch of operations:

    type Screen = Set

    let rect w h screen =
    seq { for x in 0..w-1 do for y in 0..h-1 -> x, y }
    |> Set.ofSeq
    |> Set.union screen

    let rotateRow index by =
    Set.map (fun (x, y) -> if y = index then (x + by) % Width, y else x, y)

    let rotateColumn index by =
    Set.map (fun (x, y) -> if x = index then x, (y + by) % Height else x, y)

    Full code in my github: https://github.com/mikhailshilkov/AdventOfCode2016/blob/master/Day8.fs

    And thanks for your blog!

  2. Pingback: F# Weekly #50, 2016 – Sergey Tihon's Blog

Leave a Comment

Your email address will not be published. Required fields are marked *