Add ExpenseReport in Elixir.

README.md

@@ -28,6 +28,7 @@ The ExpenseReport example currently exists in the following languages:
 - [COBOL](expensereport-cobol/)
 - [D](expensereport-d/)
 - [Dart](expensereport-dart/)
+- [Elixir](expensereport-elixir/)
 - [F#](expensereport-fsharp/)
 - [Fortran](expensereport-fortran/)
 - [Go](expensereport-go/)
@@ -64,7 +65,6 @@ The ExpenseReport example currently exists in the following languages:
 (in no particular order and with no guarantee)
 
 - Eiffel
-- Elixir
 - Elm
 - Erlang
 - Logo

expensereport-elixir/expensereport.exs

@@ -0,0 +1,41 @@
+#!/usr/bin/env elixir
+
+defmodule Expense do
+    defstruct [:type, :amount]
+end
+
+defmodule ExpenseReport do
+    def printReport(expenses) when is_list(expenses) do
+        IO.puts("Expense Report")
+
+        for expense <- expenses do
+            expenseName = case expense.type do
+                :breakfast -> "Breakfast"
+                :dinner -> "Dinner"
+                :carrental -> "Car Rental"
+            end
+            mealOverExpensesMarker = case expense.type do
+                :breakfast -> if expense.amount > 1000 do "X" else " " end
+                :dinner -> if expense.amount > 5000 do "X" else " " end
+                _ -> " "
+            end
+            IO.puts(expenseName <> "\t" <> to_string(expense.amount) <> "\t" <> mealOverExpensesMarker)
+        end
+
+        mealExpenses = Enum.sum(Enum.map(Enum.filter(expenses, fn expense -> expense.type == :breakfast || expense.type == :dinner end), fn expense -> expense.amount end))
+        total = Enum.sum(Enum.map(expenses, fn expense -> expense.amount end))
+
+        IO.puts("Meal expenses: " <> to_string(mealExpenses))
+        IO.puts("Total expenses: " <> to_string(total))
+    end
+end
+
+defmodule Main do
+    def main do
+        ExpenseReport.printReport([
+            %Expense{type: :breakfast, amount: 50},
+        ])
+    end
+end
+
+Main.main