14 lines
282 B
Racket
14 lines
282 B
Racket
#lang racket
|
|
|
|
;; here
|
|
(file-exists? "input.txt")
|
|
(file-exists? "docs")
|
|
|
|
;; in the root
|
|
(file-exists? "/input.txt")
|
|
(file-exists? "/docs")
|
|
|
|
;; or in the root with relative paths
|
|
(parameterize ([current-directory "/"])
|
|
(and (file-exists? "input.txt")
|
|
(file-exists? "docs")))
|