fork download
copy 
  1. ; tax brackets
  2.  
  3. (define brackets '((100000 0.4) (30000 0.25) (10000 0.1)))
  4.  
  5. (define (tax income brackets)
  6.   (if (null? brackets) 0
  7.     (+ (* (max (- income (caar brackets)) 0) (cadar brackets))
  8.        (tax (min income (caar brackets)) (cdr brackets)))))
  9.  
  10. (display (tax 123456 brackets))
Success #stdin #stdout 0.01s 7560KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
28882.4
https://ideone.com/T62CTT
language:
Scheme (chicken 4.13)
created:
3 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!