Q&A
前提・実現したいこと
リスト同士の連結は
(append '(a b) '(c d)) → (a b c d)
(append '(a b) '(c) '(d e f)) → (a b c d e f)
のようにappendによってできますが、
(append '(a b) 'c '(d e)) → エラー
とアトムが含まれると適用できません。
そこで'c → '(c)（リストの形）にしてappendを使いたいのですが、
ここでcが**(car list)**（※listは(h i j k)と定義）のような形の時、
これをリストに変換してappendを適用できるようにするにはどうしたら良いでしょうか？
初歩的なことかもしれませんが、初心者の為教えていただけると幸いです。
よろしくお願いします！
試したこと
'c → '(c)とできるので同じように（car list）→（(car list））として試しましたが、エラーが出てしまいました。
回答1件
0
ベストアンサー
そのような動作をする手続きは以下のように定義できます。
scheme
1(define (append* . args) 2 (apply append 3 (map (lambda(x)(if (list? x) x (list x))) args)))
list という手続きに値を渡すことでそれを要素とするリストを作ることが出来ます。 リテラル (つまりはクオートされたもの) の中を除けば括弧で囲むことは値をリストに入れることを意味しません。
投稿2020/08/19 07:04
総合スコア5444
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/08/19 07:16