recursion - スキーム リストの操作 (再帰)

Question

ここでの基本的な問題は、リストが与えられたときに、そのリストの最後の要素以外のすべての要素を返すことです。たとえば、与えられた (abcd) --> 戻ります (abc)。私は基本的に関数を持っています。それは私が問題を抱えているのはScheme構文だけであり、Googleはあまり友好的ではありません. cons を正しく使用しているかどうかはわかりません。

(define all-but-last
  (lambda (x)

   (if (null? (cdr x)) 
      ('()))
   (cons ((car x) (all-but-last(cdr x)))
)))

r5rs スキームの構文に精通している人が役に立ちます。ありがとう！

Answer 1

'()と の引数を囲む余分な括弧を削除するconsと、コードが機能します (空でない入力リストの場合)。

Answer 2

DrRacket を言語 R5RS で使用すると、次のように動作します。

(define all-but-last
  (lambda (x)
   (if (null? x)
     '()
     (if (null? (cdr x)) 
       '()
       (cons (car x) (all-but-last(cdr x)))))))

Answer 3

別の解決策:

(define (all-but-last xs)
  (reverse 
    (rest
      (reverse xs))))

Answer 4

この質問への回答を参照してください。

リストの最後の要素を削除する（スキーム）

また、これに「宿題」のタグを付けます。そうでない場合は、お知らせください。削除します。