diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-06-26 09:48:54 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-26 09:48:54 -0400 |
commit | bef69954307005832dca731aff9a7b008c88c8d8 (patch) | |
tree | 801e896f527636ab21211f11839f3c1d20f5ac10 /tests/cfold.lac | |
parent | b03ac1efc8ac5197688a97d1b8b27106654d504d (diff) |
Elaborating cfold
Diffstat (limited to 'tests/cfold.lac')
-rw-r--r-- | tests/cfold.lac | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/cfold.lac b/tests/cfold.lac new file mode 100644 index 00000000..5eda74e9 --- /dev/null +++ b/tests/cfold.lac @@ -0,0 +1,10 @@ +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 => {} |