若者のチャレンジを応援する雑誌、若者チャレンジ

Lisp Advent Calendar 2015 3 日目。

昨日はりひにーさんで 大根のメタファーは撃ち抜けない でした。

ʕ•͡ω•ʔ 自動で (export hoge) してくれる public-define っていうのがあるんだけど:

(public-define* (print #:rest args)
  (define (recur xs)
    (if (null? xs)
        #f
        (begin
          (display (car xs))
          (recur (cdr xs)))))
  (recur args))

ʕ•͡ω•ʔ これ、別に export-define でもいいよなーって考えてた。

(export-define* (print #:rest args)
  (define (recur xs)
    (if (null? xs)
        #f
        (begin
          (display (car xs))
          (recur (cdr xs)))))
  (recur args))