Elixirで"1時間以内に解けなければ(ry"をやってみた

Scala版の焼き直しです。
Elixirっぽさがでているかどうかは微妙。

問題2

Problem2.ex

defmodule Problem2 do
    def mutually_list(a, b) do
        Enum.zip(a,b) |> Enum.flat_map(fn {x,y} -> [x,y] end)
    end
end

問題3

Problem3.ex

defmodule Problem3 do
    def fib do
        Stream.unfold({0, 1}, fn {a,b} -> {a , {b, a + b}} end)
        |> Enum.take(100)
    end
end

問題4

Problem4.ex

defmodule Problem4 do
    def permutations([]), do: [[]]
    def permutations(list) do
        for h <- list, t <- permutations(list -- [h]), do: [h | t]
    end

    def max(list) do
        permutations(list) 
        |> Enum.map(fn p -> Enum.map(p, fn i -> Integer.to_string(i) end) |> List.to_string end) 
        |> Enum.max
    end
end

問題5

Problem5.ex

defmodule Problem5 do
    def calc(str, acc) do
        case {Regex.run(~r/(^[1-9]+)(.*)/, str), Regex.run(~r/([+-])([1-9]+)(.*)/, str)} do
            {[_, n, last], _} -> calc(last, acc + String.to_integer(n))
            {_, [_, "+", n, last]} -> calc(last, acc + String.to_integer(n))
            {_, [_, "-", n, last]} -> calc(last, acc - String.to_integer(n))
            _ -> acc
        end
    end

    def comb do
        Enum.to_list(2..9)
        |> List.foldl(["1"], fn (x, acc) -> Enum.flat_map(acc, fn n -> ["#{n}#{x}", "#{n}+#{x}", "#{n}-#{x}"] end) end)
    end

    def find do
        Enum.filter(comb, fn str -> calc(str, 0) == 100 end)
    end
end