Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2019
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.40 KB | None | 0 0
  1. (define WIDTH 600)
  2. (define SHEEP-0  (make-sheep 0 MATHEXPR-0 5))
  3. (define SHEEP-1  (make-sheep (/ WIDTH 2) MATHEXPR-1 5))
  4. (define SHEEP-2  (make-sheep WIDTH MATHEXPR-2 5))
  5.  
  6.  
  7. (define LOS-0 '())
  8. (define LOS-1 (cons SHEEP-0 LOS-0))
  9. (define LOS-2 (cons SHEEP-1 LOS-1))
  10. (define LOS-3 (cons SHEEP-2 LOS-2))
  11.  
  12. (define WORLD-0 ("" LOS-3 0))
  13. (define WORLD-1 ("90" LOS-3 1))
  14. (define WORLD-2 ("" LOS-0 4))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement