racket：キーに関連付けられたすべての値を返す関数を作成しようとしています

Question

リスト（リスト（リストのキー値）...）のようなリストがあり、キーに関連付けられたすべての値を返す関数を作成しようとしています。

私はそうするためにマッチコンストラクトを使うことができましたが、成功することはありませんでした。

#lang racket 

; should return a list starting with key, otherwise #f 
(define (match-key lst key) 
    (match lst 
     [(list key val) value] 
     [_ #f])) 
; testing data 
(define test-lst 
    (list 
    (list 'title "Lorem title") 
    (list 'price 999.99) 
    (list 'colour "red") 
    )) 

(eq? "Lorem title" (match-key test-lst 'title)) ; should return #t 
(eq? "Another lorem" (match-key test-lst 'title)) ; should return #f 
(eq? 999.99 (match-key test-lst 'price)) ; should return #t 
(eq? 111.11 (match-key test-lst 'price)) ; should return #f 

Answer 1

構造的には、パターン(list key val)は(list (list key val) ...)と同じではありません。後者を辞書の構造体としているので、手順match-keyで一致する唯一の句が最後になります。_は、構文オブジェクトに一致するパターンを示します。

キーと値のペアのリストをフィルタリングするため matchを使用すると、関連するすべての値を返すには、次の操作を行うことができ

：

(define (filter/match lst key) 
    (let ([has-key? (lambda (l) (equal? (car l) key))]) 
    (match lst 
     ['()     '()] 
     [(cons (? has-key?) b) (cons (cadar lst) (filter/match b key))] 
     [(cons a b)   (filter/match b key)]))) 

例えば、

また

;; test data 
(define test-lst 
    (list (list 'title "title1") 
     (list 'price 999.99) 
     (list 'title "title2") 
     (list 'colour "red"))) 

(filter/match test-lst 'title) 
=> '("title1" "title2") 

---

、あなたはfor/listを使用すると、次のように簡単にこれを実現できます。

例えば

：

> (get-val test-lst 'title) 
'("title1" "title2")  

---

あなたはまた、dictionariesでの作業のために利用可能なさまざまな組み込みの手順で見ることができます。例えば、dict-ref使用して、あなたが行うことができます。これは、キーの最初のインスタンスの値を返します

(dict-ref test-lst 'title #f) 
=> '("title1") 
(dict-ref test-lst 'rand-key #f) 
=> #f 

（したがって、キーに関連付けられているすべての値と一致していません）。一致するキーが見つからない場合は#fを返します。