How strong are my imperative ways?
#!/usr/bin/env mzscheme
(module cat scheme/base
(define (cat)
(let ([ln (read-line)])
(if (not (eq? ln eof))
(and (display ln) (newline) (cat))
(exit) )))
; main
(cat)
)
%fortune | ./cat
Let me put it this way: today is going to be a learning experience.
%
How would you scheme up your cat?
Post a reply to this message
|