#lang racket
 
(define Message%
  (class object%
    (init aString)
    (field (text aString))
    (super-new)
    (define/public (printIt)
      (println text))))
 
(define Square%
  (class object%
    (init side)
    (field (this-side side))
    (super-new)
    (define/public (calculateArea)
      (expt this-side 2))))
 
(define Circle%
  (class object%
    (init radius)
    (field (this-radius radius))
    (super-new)
    (define/public (calculateArea)
      (* pi (expt this-radius 2)))))
 
(define BalanceError "現在の口座残高は~aしかありません。")
 
(define BankAccount%
  (class object%
    (init initialAmount)
    (field (balance initialAmount))
    (printf "口座を開設しました。口座残高は~aです。~%" balance)
    (super-new)
    (define/public (deposit amount)
      (set! balance (+ balance amount)))
    (define/public (withdraw amount)
      (if (>= balance amount)
          (set! balance (- balance amount))
          (error 'BalanceError BalanceError balance)))
    (define/public (getBalance)
      balance)
    (define/public (transfer amount account)
      (with-handlers ((exn:fail?
                       (lambda (exn)
                         (printf BalanceError balance)
                         (newline))))
        (withdraw amount)
        (send account deposit amount)))))
 
(define InterestAccount%
  (class BankAccount%
    (super-new)
    (inherit-field balance)
    (define/override (deposit amount)
      (super deposit amount)
      (set! balance (* balance 1.03)))))
 
(define ChargingAccount%
  (class BankAccount%
    (super-new)
    (init-field (fee 3))
    (define/override (withdraw amount)
      (super withdraw (+ amount fee)))))
 
(module+ main
 
  (define m1 (new Message% (aString "Hello world")))
  (define m2 (new Message% (aString "楽しかったです。さようなら。")))
 
  (define note `(,m1 ,m2))
  (for-each (lambda (msg)
              (send msg printIt)) note)
 
  (define lst `(,(new Circle% (radius 5))
                ,(new Circle% (radius 7))
                ,(new Square% (side 9))
                ,(new Circle% (radius 3))
                ,(new Square% (side 12))))
 
  (for-each (lambda (shape)
              (printf "面積は、~a~%" (send shape calculateArea))) lst)
 
;;   標準のBankAccountのテスト
  (define a (new BankAccount% (initialAmount 500)))
  (define b (new BankAccount% (initialAmount 200)))
  (send a withdraw 100)
  ;; (send a withdraw 1000)
  (send a transfer 100 b)
  (printf "A=~a~%" (send a getBalance)) ; 300になる
  (printf "B=~a~%" (send b getBalance)) ; 300になる
 
;;   InterestAccount のテスト
  (define c (new InterestAccount% (initialAmount 1000)))
  (send c deposit 100)
  (printf "C=~a~%" (send c getBalance)) ; 1133になる
 
;;   ChargingAccountのテスト
  (define d (new ChargingAccount% (initialAmount 300)))
  (send d deposit 200)
  (printf "D=~a~%" (send d getBalance)) ; 500になる
  (send d withdraw 50)
  (printf "D=~a~%" (send d getBalance)) ; 447になる
  (send d transfer 100 a)
  (printf "A=~a~%" (send a getBalance)) ; 400になる
  (printf "D=~a~%" (send d getBalance)) ; 344になる
 
;;   最後に、ChargingAccountからInterestAccountに振り込みする
;;   ChagingAccountでは振り込み手数料が発生し、
;;   InterestAccountでは利息が発生する
  (printf "C=~a~%" (send c getBalance)) ; 1133である
  (printf "D=~a~%" (send d getBalance)) ; 344である
  (send d transfer 20 c)
  (printf "C=~a~%" (send c getBalance)) ; 1187.59である
  (printf "D=~a~%" (send d getBalance)) ; 321になる
  )

I2xhbmcgcmFja2V0CgooZGVmaW5lIE1lc3NhZ2UlCiAgKGNsYXNzIG9iamVjdCUKICAgIChpbml0IGFTdHJpbmcpCiAgICAoZmllbGQgKHRleHQgYVN0cmluZykpCiAgICAoc3VwZXItbmV3KQogICAgKGRlZmluZS9wdWJsaWMgKHByaW50SXQpCiAgICAgIChwcmludGxuIHRleHQpKSkpCgooZGVmaW5lIFNxdWFyZSUKICAoY2xhc3Mgb2JqZWN0JQogICAgKGluaXQgc2lkZSkKICAgIChmaWVsZCAodGhpcy1zaWRlIHNpZGUpKQogICAgKHN1cGVyLW5ldykKICAgIChkZWZpbmUvcHVibGljIChjYWxjdWxhdGVBcmVhKQogICAgICAoZXhwdCB0aGlzLXNpZGUgMikpKSkKCihkZWZpbmUgQ2lyY2xlJQogIChjbGFzcyBvYmplY3QlCiAgICAoaW5pdCByYWRpdXMpCiAgICAoZmllbGQgKHRoaXMtcmFkaXVzIHJhZGl1cykpCiAgICAoc3VwZXItbmV3KQogICAgKGRlZmluZS9wdWJsaWMgKGNhbGN1bGF0ZUFyZWEpCiAgICAgICgqIHBpIChleHB0IHRoaXMtcmFkaXVzIDIpKSkpKQoKKGRlZmluZSBCYWxhbmNlRXJyb3IgIuePvuWcqOOBruWPo+W6p+aui+mrmOOBr35h44GX44GL44GC44KK44G+44Gb44KT44CCIikKCihkZWZpbmUgQmFua0FjY291bnQlCiAgKGNsYXNzIG9iamVjdCUKICAgIChpbml0IGluaXRpYWxBbW91bnQpCiAgICAoZmllbGQgKGJhbGFuY2UgaW5pdGlhbEFtb3VudCkpCiAgICAocHJpbnRmICLlj6PluqfjgpLplovoqK3jgZfjgb7jgZfjgZ/jgILlj6Pluqfmrovpq5jjga9+YeOBp+OBmeOAgn4lIiBiYWxhbmNlKQogICAgKHN1cGVyLW5ldykKICAgIChkZWZpbmUvcHVibGljIChkZXBvc2l0IGFtb3VudCkKICAgICAgKHNldCEgYmFsYW5jZSAoKyBiYWxhbmNlIGFtb3VudCkpKQogICAgKGRlZmluZS9wdWJsaWMgKHdpdGhkcmF3IGFtb3VudCkKICAgICAgKGlmICg+PSBiYWxhbmNlIGFtb3VudCkKICAgICAgICAgIChzZXQhIGJhbGFuY2UgKC0gYmFsYW5jZSBhbW91bnQpKQogICAgICAgICAgKGVycm9yICdCYWxhbmNlRXJyb3IgQmFsYW5jZUVycm9yIGJhbGFuY2UpKSkKICAgIChkZWZpbmUvcHVibGljIChnZXRCYWxhbmNlKQogICAgICBiYWxhbmNlKQogICAgKGRlZmluZS9wdWJsaWMgKHRyYW5zZmVyIGFtb3VudCBhY2NvdW50KQogICAgICAod2l0aC1oYW5kbGVycyAoKGV4bjpmYWlsPwogICAgICAgICAgICAgICAgICAgICAgIChsYW1iZGEgKGV4bikKICAgICAgICAgICAgICAgICAgICAgICAgIChwcmludGYgQmFsYW5jZUVycm9yIGJhbGFuY2UpCiAgICAgICAgICAgICAgICAgICAgICAgICAobmV3bGluZSkpKSkKICAgICAgICAod2l0aGRyYXcgYW1vdW50KQogICAgICAgIChzZW5kIGFjY291bnQgZGVwb3NpdCBhbW91bnQpKSkpKQoKKGRlZmluZSBJbnRlcmVzdEFjY291bnQlCiAgKGNsYXNzIEJhbmtBY2NvdW50JQogICAgKHN1cGVyLW5ldykKICAgIChpbmhlcml0LWZpZWxkIGJhbGFuY2UpCiAgICAoZGVmaW5lL292ZXJyaWRlIChkZXBvc2l0IGFtb3VudCkKICAgICAgKHN1cGVyIGRlcG9zaXQgYW1vdW50KQogICAgICAoc2V0ISBiYWxhbmNlICgqIGJhbGFuY2UgMS4wMykpKSkpCgooZGVmaW5lIENoYXJnaW5nQWNjb3VudCUKICAoY2xhc3MgQmFua0FjY291bnQlCiAgICAoc3VwZXItbmV3KQogICAgKGluaXQtZmllbGQgKGZlZSAzKSkKICAgIChkZWZpbmUvb3ZlcnJpZGUgKHdpdGhkcmF3IGFtb3VudCkKICAgICAgKHN1cGVyIHdpdGhkcmF3ICgrIGFtb3VudCBmZWUpKSkpKQoKKG1vZHVsZSsgbWFpbgogIAogIChkZWZpbmUgbTEgKG5ldyBNZXNzYWdlJSAoYVN0cmluZyAiSGVsbG8gd29ybGQiKSkpCiAgKGRlZmluZSBtMiAobmV3IE1lc3NhZ2UlIChhU3RyaW5nICLmpb3jgZfjgYvjgaPjgZ/jgafjgZnjgILjgZXjgojjgYbjgarjgonjgIIiKSkpCgogIChkZWZpbmUgbm90ZSBgKCxtMSAsbTIpKQogIChmb3ItZWFjaCAobGFtYmRhIChtc2cpCiAgICAgICAgICAgICAgKHNlbmQgbXNnIHByaW50SXQpKSBub3RlKQoKICAoZGVmaW5lIGxzdCBgKCwobmV3IENpcmNsZSUgKHJhZGl1cyA1KSkKICAgICAgICAgICAgICAgICwobmV3IENpcmNsZSUgKHJhZGl1cyA3KSkKICAgICAgICAgICAgICAgICwobmV3IFNxdWFyZSUgKHNpZGUgOSkpCiAgICAgICAgICAgICAgICAsKG5ldyBDaXJjbGUlIChyYWRpdXMgMykpCiAgICAgICAgICAgICAgICAsKG5ldyBTcXVhcmUlIChzaWRlIDEyKSkpKQoKICAoZm9yLWVhY2ggKGxhbWJkYSAoc2hhcGUpCiAgICAgICAgICAgICAgKHByaW50ZiAi6Z2i56mN44Gv44CBfmF+JSIgKHNlbmQgc2hhcGUgY2FsY3VsYXRlQXJlYSkpKSBsc3QpCgo7OyAgIOaomea6luOBrkJhbmtBY2NvdW5044Gu44OG44K544OICiAgKGRlZmluZSBhIChuZXcgQmFua0FjY291bnQlIChpbml0aWFsQW1vdW50IDUwMCkpKQogIChkZWZpbmUgYiAobmV3IEJhbmtBY2NvdW50JSAoaW5pdGlhbEFtb3VudCAyMDApKSkKICAoc2VuZCBhIHdpdGhkcmF3IDEwMCkKICA7OyAoc2VuZCBhIHdpdGhkcmF3IDEwMDApCiAgKHNlbmQgYSB0cmFuc2ZlciAxMDAgYikKICAocHJpbnRmICJBPX5hfiUiIChzZW5kIGEgZ2V0QmFsYW5jZSkpIDsgMzAw44Gr44Gq44KLCiAgKHByaW50ZiAiQj1+YX4lIiAoc2VuZCBiIGdldEJhbGFuY2UpKSA7IDMwMOOBq+OBquOCiwoKOzsgICBJbnRlcmVzdEFjY291bnQg44Gu44OG44K544OICiAgKGRlZmluZSBjIChuZXcgSW50ZXJlc3RBY2NvdW50JSAoaW5pdGlhbEFtb3VudCAxMDAwKSkpCiAgKHNlbmQgYyBkZXBvc2l0IDEwMCkKICAocHJpbnRmICJDPX5hfiUiIChzZW5kIGMgZ2V0QmFsYW5jZSkpIDsgMTEzM+OBq+OBquOCiwoKOzsgICBDaGFyZ2luZ0FjY291bnTjga7jg4bjgrnjg4gKICAoZGVmaW5lIGQgKG5ldyBDaGFyZ2luZ0FjY291bnQlIChpbml0aWFsQW1vdW50IDMwMCkpKQogIChzZW5kIGQgZGVwb3NpdCAyMDApCiAgKHByaW50ZiAiRD1+YX4lIiAoc2VuZCBkIGdldEJhbGFuY2UpKSA7IDUwMOOBq+OBquOCiwogIChzZW5kIGQgd2l0aGRyYXcgNTApCiAgKHByaW50ZiAiRD1+YX4lIiAoc2VuZCBkIGdldEJhbGFuY2UpKSA7IDQ0N+OBq+OBquOCiwogIChzZW5kIGQgdHJhbnNmZXIgMTAwIGEpCiAgKHByaW50ZiAiQT1+YX4lIiAoc2VuZCBhIGdldEJhbGFuY2UpKSA7IDQwMOOBq+OBquOCiwogIChwcmludGYgIkQ9fmF+JSIgKHNlbmQgZCBnZXRCYWxhbmNlKSkgOyAzNDTjgavjgarjgosKCjs7ICAg5pyA5b6M44Gr44CBQ2hhcmdpbmdBY2NvdW5044GL44KJSW50ZXJlc3RBY2NvdW5044Gr5oyv44KK6L6844G/44GZ44KLCjs7ICAgQ2hhZ2luZ0FjY291bnTjgafjga/mjK/jgorovrzjgb/miYvmlbDmlpnjgYznmbrnlJ/jgZfjgIEKOzsgICBJbnRlcmVzdEFjY291bnTjgafjga/liKnmga/jgYznmbrnlJ/jgZnjgosKICAocHJpbnRmICJDPX5hfiUiIChzZW5kIGMgZ2V0QmFsYW5jZSkpIDsgMTEzM+OBp+OBguOCiwogIChwcmludGYgIkQ9fmF+JSIgKHNlbmQgZCBnZXRCYWxhbmNlKSkgOyAzNDTjgafjgYLjgosKICAoc2VuZCBkIHRyYW5zZmVyIDIwIGMpCiAgKHByaW50ZiAiQz1+YX4lIiAoc2VuZCBjIGdldEJhbGFuY2UpKSA7IDExODcuNTnjgafjgYLjgosKICAocHJpbnRmICJEPX5hfiUiIChzZW5kIGQgZ2V0QmFsYW5jZSkpIDsgMzIx44Gr44Gq44KLCiAgKQ==