steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

starting bank account stuff

db4
Alex Chapman 2008-03-11 10:38:34 +11:00
parent 21e0f8c302
commit cf18828cca
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
extra/bank/bank.factor Normal file
View File

@ -0,0 +1,33 @@
USING: accessors calendar kernel money new-slots sequences ;
IN: bank
MIXIN: policy
TUPLE: simple-policy interest-rate ;
INSTANCE: simple-policy policy
C: <simple-policy> simple-policy
GENERIC: interest-rate ( date account policy -- rate )
M: simple-policy interest-rate 2nip interest-rate>> ;
: daily-interest-rate ( date account policy -- rate )
pick days-in-year >r interest-rate r> / ;
TUPLE: account name balance transactions ;
: <account> ( name -- account )
0 V{ } clone account construct-boa ;
TUPLE: transaction date amount description ;
C: <transaction> transaction
: >>transaction ( account transaction -- account )
over transactions>> push ;
: open-account ( date opening-balance name -- account )
<account> >r "Account Opened" <transaction> >>transaction ;
: open-account-now ( opening-balance name -- account )
now -rot open-account ;