質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
Scheme

Schemeは、Lispから派生したプログラミング言語の一つであり、仕様または実装を指す場合もあります。言語自体の仕様はシンプルで、関数型言語として理解しやすいことから記号処理などで主に用いられている言語です。

解決済

【scheme】入れ子構造に再起的に定義した関数を適用したいです。

tetsutail_study
tetsutail_study

総合スコア22

Scheme

Schemeは、Lispから派生したプログラミング言語の一つであり、仕様または実装を指す場合もあります。言語自体の仕様はシンプルで、関数型言語として理解しやすいことから記号処理などで主に用いられている言語です。

1回答

0評価

0クリップ

190閲覧

投稿2020/08/20 12:34

前提・実現したいこと

下のように関数を意味したリスト構造を与えて単純化された出力を目指しています。
そのために「+」と「ー」と「*」と「**」が先頭に来るごとにそれぞれ専用に定義した関数(単純化したリストを返す)を適用したいです。

(clear '(+ (* 3 (* 1 (** x 2))) (+ (* 2 1) (* 0 x)) 0))

該当のソースコード

すでに「+」や「ー」がきたときの処理はすでに「clear+」(0を消去する処理などを行う)など定義してあります。知りたいのは内側の()から先頭の記号に合わせて定義した関数を再起的に適用させる方法です。

define clear (lambda (y) (cond ((number? y) y) ((symbol? y) y) ((equal? (car y) '+) (clear+ (cdr y))) ((equal? (car y) '-) (clear- (cdr y))) ((equal? (car y) '*) (clear* (cdr y))) ((equal? (car y) '**) (clear** (cdr y))) ) )

発生している問題

上のソースコードは再起を考えていないので下のように先頭に「+」がきた場合の処理のみが適用されるので0が消えました。これを内側の(* )や(** )にもそれぞれ専用に定義した関数を適用させていきたいです。よろしくお願いします!

(+ (* 3 (* 1 (** x 2))) (+ (* 2 1) (* 0 x)))

↑例えば(* 0 x)は0になるようclear*で設計しています。こういった内側の()から処理してから外側の()を処理させたいです。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

Scheme

Schemeは、Lispから派生したプログラミング言語の一つであり、仕様または実装を指す場合もあります。言語自体の仕様はシンプルで、関数型言語として理解しやすいことから記号処理などで主に用いられている言語です。