syndicate-2017/_includes/frontpage_racket_example1.md

8 lines
143 B
Markdown
Raw Normal View History

```racket
2017-02-20 22:19:56 +00:00
(spawn
2016-08-25 12:15:06 +00:00
(field [balance 0])
(assert (account (balance)))
(on (message (deposit $amount))
(balance (+ (balance) amount))))
```