brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Method for checking bank account existence in the list of them.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 19:22:50 +02:00
parent 4c25246fe7
commit 6b8bffdd41
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/bank-account.scm
View file

@ -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)))))))
) )