http://d.hatena.ne.jp/higepon/20080925/1222326246 とりあえずCLで書いてみよう。 (defun compact (nums) (let (result) (labels ((cpush (from end) (push (if (= from end) end (cons from end)) result)) (rec (from end l) (cond ((null l) (reverse (…

テクニクティクス リミックス Vol.2 » SweepRecord 予約完了