0
(define-struct directory (name contents))
;A directory is a (make-directory String (list-of files)
;A file is one of:
; a * String (containing the name of the file; non-empty and does not contain
"/"
;* a Directory
我在做什么是一个函数，它将一个目录和一个文件名用作字符串。然后该函数应该生成文件路径，每个文件或目录以“/”分隔。计划/球拍中的文件路径/
一个示例目录：
(define a1 (make-directory "a1" (list "a1.pdf" "a1q1.rkt" "a1q2.rkt" "a1q3.rkt")))
(define a2 (make-directory "a2" (list "a2.pdf")))
(define assns (make-directory "assns" (list a1 a2)))
(define labs (make-directory "labs" (list "lab01.pdf" "lab02.pdf")))
(define final (make-directory "final" empty))
(define cs115 (make-directory "cs115" (list assns labs final "style.pdf" "survivial.pdf")))
例如
(path cs115 "a2.pdf")
应该产生
"cs115/assns/a2/a2.pdf"
我有什么至今：
(define (find dir name)
(cond
[(string=? (directory-name dir) name) name]
[(member? name (directory-contents dir))
(string-append (directory-name dir) "/" name)]
[(cons? (directory-contents dir))
(content-list (directory-name dir)(directory-contents dir) name)]
))
(define (content-list dir-name dir-list name)
(cond
[(empty? dir-list)
(content-list dir-name (rest dir-list) name)]
[(equal? (first dir-list) name)
(string-append dir-name "/" (first dir-list))]
[(directory? (first dir-list))
(find (first dir-list) name)]
[else (content-list dir-name (rest dir-list) name)]
))
问候， 山姆
虽然我不知道我理解你的问题，你想_sounds_功能类似球拍的[构建路径（http://docs.racket-lang.org/reference/Manipulating_Paths.html#%28def ._％28％28quote._〜23〜25kernel％29._build路径％29％29）？同时请记住'apply'和'list *'。 –
我的问题是如何创建一个文件路径从我看到的问题 – Sam
上面创建的目录，所以该函数应该找到所需的名称的文件，在目录树的任何深度，并返回完整路径/它们。如果有多个这样的文件，它是否只需要返回它发现的第一个，或者它们全部？另外：到目前为止您尝试了哪些代码，以及您卡在哪里？ –