blob: 03f4b695cb3ebcef913dabd2558ed2cd6cb5719f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
con currier = fold (fn nm => fn t => fn acc => t -> acc) {}
con greenCurry = currier []
val greenCurry : greenCurry = {}
con redCurry = currier [A = int, B = string]
val redCurry : redCurry = fn x : int => fn y : string => {}
con yellowCurry = currier [A = string, B = int, C = float]
val yellowCurry : yellowCurry = fn x => fn y => fn z => {}
val main = yellowCurry
|
