PasteRack.org
Paste # 47290
2018-04-22 12:06:24

Fork as a new paste.

Paste viewed 119 times.


Embed:

  1. #lang racket
  2.  
  3. (require racket/tcp)
  4.  
  5. (define (download url)
  6.     (let ([ports (tcp-conect url 80)] [output-port (cdr ports)])
  7.     (read-string 666 output-port)))

=>