在所有子目錄中查詢球拍源

#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。