diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-23 12:58:35 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-23 12:58:35 -0400 |
| commit | 2e606b03c8dbc594610e62ac260145ac26ebc699 (patch) | |
| tree | 23055572341487865f0ef6cff685404f796a2410 /demo/tcSum.ur | |
| parent | 3b7e65be5f6e496c23df7909d50ce8e287d571d7 (diff) | |
Fix nasty de Bruijn substitution bug; TcSum demo
Diffstat (limited to 'demo/tcSum.ur')
| -rw-r--r-- | demo/tcSum.ur | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/demo/tcSum.ur b/demo/tcSum.ur new file mode 100644 index 00000000..53679116 --- /dev/null +++ b/demo/tcSum.ur @@ -0,0 +1,9 @@ +fun sum (t ::: Type) (_ : num t) (fs ::: {Unit}) (x : $(mapUT t fs)) = + foldUR [t] [fn _ => t] + (fn (nm :: Name) (rest :: {Unit}) [[nm] ~ rest] n acc => n + acc) + zero [fs] x + +fun main () = return <xml><body> + {[sum {A = 0, B = 1}]}<br/> + {[sum {C = 2.1, D = 3.2, E = 4.3}]} +</body></xml> |