From 9292225d996c2092647fae15726a9f9bb2a691c8 Mon Sep 17 00:00:00 2001 From: RJ Dellecese Date: Sat, 28 Dec 2019 21:29:11 -0500 Subject: Add generic module Containing identity, always, flip, and compose functions. --- gen/src/gleam@generic.erl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 gen/src/gleam@generic.erl (limited to 'gen/src/gleam@generic.erl') diff --git a/gen/src/gleam@generic.erl b/gen/src/gleam@generic.erl new file mode 100644 index 0000000..a25a59f --- /dev/null +++ b/gen/src/gleam@generic.erl @@ -0,0 +1,16 @@ +-module(gleam@generic). +-compile(no_auto_import). + +-export([identity/1, always/2, flip/1, compose/2]). + +identity(A) -> + A. + +always(_, B) -> + B. + +flip(Fun) -> + fun(B, A) -> Fun(A, B) end. + +compose(Fun1, Fun2) -> + fun(A) -> Fun2(Fun1(A)) end. -- cgit v1.2.3