PasteRack.org
Paste # 97674
2018-10-25 07:45:42

Fork as a new paste.

Paste viewed 2958 times.


Embed:

  1. #lang racket
  2.  
  3. (struct planet
  4.   (radius))
  5.  
  6. (define (circumference radius)
  7.   (* 2 pi radius))
  8.  
  9. (define (volume radius)
  10.   (* 4/3 pi (expt radius 3)))
  11.  
  12. (define planet-circumference
  13.   (compose circumference planet-radius))
  14.  
  15. (define planet-volume
  16.   (compose volume planet-radius))

=>