[erlang-questions] LFE - Lisp Flavoured Erlang released

[Mats Cronqvist]

Kevin Scaldeferri wrote:
> On Mar 10, 2008, at 11:32 PM, Hynek Vychodil wrote:
>
>   
>> On Tue, Mar 11, 2008 at 12:25 AM, Kevin Scaldeferri <kevin@REDACTED 
>>     
>>> wrote:
>>>       
>> On Mar 10, 2008, at 3:44 PM, Kevin Scaldeferri wrote:
>>
>>     
>>> On Mar 10, 2008, at 2:11 PM, Torbjorn Tornkvist wrote:
>>>
>>>       
>>>> Perhaps a stupid question. Do LFE implement currying?
>>>> If not, why?
>>>>
>>>> I want currying... :-)
>>>>
>>>>         
>>> Here's something I threw together in a couple minutes:
>>>
>>> %% F({a,b}) -> F'(a,b)
>>> curry(F, Arity) ->
>>>     if
>>>         Arity =:= 1 -> fun(A)         -> F({A}) end;
>>>         Arity =:= 2 -> fun(A,B)       -> F({A,B}) end;
>>>         Arity =:= 3 -> fun(A,B,C)     -> F({A,B,C}) end;
>>>         Arity =:= 4 -> fun(A,B,C,D)   -> F({A,B,C,D}) end;
>>>         Arity =:= 5 -> fun(A,B,C,D,E) -> F({A,B,C,D,E}) end;
>>>         true -> throw(unsupported_arity)
>>>     end.
>>>
>>>       
  IANACS(*), but i thought currying was supposed to look like this;

curry(F,Arg) ->
  case erlang:fun_info(F,arity) of
    {_,1} -> fun() -> F(Arg) end;
    {_,2} -> fun(A) -> F(A,Arg) end;
    {_,3} -> fun(A,B) -> F(A,B,Arg) end;
    {_,4} -> fun(A,B,C) -> F(A,B,C,Arg) end
  end.

  mats

(*) I Am Not A Computer Scientist
-------------- next part --------------
A non-text attachment was scrubbed...
Name: mats_cronqvist.vcf
Type: text/x-vcard
Size: 179 bytes
Desc: not available
URL: <http://erlang.org/pipermail/erlang-questions/attachments/20080311/2cc98ea6/attachment.vcf>