Skip to content

Instantly share code, notes, and snippets.

@eungju

eungju/gist:2352121

Created April 10, 2012 15:26
Show Gist options
  • Save eungju/2352121 to your computer and use it in GitHub Desktop.
Save eungju/2352121 to your computer and use it in GitHub Desktop.
Download ZIP
수익율계산
Raw
gistfile1.txt
: standard-deposit ( a r t -- a ) swap 1 + swap ^ * ;
: regular-deposit ( a r n t -- a ) over [ / ] [ * ] 2bi* iota [ 2over rot 1 + standard-deposit ] map sum 2nip ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment