resistor-color-duo

This commit is contained in:
2024-06-27 17:36:16 -04:00
parent 146d1d3f89
commit c7b7989ccd
10 changed files with 285 additions and 0 deletions

View File

@@ -0,0 +1,25 @@
defmodule ResistorColorDuo do
@doc """
Calculate a resistance value from two colors
"""
@spec value(colors :: [atom]) :: integer
def value(colors) do
colors
|> Enum.take(2)
|> Enum.map(&code/1)
|> Integer.undigits()
end
@spec code(atom) :: integer()
defp code(:black), do: 0
defp code(:brown), do: 1
defp code(:red), do: 2
defp code(:orange), do: 3
defp code(:yellow), do: 4
defp code(:green), do: 5
defp code(:blue), do: 6
defp code(:violet), do: 7
defp code(:grey), do: 8
defp code(:white), do: 9
end