17 lines
128 B
Racket
17 lines
128 B
Racket
#lang planet dyoo/whalesong
|
|
|
|
(define-struct p (f r))
|
|
|
|
|
|
struct:p
|
|
make-p
|
|
p-f
|
|
p-r
|
|
p?
|
|
|
|
|
|
|
|
(define p1 (make-p 3 4))
|
|
(p-f p1)
|
|
(p-r p1)
|