PasteRack.org
Paste # 35783
2019-04-04 21:05:28

Forked from paste # 68947.

Fork as a new paste.

Paste viewed 317 times.


Embed:

  1. #lang racket
  2. (define(volume-sphere radius)
  3.   (/ (* 4 3.14 radius radius radius) 3))
  4.  
  5.    (define (volume-shell inner-radius outer-radius)
  6.      (- (volume-sphere outer-radius) (volume-sphere inner-radius)))
  7.  
  8.    (volume-shell 1 2)
  9.    (volume-shell 3 5)
  10.  
  11. (define(close? x y limit)
  12.   (<(abs(- n1 n2))limit))
  13.  
  14.    (close? 5 4 1)
  15.    (close? 6 3 5)

=>

29.306666666666665

410.29333333333335

n1: undefined;

 cannot reference an identifier before its definition

  in module: 'm

n1: undefined;

 cannot reference an identifier before its definition

  in module: 'm