aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Dutch-national-flag-problem/Elixir/dutch-national-flag-problem.elixir
View file

@ -3,9 +3,9 @@ defmodule Dutch_national_flag do
defp ball(:white), do: 2
defp ball(:blue), do: 3
@color {:red, :white, :blue}
defp random_ball, do: elem(@color, :rand.uniform(3)-1)
defp random_ball(n), do: (for _ <- 1..n, do: random_ball)
defp random_ball, do: Enum.random([:red, :white, :blue])
defp random_ball(n), do: (for _ <- 1..n, do: random_ball())
defp is_dutch([]), do: true
defp is_dutch([_]), do: true
@ -13,7 +13,8 @@ defmodule Dutch_national_flag do
defp is_dutch(_), do: false
def dutch(list), do: dutch([], [], [], list)
defp dutch(r, w, b, []), do: r ++ w ++ b
defp dutch(r, w, b, []), do: r ++ w ++ b
defp dutch(r, w, b, [:red | list]), do: dutch([:red | r], w, b, list)
defp dutch(r, w, b, [:white | list]), do: dutch(r, [:white | w], b, list)
defp dutch(r, w, b, [:blue | list]), do: dutch(r, w, [:blue | b], list)