Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #lang racket
- (struct robot (x y energy item))
- (define (displace-robot rob dx dy)
- (struct-copy robot rob [x (+ (robot-x rob) dx)]
- [y (+ (robot-y rob) dy)]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement