19 lines
1016 B
Scheme
19 lines
1016 B
Scheme
;; The first three lines of this file were inserted by DrScheme. They record metadata
|
|
;; about the language level of this file in a form that our tools can easily process.
|
|
#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname dir) (read-case-sensitive #t) (teachpacks ((lib "dir.ss" "teachpack" "htdp"))) (htdp-settings #8(#t constructor repeating-decimal #f #t none #f ((lib "dir.ss" "teachpack" "htdp")))))
|
|
;; TeachPack: dir.ss
|
|
;; Language: Intermediate with Lambda
|
|
|
|
(define current (create-dir "."))
|
|
(define teachps (create-dir (string-append "/Users/matthias/plt/" "collects/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) (not (member x current-files))) teachps-files))
|
|
(map (lambda (x) (format "in Test, not in Teachpacks: ~s" x))
|
|
(filter (lambda (x) (not (member x teachps-files))) current-files)))
|
|
|