From fa35ae875d9428686a45c5b0b69b433d4b66c53f Mon Sep 17 00:00:00 2001 From: Evgeny Garlukovich Date: Sat, 3 Feb 2018 21:31:10 +0300 Subject: [PATCH] Add Elixir example for selection sort --- .../elixir/01_selection_sort.exs | 24 +++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 02_selection_sort/elixir/01_selection_sort.exs diff --git a/02_selection_sort/elixir/01_selection_sort.exs b/02_selection_sort/elixir/01_selection_sort.exs new file mode 100644 index 0000000..bca47c2 --- /dev/null +++ b/02_selection_sort/elixir/01_selection_sort.exs @@ -0,0 +1,24 @@ +defmodule SelectionSort do + def sort(list), do: do_sort(list, []) + + defp do_sort([], acc), do: Enum.reverse(acc) + + defp do_sort(list, acc) do + smallest_index = find_smallest_index(list, 0, nil, nil) + {smallest_value, list_rest} = List.pop_at(list, smallest_index) + do_sort(list_rest, [smallest_value | acc]) + end + + defguardp new_smallest_value?(value, min_value) when is_nil(min_value) or value < min_value + + defp find_smallest_index([], _, _, min_index), do: min_index + + defp find_smallest_index([head | tail], index, min_value, _) + when new_smallest_value?(head, min_value), + do: find_smallest_index(tail, index + 1, head, index) + + defp find_smallest_index([_ | tail], index, min_value, min_index), + do: find_smallest_index(tail, index + 1, min_value, min_index) +end + +IO.inspect(SelectionSort.sort([5, 3, 6, 2, 10]))