Racket 12

(Racket) get web page, KOSPI200 시세 얻기

#lang racket (require net/url) (define p (get-pure-port (string->url "http://www.naver.com"))) (let loop () (define r (read-line p)) (cond [(not (eof-object? r)) (display r) (loop)])) 아래는 koscom 에서 kospi200 시세를 얻어오는 예제이다 . (showindex.rkt)#lang racket (require net/url) (require racket/date) (define (read-url url) (port->string (reencode-input-port (get-pure-port (string->url url)) "EUC-KR")))(def..