aboutsummaryrefslogtreecommitdiffstats
path: root/research/experiments/045-proof-compiler/units/arith.aup
blob: 76f48dc9efae31cc91aae01e729c1e8b70b5e843 (plain)
1
2
3
4
5
6
7
state t = 0
input go = message { n: u32 }
on go {
  let s = 0
  for i in 0 .. go.n { s = s + i * 2 }
  t = s
}