(wat-aro)

生きてます

2015-11-07から1日間の記事一覧

SICP 問題 3.07

(define (make-account balance password) (define (withdraw amount) (if (>= balance amount) (begin (set! balance (- balance amount)) balance) "Insufficient funds")) (define (deposit amount) (set! balance (+ balance amount)) balance) (define …