Codebase list ohcount / 71f18fd0-2918-4673-9432-32d77816000d/main test / expected_dir / example.rkt
71f18fd0-2918-4673-9432-32d77816000d/main

Tree @71f18fd0-2918-4673-9432-32d77816000d/main (Download .tar.gz)

example.rkt @71f18fd0-2918-4673-9432-32d77816000d/mainraw · history · blame

racket	comment	;; language declaration commented out until someone extends the
racket	comment	;; parser to support it:
racket	blank	
racket	comment	;; #lang racket
racket	blank	
racket	comment	;; Report each unique line from stdin
racket	code	(let ([saw (make-hash)])
racket	code	  (for ([line (in-lines)])
racket	code	    (unless (hash-ref saw line #f)
racket	code	      (displayln line))
racket	code	    (hash-set! saw line #t)))
racket	blank