view tests/cfold.lac @ 70:2e0f3b21fb85

Cjrize cfold
author Adam Chlipala <adamc@hcoop.net>
date Thu, 26 Jun 2008 10:02:34 -0400
parents 9f89f0b00b84
children 6431b315a1e3
line wrap: on
line source
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