www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

display-time.rkt (303B)

      1 #lang racket/base
      2 (require racket/date)
      3 
      4 (provide display-time)
      5 
      6 (define (display-time)
      7   (define now (seconds->date (current-seconds)))
      8   (printf "[~a] The time is now ~a\n" 
      9           (parameterize ([date-display-format 'iso-8601])
     10             (date->string now #t))
     11           (date->string now #t)))