PasteRack.org | ||
Paste # 64882 | ||
2017-10-11 01:11:16 | ||
Fork as a new paste. | ||
Paste viewed 148 times. | ||
Tweet | ||
Embed: | ||
#lang racket (define (mm e) (match e [`(let ([,xs ,es] ...) ,body ...) body] [_ 'else])) (mm '(let ([a 1]) a a); ==> returns '(a a). good! (mm '(let ([a 1]) a); ==> returns '(a), can i make it return 'a ?