Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
13 lines (9 sloc) 412 Bytes
;; ========================================================
;; 6-make-payment
;; ========================================================
;; do payment of 25.0 from Sarah to James
(pay "Sarah" "James" 25.0)
;; read Sarah's balance as Sarah
(format "Sarah's balance is {}" [(get-balance "Sarah")])
;; read James' balance as JAMES
(format "James's balance is {}" [(get-balance "James")])
You can’t perform that action at this time.