Skip to content

Instantly share code, notes, and snippets.

@chids

chids/tgif.erl

Created March 25, 2011 11:47
Show Gist options
  • Save chids/886744 to your computer and use it in GitHub Desktop.
Save chids/886744 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tgif.erl
-module(a).
-export([tgif/0]).
-define(MUSIC_ASSOCIATIONS, [{ellnestam, "Love Gun"}, {jockeholm, "Family Affair"}, {mahnve, "My name is (Slim Shady)"}]).
tgif() -> tgif(?MUSIC_ASSOCIATIONS).
tgif([{Person, Track}|Others]) ->
io:format("@~w plays '~s'~n", [Person, Track]),
tgif(Others);
tgif([]) -> "Hey! It's friday, have a beer!".
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment