在所有子目录中查找球拍源

#lang racket 
(for ([path (in-directory)]
  #:when (regexp-match? #rx"[.]rkt$" path))
  (printf "source file: ~a\n" path))

#lang 行指定此文件的编程语言。#lang racket 我们正在使用基准的，包含电池的 Racket 编程语言。其他语言从 Racket 风格如 Type Racket（#lang typed/racket）或文档语言 Scribble（#lang scribble），到小便利语言，如定义包的语言（#lang info）。

in-directory 函数构造一个遍历目录树的序列（默认情况下从当前目录开始）并在树中生成路径。for 形式将 path 绑定到序列中的每个路径，regexp-match? 将一个模式应用于路径。

要运行该示例，请安装 Racket，启动 DrRacket，将示例程序粘贴到 DrRacket 的顶部区域，然后单击运行按钮。或者，将程序保存到文件并从文件的命令行运行 racket。