Codebase list ohcount / upstream/4.0.0+git20210223.6654d48 test / src_dir / example.rkt
upstream/4.0.0+git20210223.6654d48

Tree @upstream/4.0.0+git20210223.6654d48 (Download .tar.gz)

example.rkt @upstream/4.0.0+git20210223.6654d48 

8e3aae6
 
 
 
 
 
 
 
 
 
 
 
 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
;; language declaration commented out until someone extends the
;; parser to support it:

;; #lang racket

;; Report each unique line from stdin
(let ([saw (make-hash)])
  (for ([line (in-lines)])
    (unless (hash-ref saw line #f)
      (displayln line))
    (hash-set! saw line #t)))