PasteRack.org
Paste # 1983
2018-04-17 15:05:44

Fork as a new paste.

Paste viewed 621 times.


Embed:

  1. #lang racket
  2. (define (symbol stock)
  3. (car stock))
  4.  
  5. (define (price stock)
  6. (car (cdr stock)))
  7.  
  8. (define (shares stock)
  9. (car (cdr (cdr stock))))
  10.  
  11. (define (printValue stock)
  12. (printf "~a : ~a~%" (symbol stock)(* (price stock) (shares stock))))
  13.  
  14. (define (value stock)
  15. (* (price stock) (shares stock)))
  16.  
  17. (define appleStock (list "AAPL" 100 5))
  18.  
  19. (printValue appleStock)

=>

AAPL : 500