26 lines
561 B
Scheme
26 lines
561 B
Scheme
|
;;; CAT -- One of the Kernighan and Van Wyk benchmarks.
|
||
|
|
|
||
|
|
(define inport #f)
|
||
|
|
(define outport #f)
|
||
|
|
|
||
|
|
(define (catport port)
|
||
|
|
(let ((x (read-char port)))
|
||
|
|
(if (eof-object? x)
|
||
|
|
(close-output-port outport)
|
||
|
|
(begin
|
||
|
|
(write-char x outport)
|
||
|
|
(catport port)))))
|
||
|
|
|
||
|
|
(define (go)
|
||
|
|
(set! inport (open-input-file "../../src/bib"))
|
||
|
|
(set! outport (open-output-file "foo"))
|
||
|
|
(catport inport)
|
||
|
|
(close-input-port inport))
|
||
|
|
|
||
|
|
(define (main . args)
|
||
|
|
(run-benchmark
|
||
|
|
"cat"
|
||
|
|
cat-iters
|
||
|
|
(lambda (result) #t)
|
||
|
|
(lambda () (lambda () (go)))))
|