syndicate-2017/_includes/frontpage_racket_example1.md

9 lines
156 B
Markdown
Raw Normal View History

```racket
(actor
2016-08-07 20:55:46 +00:00
(react
(field [balance 0])
(assert (account (balance)))
(on (message (deposit $amount))
(balance (+ (balance) amount)))))
```