Scheme：関数が同じ引数で呼び出されたかどうかをチェックする方法

Question

引数xをとり、以前に同じ引数で関数が呼び出されたかどうかを調べる関数（see x）を実装しようとしています。例えば

： (begin (seen 5) (seen 10)) => #f

機能seenは一個の引数を取るので、私は、以前と呼ばれる関数を取得する方法がわかりません。

Answer 1

以前の呼び出しを「記憶」する手順を記述する必要があります。 （グローバルな状態を回避するため）これは、可変状態を使用せずに行うことはできませんが、少なくとも、我々はプロシージャ内でそれをカプセル化することができます：

(define seen 
    (let ((already-seen (mutable-set))) 
    (lambda (n) 
     (cond ((set-member? already-seen n) 
      #t) 
      (else 
      (set-add! already-seen n) 
      #f))))) 

トリックはすでに見た値を保存するためのデータ構造を定義することでしたの前に実際にlambdaを定義しています。 lambdaはその定義されたコンテキストで閉じるため、その状態にアクセスし、必要に応じて変更します。

メンバシップテストをサポートする任意のデータ構造（リスト、ハッシュ、名前）に、すでに見た値を格納することができます。しかし、setはより自然であり、それが私が使用したものです。動作は期待通りです：

(seen 5) 
=> #f 
(seen 5) 
=> #t 
(seen 10) 
=> #f