5 lines
189 B
Racket
5 lines
189 B
Racket
#lang racket
|
|
(require net/url)
|
|
((compose1 car (curry regexp-match #rx"[^ <>][^<>]+ UTC")
|
|
port->string get-pure-port string->url)
|
|
"https://tycho.usno.navy.mil/cgi-bin/timer.pl")
|