1

私は構造のリストを受け取る関数に取り組んでおり、その構造のリストを使用して、シンボルのリストを数値に処理する関数を生成します。各構造は、消費される 2 番目のリストに含まれるシンボルと数値で構成されます。生成されたこの関数は、前の構造に基づいて各記号に値を割り当てることにより、記号のリストを数値に変換する必要があります。ところで、抽象リスト関数を使用します。

    Example: ((function (list (make-value 'value1 10) (make-value 'value2 20)))
              (list 'value1 'value2 'nothing 'value1)) would produced 40.

Heres 私のコードですが、特定のケースでのみ機能します。

 (define (function lst)
   (lambda (x) (foldr + 0 (map (lambda (x) 
                           (cond
                             [(equal? x (value-name(first lst)))(value-value (first  lst))]
                             [else (value-value (second lst))]))

                             (filter (lambda (x) (member? x (map value-name lst)))x)))))
4

2 に答える 2

0

宿題のように見えます。ソリューションの基本的な形状は問題ありません。ここで問題が発生する理由は、コードに分解がないため、かっこで迷子になりやすいためだと思います。

計算の最後のステップとして、整数のオーバーリストを使用してfold-ingするというアイデアから始めましょう。+

このサブタスクには、次のものがあります。

1）（名前、値）ペアのリスト2）名前のリスト

値のリストを取得する必要があります。それを正確に実行する別の関数を作成して使用します。このような

(define (function lst)
   (lambda (x) (foldr + 
                      0 
                      (to-values x lst)))

(define (to-values names names-to-values)
   (map (lambda (name) 
            (to-value name names-to-values))))

(define (to-value n ns-to-vs)
     ...)

ここでmap、namesもう1つの小さな関数を使用します。nの値を検索しns-to-vsて返します。値がない場合は0を返します。

于 2013-01-19T17:30:57.297 に答える
0

で問題を解決するには 2 つのアプローチがありfoldrます。両方を研究して理解することは興味深いことです。問題で試みられた最初のものは、最初にすべての値を含むリストを作成し、foldrそれらを追加することです。次のような簡単な方法で実装できます。

(define (function lst)
  (lambda (x)
    (foldr +
           0
           (map (lambda (e)
                  (cond ((assoc e lst) => value-value)
                        (else 0)))
                x))))

別の方法: 使用するfoldrのはやり過ぎかもしれませんが、適用する+方が簡単です:

(define (function lst)
  (lambda (x)
    (apply +
           (map (lambda (e)
                  (cond ((assoc e lst) => value-value)
                        (else 0)))
                x))))

foldr2 番目のアプローチでは、入力リストを「そのまま」取り、lambda加算ロジックを実行します。これは、中間リスト (最初のバージョンでfoldr生成されたもの) を作成する必要がないため、を使用した最初のアプローチよりも効率的です。map

(define (function lst)
  (lambda (x)
    (foldr (lambda (e a)
             (cond ((assoc e lst) => (lambda (p) (+ a (value-value p))))
                   (else a)))
           0
           x)))

どちらのアプローチassocでも、リスト内の要素を見つけるために使用しています。使用が許可されていない場合、または で作成された値に対して機能しない場合は、ヘルパー関数として簡単に実装できます。make-value名前assocと値のペアのリストを取得し、指定された名前の最初のペアを返します。の=>構文は、 によって返されたcondペアをのパラメータに渡し、それを実行します。assoclambda

また、Racket を使用しているため、別の関数から関数を返すために使用できるシンタックス シュガーが少しあります。簡単にするために、次の同等のコードを試してください。

(define ((function lst) x)
  (foldr +
         0
         (map (lambda (e)
                (cond ((assoc e lst) => value-value)
                      (else 0)))
              x)))

またはこれ：

(define ((function lst) x)
  (foldr (lambda (e a)
           (cond ((assoc e lst) => (lambda (p) (+ a (value-value p))))
                 (else a)))
         0
         x))

とにかく、結果は期待どおりです。

((function (list (make-value 'value1 10) (make-value 'value2 20)))
 (list 'value1 'value2 'nothing 'value1))
=> 40
于 2013-01-19T19:42:06.207 に答える