defmodule Khf1Testcases do

  testcases = # {vals, target, count}]
    [
      {%{1 => 2, 3 => 3, 5 => 4},             20,       3}, #0
      {%{2 => 2, 1 => 10, 5 => 5},            28,       6}, #1
      {%{20 => 3, 10 => 7, 5 => 8},          110,      14}, #2
      {%{3 => 3, 2 => 10, 1 => 10},            5,       5}, #3
      {%{5 => 300, 2 => 100, 1 => 500},     1500,  10_121}, #4
      {%{10 => 0, 20 => 0, 50 => 0},      25_000, 313_501}, #5
      {%{10 => 3000, 50 => 0, 20 => 0},   30_000, 451_201}, #6
      {%{10 => 3000, 20 => 0, 50 => 600}, 33_000, 536_761}, #7
      {%{3 => 0, 1 => 100, 2 => 0},       49_000, 824_034}, #8
      {%{3 => 30000, 1 => 2, 2 => 1},    300_005,       0}, #9
    ]
  
  for {i, {vals, target, count}} <- Enum.zip(0..length(testcases)-1, testcases), res = Khf1.hanyfele(vals, target) do
    {"Teszteset #{i}", res == count}
    |> IO.inspect(label: "Várt eredmény " <> (res |> Integer.to_string() |> String.pad_leading(7, " ")))
  end

end