Skip to content

Instantly share code, notes, and snippets.

@i7an

i7an/recursion.erl

Created June 27, 2017 10:46
Show Gist options
  • Save i7an/b98a1f9ea573cded1d5a340978805e05 to your computer and use it in GitHub Desktop.
Save i7an/b98a1f9ea573cded1d5a340978805e05 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
recursion.erl
-module(recursion).
-export([reduce/3, max/1]).
reduce([], _Fn, I) -> I;
reduce([X|Xs],Fn,I) ->
reduce(Xs,Fn,Fn(I,X)).
max([X|Xs]) -> reduce(Xs, fun erlang:max/2, X).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment