Anonymous user
Currying: Difference between revisions
no edit summary
(Promotions!) |
No edit summary |
||
Line 141:
Prelude> :type nested_plus
nested_plus :: Integer -> Integer -> Integer
==Icon and {{header|Unicon}}==
This version only works in Unicon because of the coexpression calling syntax
used.
<lang unicon>procedure main(A)
add2 := addN(2)
write("add2(7) = ",add2(7))
write("add2(1) = ",add2(1))
end
procedure addN(n)
return makeProc{ repeat { (x := (x@&source)[1], x +:= n) } }
end
procedure makeProc(A)
return (@A[1], A[1])
end</lang>
Output:
<pre>
->curry
add2(7) = 9
add2(1) = 3
->
</pre>
=={{header|Io}}==
|