8 lines
149 B
Markdown
8 lines
149 B
Markdown
|
```racket
|
||
|
(actor
|
||
|
(forever #:collect [(balance 0)]
|
||
|
(assert (account balance))
|
||
|
(on (message (deposit $amount))
|
||
|
(+ balance amount))))
|
||
|
```
|