Arthur Barraux
13 lines
182 B
Scheme
13 lines
182 B
Scheme
; canada
|
|
(let ((data (read)))
|
|
(gc-flip)
|
|
(print-gc-statistics)
|
|
(newline)
|
|
(display "records: ")
|
|
(display (vector-length data)))
|
|
|
|
(gc-flip)
|
|
(print-gc-statistics)
|
|
|
|
|