在球拍语言中对函数返回进行操作

#lang racket

; 定义一个简单的函数
(define (add a b)
  (+ a b))

; 定义一个高阶函数来处理返回值
(define (process-result func arg1 arg2)
  (let ([result (func arg1 arg2)])
    (if (> result 10)
        (string-append "Greater than 10: " (number->string result))
        (string-append "Less or equal to 10: " (number->string result)))))

; 调用高阶函数
(displayln (process-result add 5 6)) ; 输出: Less or equal to 10: 11
(displayln (process-result add 8 4)) ; 输出: Greater than 10: 12

#lang racket

; 定义一个宏来处理返回值
(define-syntax-rule (process-result-macro func arg1 arg2)
  (let ([result (func arg1 arg2)])
    (if (> result 10)
        (string-append "Macro - Greater than 10: " (number->string result))
        (string-append "Macro - Less or equal to 10: " (number->string result)))))

; 调用宏
(displayln (process-result-macro add 5 6)) ; 输出: Macro - Less or equal to 10: 11
(displayln (process-result-macro add 8 4)) ; 输出: Macro - Greater than 10: 12

(define (test-add)
  (check-equal? (add 1 2) 3)
  (check-equal? (add -1 1) 0)
  (check-equal? (add 0 0) 0))

(test-add)