写経しただけです。 (define (isort list cmp-fn) (define last (length list)) (define (iter vec pos value) (let ((i (- pos 1))) (while (and (>= i 0) (cmp-fn (vector-ref vec i) value)) (vector-set! vec (+ i 1) (vector-ref vec i)) (set! i (- i …

きっかけはラヴクラフト全集 (1) (創元推理文庫 (523‐1))を読んだこと。 時々見かける「いあ いあ くとぅるふ」の元ネタに興味もあったので。 長い月日をかけて現実と物語が混ざっているのが面白いです。 ラブクラフト自身が登場する作品を弟子が書いたり、…