Schemeのifステートメントで引数を渡すとエラーが発生する

Question

私はスキームを使い始めていますが、何が間違っているのか分かりません。

(let ((fn (car last-elem)) 
     (output(if (> (length last-elem) 1) ;or = needed? 
       (cdr last-elem) 
       ('())))) 

(cond ((equal? fn 'dim) (dim output)) 
     ((equal? fn 'print) (print output)) 

このコードは、私のテストケースのこんにちは、世界、印刷する文を生成し、それを通過することになっています！

印刷が今である（それは後でので、私は新しい機能が必要ですより多くのものを持っています）ちょうどこの：と

(define (print args) 
    (display(args)) 
    (newline) 

このエラーアウト：

アプリケーション：ない手順。 ... [なし] コンテキスト：：（「こんにちは、世界！」） 引数...： は、引数に適用することができ手続き 与えられた期待私はライト・トラック上だと思う

を、私が得たいと思っている出力は、「与えられた」ものであるからです。しかし、私はそれを印刷するだけです。

このエラーについては、他にもいくつか質問がありますが、その解決策は私には役に立たなかったと思います。

ありがとうございます。

Answer 1

手始めに、print手順は括弧の余分な、誤ったセットを持って、それは次のようになります。あなたが取得する場合

(define (print args) 
    (display args) 
    (newline)) 

は：;エラー「アプリケーションをしませ手続きの手順を期待」、それはスキームで(f)を使用していることを意味しています。は、fがプロシージャでない場合、エラーが発生した場合は、無引数プロシージャとしてfを適用します。