如何处理学生Racket代码中的未定义过程以完成作业评测？

针对学生作业中未实现/拼写错误的过程，有几种实用方式可以保证你能正常评测其余代码：

1. 动态加载+异常兜底 #

不用直接(require "project0.rkt")，改用dynamic-require配合异常处理，当目标过程不存在时自动替换为提示用的兜底过程：

; 定义通用获取函数
(define (get-student-proc proc-name default-func)
  (with-handlers ([exn:fail? (λ (_) default-func)])
    (dynamic-require "project0.rkt" proc-name)))

; 兜底过程：返回未定义提示
(define (missing-proc . args)
  (format "未定义过程: ~a" (object-name missing-proc)))

; 按需获取学生的过程，比如foo
(define student-foo (get-student-proc 'foo missing-proc))

调用student-foo时，如果学生没实现或写错了foo，会直接返回提示字符串，完全不影响其他代码的评测流程。

2. 提供作业模板，预置占位过程 #

提前给学生发包含所有要求过程的模板文件，让他们在模板上修改实现。模板里的占位过程可以直接返回提示或抛出明确错误：

; project0-template.rkt 示例
(define (foo . args)
  (format "未完成实现的过程: foo"))

(define (bar . args)
  (format "未完成实现的过程: bar"))

这种方式从根源避免了"未定义过程"的问题，学生也能清晰看到需要完成的所有任务，评测时直接加载学生提交的文件即可，无需额外处理。

3. 命名空间隔离加载+存在性检查 #

创建独立命名空间加载学生代码，批量检查所有需要的过程是否存在，不存在则绑定兜底实现：

; 创建独立命名空间
(define student-ns (make-base-namespace))
; 忽略加载时的错误，避免中断流程
(with-handlers ([exn:fail? void])
  (namespace-require "project0.rkt" student-ns))

; 检查并获取指定过程
(define (fetch-proc proc-name)
  (if (namespace-variable-defined? proc-name student-ns)
      (namespace-variable-value proc-name student-ns)
      (λ _ (format "未定义过程: ~a" proc-name))))

; 批量获取需要评测的过程
(define student-foo (fetch-proc 'foo))
(define student-bar (fetch-proc 'bar))

这种方式灵活性最高，适合需要批量处理多个过程、且不想污染主命名空间的复杂评测场景。

内容的提问来源于stack exchange，提问作者Kyle