syndicate-2017/_includes/frontpage_racket_example1.md

8 lines
143 B
Markdown
Raw Normal View History

```racket
(actor
2016-08-25 12:15:06 +00:00
(field [balance 0])
(assert (account (balance)))
(on (message (deposit $amount))
(balance (+ (balance) amount))))
```