Mercurial > urweb

diff demo/tcSum.ur @ 633:03ab853c8e4b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Folder generation for functions
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 15:38:01 -0500
parents 6c4643880df5
children aa2290c32ce2
line wrap: on
line diff
--- a/demo/tcSum.ur	Tue Feb 24 15:12:13 2009 -0500
+++ b/demo/tcSum.ur	Tue Feb 24 15:38:01 2009 -0500
@@ -4,6 +4,6 @@
     zero [fs] fl x
 
 fun main () = return <xml><body>
-  {[sum (Folder.cons [#A] [()] ! (Folder.cons [#B] [()] ! Folder.nil)) {A = 0, B = 1}]}<br/>
-  {[sum (Folder.cons [#D] [()] ! (Folder.cons [#C] [()] ! (Folder.cons [#E] [()] ! Folder.nil))) {C = 2.1, D = 3.2, E = 4.3}]}
+  {[sum {A = 0, B = 1}]}<br/>
+  {[sum {C = 2.1, D = 3.2, E = 4.3}]}
 </body></xml>