Commit | Line | Data |
---|---|---|
64617423 SK |
1 | -module(hope_fun). |
2 | ||
3 | -export( | |
4 | [ id/1 | |
e033aade | 5 | , curry/1 |
64617423 SK |
6 | ]). |
7 | ||
8 | -spec id(A) -> | |
9 | A. | |
10 | id(X) -> | |
11 | X. | |
e033aade SK |
12 | |
13 | -spec curry(fun()) -> | |
14 | fun(). | |
15 | curry(F) -> | |
87160c0a | 16 | {some, Arity} = hope_kv_list:get(erlang:fun_info(F), arity), |
e033aade SK |
17 | curry(F, [], Arity). |
18 | ||
19 | -spec curry(fun(), list(), integer()) -> | |
20 | fun(). | |
21 | curry(F, Args, 0) -> | |
22 | apply(F, lists:reverse(Args)); | |
23 | curry(F, Args, Arity) -> | |
24 | fun (X) -> curry(F, [X | Args], Arity - 1) end. |