Mercurial > urweb
diff demo/sum.ur @ 632:6c4643880df5
Demos compile again, with manual folders
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 24 Feb 2009 15:12:13 -0500 |
| parents | effa7d43aac3 |
| children | 03ab853c8e4b |
line wrap: on
line diff
--- a/demo/sum.ur Tue Feb 24 14:04:07 2009 -0500 +++ b/demo/sum.ur Tue Feb 24 15:12:13 2009 -0500 @@ -1,7 +1,7 @@ -fun sum (fs ::: {Unit}) (fold : folder fs) (x : $(mapUT int fs)) = +fun sum (fs ::: {Unit}) (fl : folder fs) (x : $(mapUT int fs)) = foldUR [int] [fn _ => int] (fn (nm :: Name) (rest :: {Unit}) [[nm] ~ rest] n acc => n + acc) - 0 [fs] fold x + 0 [fs] fl x fun main () = return <xml><body> {[sum Folder.nil {}]}<br/>