16 lines
597 B
Scheme
16 lines
597 B
Scheme
;; TeachPack: dir.ss
|
|
;; Language: Intermediate with Lambda
|
|
|
|
(define current (create-dir "."))
|
|
(define teachps (create-dir (string-append "/Users/matthias/plt/" "/teachpack/htdp")))
|
|
|
|
(define current-files (map file-name (dir-files current)))
|
|
(define teachps-files (map file-name (dir-files teachps)))
|
|
|
|
(append
|
|
(map (lambda (x) (format "in Teachpacks, not in Test: ~s" x))
|
|
(filter (lambda (x) (boolean? (member x current-files))) teachps-files))
|
|
(map (lambda (x) (format "in Test, not in Teachpacks: ~s" x))
|
|
(filter (lambda (x) (boolean? (member x teachps-files))) current-files)))
|
|
|