Question

我在文件project_euler.scm的第11行得到了一个错误：源代码中的空应用程序:(）每当我使用chibi-scheme v 0.5.3运行下面这段代码时，但是当我使用Dr Racket时它运行正常。有谁知道为什么会这样？

#! /usr/bin/env chibi-scheme

(define (sum-of-amicable-pairs n)
  (let ((sums (list->vector (map (lambda (i) 
                                   (reduce + 0 
                                           (filter (lambda (j) (= (remainder i j) 0)) 
                                                   (iota (+ 1 (quotient i 2)) 1 1)))) 
                                 (iota n 0 1)))))
    (let loop ((len (vector-length sums))
                    (res-list '())
                    (i 0))
      (cond
        ((= i len) (reduce + 0 res-list))
        ((and (< (vector-ref sums i) n) 
              (or (> (vector-ref sums i) i) (< (vector-ref sums i) i))
              (= (vector-ref sums (vector-ref sums i)) i))
         (loop len (cons (+ (vector-ref sums i) (vector-ref sums  (vector-ref sums i))) res-list)
               (+ i 1)))
        (else
          (loop len res-list (+ i 1)))))))

(sum-of-amicable-pairs 10000)

Answer 1

好的，我想我知道这里发生了什么。当你加载chibi-scheme REPL时，它正在使用R7RS Scheme，但是当你加载一个文件时，它正在使用Chibi支持的最基本的Scheme版本，至少我在手册中可以看到这一点：{{3} }

如果您将(import (scheme base))放在文件顶部，则不会再收到有关空应用程序的错误消息。此外，您应该执行(import (srfi 1))以获取您使用的列表处理过程。请参阅：http://synthcode.com/scheme/chibi/#h2_SchemeStandard

为什么chibi-scheme会抛出这个错误

1 个答案: