6

我使用 DrRacket。我对这段代码有疑问：

          (define (qweqwe n) (
                      (cond 
                        [(< n 10) #t]
                        [(>= (lastnum n) (pochtilastnum n)) (qweqwe (quotient n 10))]
                        [else #f]
                        )
                      )
    )
    (define ( RTY file1 file2 )

     (define out (open-output-file file2 #:mode  'text #:exists 'replace))  
    (define in (open-input-file file1)) 
    (define (printtofile q) (begin
                   (write q out)
                   (display '#\newline out)
                   ))
       (define (next) 
          (define n (read in)) 
(cond 
      [(equal? n eof) #t]
      [else (begin
      ((if (qweqwe n) (printtofile n) #f))
      ) (next)]
      )
)
    (next)   
   (close-input-port in)
   (close-output-port out))

但是当我开始（ RTY "in.txt" "out.txt" ）时，我在 ((if (qweqwe n) (printtofile n) #f)) 处出现错误：

    application: not a procedure;
    expected a procedure that can be applied to arguments
    given: #f
    arguments...: [none]

有什么问题？

添加：我将代码更改为：

(cond 
      [(equal? n eof) #t]
      [else
      (if (qweqwe n) (printtofile n) #f)
      (next)]
      )

但问题依然存在。

4

3 回答 3

12

有一些不必要的括号，不要这样做：

((if (qweqwe n) (printtofile n) #f))

试试这个：

(if (qweqwe n) (printtofile n) #f)

也在这里：

(define (qweqwe n)
  ((cond [(< n 10) #t]
         [(>= (lastnum n) (pochtilastnum n)) (qweqwe (quotient n 10))]
         [else #f])))

它应该是：

(define (qweqwe n)
  (cond [(< n 10) #t]
        [(>= (lastnum n) (pochtilastnum n)) (qweqwe (quotient n 10))]
        [else #f]))

在这两种情况下，问题是如果你用()一个表达式包围，这意味着你正在尝试调用一个过程。并且假设上面的if和cond表达式的结果不返回过程，就会发生错误。此外，begin原始代码中的两个 s 都是不必要的， a在每个条件之后cond都有一个隐式begin，对于过程定义的主体也是如此。

于 2013-05-08T14:34:30.367 回答
1

你有一组双括号：

((if (qweqwe n) (printtofile n) #f))

这意味着 Scheme 首先对此进行评估：

(if (qweqwe n) (printtofile n) #f)

然后它期望 this 评估为一个函数，称为 g，它的评估如下：

(g)

由于您的条件形式不返回函数，您可能只想使用一组括号。

于 2013-05-08T14:33:20.800 回答
0

在考虑算法的正确性之前，必须让代码在语法上正确——也就是说，它必须编译。Scheme 编程的优点之一是交互式环境允许人们轻松编译和评估程序。

您的代码要么无法编译，要么无法运行，因为您有许多语法错误。这是您的语法正确（基于我对所需行为的猜测）代码。在某种程度上，我通过严格格式化代码来达到语法正确性：

(define (qweqwe n) 
  (cond 
   [(< n 10) #t]
   [(>= (lastnum n) (pochtilastnum n)) (qweqwe (quotient n 10))]
   [else #f]))

(define (RTY file1 file2 )
  (define out (open-output-file file2 #:mode  'text #:exists 'replace))  
  (define in  (open-input-file  file1)) 
  (define (printtofile q)
    (write q out)
    (display '#\newline out))

  (define (next) 
    (define n (read in)) 
    (cond 
     [(equal? n eof) #t]
     [else
      (if (qweqwe n) (printtofile n) #f)
      (next)]))
  (next)   
  (close-input-port in)
  (close-output-port out))
于 2013-05-10T14:37:54.703 回答