sca-cpp/trunk/test/store-scheme/currency-converter.scm


1
2
3
4
5
6
7
8
9
10

; Currency converter implementation

(define (convert from to amount)
  (if (equal? to "EUR") (* amount 0.70) amount)
)

(define (symbol currency) 
  (if (equal? currency "EUR") "E" "$")
)