このコードをRacket/Schemeでどのように生成できますか？

Question

私は次のようにコードを生成したい：

(define (foo str) 
    (map (lambda (x) (* 100 x)) (hash-ref dd str))) 

(define sth `(begin 
       (define dd (make-hash (list (cons "L" (list 1 2 3))))) 
       (hash-set! dd "H" ,(foo "L")) 
       dd)) 

（私はsth.rktファイルにsthを書いて、それを実行します）

しかし、これはfooのために理由コードには、機能しません。生成されたコードにある識別子ddを参照するため、まだ存在しません！

は、私は、このようなコードを生成することができる方法があります：

(define sth `(begin 
       (define dd (make-hash (list (cons "L" (list 1 2 3))))) 
       (hash-set! dd "H" (foo "L")))) 

と機能fooを付加、私は本当に私の最終的なファイルであることfooをしたくありません！ どうすればこの問題を回避できますか？

Answer 1

本当にコード生成が必要な作業をしていることは確かですか？あなたがこのようなことをすることができるので、あなたが私たちに示した例の中にはまだそれが必要です。ラケットで：

#lang racket 

;; When this file is required, dd will be provided to the outside. 
(provide dd) 

(define (foo str) 
    (map (lambda (x) (* 100 x)) (hash-ref dd str))) 

(define dd (make-hash (list (cons "L" (list 1 2 3))))) 
(hash-set! dd "H" (foo "L")) 

これは、他のプログラムで使用することができるモジュールあります。 Racketのモジュールは、が提供された項目以外のすべてを隠します。です。

なぜコード生成のアプローチをしたいのか説明できれば、そのことがわかりやすくわかります。コードを生成するには、s式を生成してファイルに書き込むよりも、マクロアプローチが効果的です。たとえば、http://docs.racket-lang.org/guide/macros.htmlを参照してください。