check.st

来自「四皇后问题」· ST 代码 · 共 16 行

Class CheckBook
| balance |
[
	new
		balance <- 0
|
	+ amount
		balance <- balance + amount.
		^ balance
|
	- amount
		balance <- balance - amount.
		^ balance
]