Racket 球拍编程；编写一个递归函数来计算求和（x^2，x=1..n

；编写递归函数以计算求和（x^2，x=1..n） ；必须编写递归函数。 ；如果使用任何迭代命令（for/loop/sum/etc），您将收到一个0

我被困在这上面了

（定义（世博基地x）
（条件（（或（=基准1）（=x0））1）
（其他（*基地（世博基地（-x1(()))））

---

我写了这篇文章，但它不正确。

您的代码正在工作，但最后只缺少了一个括号。当您缺少一个括号时，您将看到一个错误

预期a）关闭（
可能的原因：缩进表示缺少一个括号）。
如果n等于5。您想看到这个：1^2+2+3^2+4^2+5^2=55

#lang racket

(define (summation from-n to-n fn)
  (local [(define (aux n)
            (if (< n from-n)
                0
                (+ (fn n) (aux (- n 1)))))]
    (aux to-n)))

(define (1^2+2^2+3^2+...+n^2 n)
  (summation 1 n sqr))

(define (1+2+3+...+n n)
  (summation 1 n identity))

;;; TEST
(1+2+3+...+n 100) ; 5050
(1^2+2^2+3^2+...+n^2 5) ; 55

#朗球拍
（定义（从-n到-n的总和）
（本地[（定义（辅助n））
（如果（