%% Sample Erlang module — samplefiles.com
-module(sample).
-export([main/0, is_vip/1, total_balance/1]).

-record(customer, {id, name, balance}).

is_vip(#customer{balance = B}) -> B >= 10000.

total_balance(Customers) -> lists:sum([C#customer.balance || C <- Customers]).

main() ->
    Customers = [#customer{id = 1, name = "Ada", balance = 12500.0},
                 #customer{id = 2, name = "Grace", balance = 830.5},
                 #customer{id = 3, name = "Linus", balance = 10000.0}],
    [io:format("~-6s ~10.2f ~s~n", [C#customer.name, C#customer.balance, vip(C)]) || C <- Customers],
    io:format("Total: ~.2f~n", [total_balance(Customers)]).

vip(C) -> case is_vip(C) of true -> "VIP"; false -> "" end.