Sha256: 35dcb51c63bcc05a3d31574564850ff9bab055c066ff28ba29514fff7c8ee26e
Contents?: true
Size: 387 Bytes
Versions: 46
Compression:
Stored size: 387 Bytes
Contents
module BankAccount
type BankAccount =
| Open of float
| Closed
let mkBankAccount() = Closed
let openAccount =
function
| Open x -> Open x
| Closed -> Open 0.0
let closeAccount x = Closed
let getBalance =
function
| Open x -> Some x
| Closed -> None
let updateBalance change =
function
| Open x -> Open (x + change)
| Closed -> Closed
Version data entries
46 entries across 46 versions & 1 rubygems