Method for checking bank account existence in the list of them.
This commit is contained in:
parent
4c25246fe7
commit
6b8bffdd41
1 changed files with 13 additions and 0 deletions
|
@ -44,6 +44,8 @@
|
||||||
bank-transaction-type
|
bank-transaction-type
|
||||||
bank-transaction-account
|
bank-transaction-account
|
||||||
bank-transaction-bank
|
bank-transaction-bank
|
||||||
|
|
||||||
|
bank-accounts-member?
|
||||||
)
|
)
|
||||||
|
|
||||||
(import scheme
|
(import scheme
|
||||||
|
@ -85,4 +87,15 @@
|
||||||
(bank-transaction-message tr)
|
(bank-transaction-message tr)
|
||||||
(bank-transaction-type tr))))
|
(bank-transaction-type tr))))
|
||||||
|
|
||||||
|
;; Returns true if given acc/bc is in the list of accounts
|
||||||
|
(define (bank-accounts-member? bas acc bc)
|
||||||
|
(let loop ((bas bas))
|
||||||
|
(if (null? bas)
|
||||||
|
#f
|
||||||
|
(let ((ba (car bas)))
|
||||||
|
(if (and (equal? acc (bank-account-number ba))
|
||||||
|
(equal? bc (bank-account-bank ba)))
|
||||||
|
#t
|
||||||
|
(loop (cdr bas)))))))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue