22 lines
157 B
Racket
22 lines
157 B
Racket
#lang planet dyoo/whalesong
|
|
|
|
(define-struct p (f r))
|
|
|
|
|
|
"1"
|
|
struct:p
|
|
"2"
|
|
make-p
|
|
"3"
|
|
p-f
|
|
"4"
|
|
p-r
|
|
"5"
|
|
p?
|
|
"6"
|
|
|
|
|
|
#;(define p1 (make-p 3 4))
|
|
#;(p-f p1)
|
|
#;(p-r p1)
|