Skip to content

Instantly share code, notes, and snippets.

@pirm-in

pirm-in/main.erl

Last active September 28, 2015 10:28
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save pirm-in/2092cf0b03b03362ffee to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save pirm-in/2092cf0b03b03362ffee to your computer and use it in GitHub Desktop.
Download ZIP
Coin challenge v1
Raw
main.erl
#!/usr/bin/env escript
main(_) ->
{ok, [X]} = io:fread(">", "~d"),
c(X).
w(X) -> io:fwrite("~p ", [X]).
c(X) when X >= 5 ->
w(5),
c(X-5);
c(X) when X < 5 andalso X >= 2 ->
w(2),
c(X-2);
c(1) -> w(1);
c(0) -> ok.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment