Daniel Bastos wrote:
> 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?

...wuh??

Post a reply to this message