Mercurial > urweb

diff demo/sum.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/sum.ur	Tue Feb 24 15:12:13 2009 -0500
+++ b/demo/sum.ur	Tue Feb 24 15:38:01 2009 -0500
@@ -4,7 +4,7 @@
     0 [fs] fl x
 
 fun main () = return <xml><body>
-  {[sum Folder.nil {}]}<br/>
-  {[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, D = 3, E = 4}]}
+  {[sum {}]}<br/>
+  {[sum {A = 0, B = 1}]}<br/>
+  {[sum {C = 2, D = 3, E = 4}]}
 </body></xml>