8 lines
164 B
Racket
8 lines
164 B
Racket
|
#lang racket
|
||
|
|
(displayln "Enter a time (in seconds): ")
|
||
|
|
(define time (read))
|
||
|
|
(when (number? time)
|
||
|
|
(displayln "Sleeping...")
|
||
|
|
(sleep time)
|
||
|
|
(displayln "Awake!"))
|