自分自身を出力するプログラム

なんか今日の授業のページに書いてあった。

((lambda (x) `(,x ',x)) '(lambda (x) `(,x ',x)))

YABUKI Taro’s Home Page | 2018/08/19 フィードのURLが変わりました。に書いてあるLisp版をSchemeで書いてみる。

(begin
  (define b 
    '(lambda (x)
       `(begin 
	  (define b ',x)
	  ((eval b (interaction-environment)) b))))
  ((eval b (interaction-environment)) b))