diff demo/sum.ur @ 412:df4cbd90a26e

Infering sum rows
author Adam Chlipala <adamc@hcoop.net>
date Tue, 21 Oct 2008 19:31:11 -0400
parents 06fcddcd20d3
children 6a0e54400805
line wrap: on
line diff
--- a/demo/sum.ur	Tue Oct 21 19:24:39 2008 -0400
+++ b/demo/sum.ur	Tue Oct 21 19:31:11 2008 -0400
@@ -1,9 +1,9 @@
-fun sum (fs :: {Unit}) (x : $(mapUT int fs)) =
+fun sum (fs ::: {Unit}) (x : $(mapUT int fs)) =
     foldUR [int] [fn _ => int]
     (fn (nm :: Name) (rest :: {Unit}) [[nm] ~ rest] n acc => n + acc)
     0 [fs] x
 
 fun main () = return <xml><body>
-  {[sum [[A, B]] {A = 0, B = 1}]}<br/>
-  {[sum [[C, D, E]] {C = 2, D = 3, E = 4}]}
+  {[sum {A = 0, B = 1}]}<br/>
+  {[sum {C = 2, D = 3, E = 4}]}
 </body></xml>