;;; 2.10a.scm
;;; $Id: 2.10a.scm 1.2 2023/04/02 10:35:45 s Exp $

(define (main args)
; bp,  Barr els produced    : 生産量(バレル)
; gr,  Gross revenue       : 総収入
; ni,  Net income          : 正味収益
; op1, Option1             : 選択肢1
; op2, Option2             : 選択肢2
; da,  Depletion allowance : 消耗控除
; ti,  Tax income          : 課税対象収益
; tax                      : 税金
; ai,  After-tax income    : 税引後収益
; sumda                    : 全消耗控除

; input
(define i   (list      1      2      3     4     5))
(define bp  (list   80e3   70e3   50e3  30e3  10e3))
(define gr  (list 1600e3 1400e3 1000e3 600e3 200e3))
(define ni  (list 1200e3 1000e3  500e3 200e3  50e3))

; calculation
(define a   (map (lambda (x)   (*   x 0.5))  ni))
(define b   (map (lambda (x)   (*   x 0.22)) gr))
(define op1 (map (lambda (x y) (min x y))    a b))
(define op2 (map (lambda (x)   (*   x 5))    bp))
(define da  (map (lambda (x y) (max x y))    op1 op2))
(define ti  (map (lambda (x y) (-   x y))    ni da))
(define tax (map (lambda (x)   (*   x 0.45)) ti))
(define ai  (map (lambda (x y) (-   x y))    ni tax))
(define sum (lambda (x) (fold + 0 x)))
(define sumda (sum da))

; output
(print "bp "  bp)
(print "gr "  gr)
(print "ni "  ni)
(print "op1 " op1)
(print "op2 " op2)
(print "da "  da)
(print "ti "  ti)
(print "tax " tax)
(print "ai "  ai)
(print "sum_of_da= " sumda)

0)
; end of file