Advent Of Code 2021 (Day 4: Giant Squid)をElixirで楽しむ

歎きつつひとりぬる夜の明くるまはいかに久しきものとかは知る

Advent Calendar 2022 105日目¹の記事です。
I'm looking forward to 12/25,2022
私のAdvent Calendar 2022 一覧。

---

はじめに

この記事は、Advent Of Code 2021 Day 4: Giant SquidをElixirで楽しんでみます。

私はGitHubでログインしました。

私の回答

私の回答です。

私の回答

input = """
7,4,9,5,11,17,23,2,0,14,21,24,10,16,13,6,15,25,12,22,18,20,8,19,3,26,1

22 13 17 11  0
 8  2 23  4 24
21  9 14 16  7
 6 10  3 18  5
 1 12 20 15 19

 3 15  0  2 22
 9 18 13 17  5
19  8  7 25 23
20 11 10 24  4
14 21 16 12  6

14 21 17 24  4
10 16 15  9 19
18  8 23 26 20
22 11 13  6  5
 2  0 12  3  7
"""

Part 1

[randoms | boards] = input
|> String.split("\n\n", trim: true)

list_of_randoms = String.split(randoms, ",") |> Enum.map(&String.to_integer/1)

list_of_boards = for i <- 0..Enum.count(boards) - 1 do
  Enum.at(boards, i)
  |> String.split("\n", trim: true)
  |> Enum.map(fn row -> String.split(row, " ", trim: true) |> Enum.map(&String.to_integer/1) end)
end

defmodule Recursion do
  def recur([], list_of_boards), do: list_of_boards

  def recur([value | tail], list_of_boards) do
    new_list_of_boards_or_answer = Enum.reduce_while(list_of_boards, [], fn board, acc ->
      new_board = draw_board(board, value)

      if bingo?(new_board) or bingo?(transpose(new_board)) do
        {:halt, answer(new_board, value)}
      else
        {:cont, acc ++ [new_board]}
      end
    end)
    
    if is_number(new_list_of_boards_or_answer) do
      new_list_of_boards_or_answer
    else
      recur(tail, new_list_of_boards_or_answer)
    end
  end

  defp draw_board(board, value) do
    Enum.reduce(board, [], fn row, acc ->
      new_row = Enum.map(row, fn 
        ^value -> 0
        v -> v
      end)

      acc ++ [new_row]
    end)
  end

  defp transpose(board) do
    for pos <- 0..4 do
      Enum.map(board, & Enum.at(&1, pos))
    end
  end

  defp bingo?(board) do
    Enum.map(board, &bingo_row?/1) |> Enum.any?(& &1)
  end

  defp bingo_row?([0, 0, 0, 0, 0]), do: true

  defp bingo_row?(_), do: false

  defp answer(board, value) do
    board
    |> Enum.map(&Enum.sum/1)
    |> Enum.sum()
    |> Kernel.*(value)
  end
end

list_of_randoms
|> Recursion.recur(list_of_boards)

Part 2

[randoms | tables] = input
|> String.split("\n\n", trim: true)

list_of_randoms = String.split(randoms, ",") |> Enum.map(&String.to_integer/1)

list_of_boards = for i <- 0..Enum.count(boards) - 1 do
  Enum.at(boards, i)
  |> String.split("\n", trim: true)
  |> Enum.map(fn row -> String.split(row, " ", trim: true) |> Enum.map(&String.to_integer/1) end)
end

defmodule Recursion do
  def recur([], list_of_boards), do: list_of_boards

  def recur([value | tail], list_of_boards) do
    new_list_of_boards_or_answer = Enum.reduce_while(list_of_boards, [], fn board, acc ->
      new_board = draw_board(board, value)

      if bingo?(new_board) or bingo?(transpose(new_board)) do
        if Enum.count(list_of_boards) > 1 do
          {:cont, acc}
        else
          {:halt, answer(new_board, value)}
        end
      else
        {:cont, acc ++ [new_board]}
      end
    end)
    
    if is_number(new_list_of_boards_or_answer) do
      new_list_of_boards_or_answer
    else
      recur(tail, new_list_of_boards_or_answer)
    end
  end

  defp draw_board(board, value) do
    Enum.reduce(board, [], fn row, acc ->
      new_row = Enum.map(row, fn 
        ^value -> 0
        v -> v
      end)

      acc ++ [new_row]
    end)
  end

  defp transpose(board) do
    for pos <- 0..4 do
      Enum.map(board, & Enum.at(&1, pos))
    end
  end

  defp bingo?(board) do
    Enum.map(board, &bingo_row?/1)
    |> Enum.any?(& &1)
  end

  defp bingo_row?([0, 0, 0, 0, 0]), do: true

  defp bingo_row?(_), do: false

  defp answer(board, value) do
    board
    |> Enum.map(&Enum.sum/1)
    |> Enum.sum()
    |> Kernel.*(value)
  end
end

list_of_randoms
|> Recursion.recur(list_of_boards)

It works!
Amazing!

私の回答は、正解を得ることができていますがなんとなくイケていない感が満載です。
後述するJosé Valimさんのお手本はとても勉強になります。
お見逃し無く！

お手本

José ValimさんがLivebook楽しまれている動画があります。
José Valimさんは、Elixirの作者です！

いきなり正解を書くわけではなく、少しずつ試しながら作っていって、リファクタしていくさまがJosé Valimさんの息遣いでみれるのでとても参考になります。
私は英語をよく聞き取れてはいませんが、コードが進化していくさまをみるのはとても勉強になります。

お手本

まだ見ていないのです

---

Wrapping up

Advent Of Code 2021 Day 4: Giant SquidをElixirで楽しんでみました。
Day 25まであるので引き続き楽しんでいきたいとおもいます。
だんだん、私には難しくなってきました

It works!
Amazing!

自分で解いてみて、なんだかイマイチだなあとおもいながら、動画をみることでJosé Valimさんに特別家庭教師をしてもらっている気に勝手になっています 。
海綿が水を吸うように、Elixirのイケている書き方を吸収しています。
伸びしろしかありません。

Enjoy Elixir
$\huge{Enjoy\ Elixir🚀}$

以上です。

---

I organize autoracex.
And I take part in NervesJP, fukuoka.ex, EDI, tokyo.ex, Pelemay.
I hope someday you'll join us.

We Are The Alchemists, my friends!

---

We appreciate this shoutout, Torifuku! pic.twitter.com/dThmJg4CYN

— ClickUp (@clickup) April 11, 2022

1. @kaizen_nagoya さんの「「@e99h2121 アドベントカレンダーではありますまいか Advent Calendar 2020」の改訂版ではありますまいか Advent Calendar 2022 １日目　Most Breakthrough Generator」から着想を得て、模倣いたしました。 ↩