- プログラミングのお題スレ Part13
254 :デフォルトの名無しさん[sage]:2019/02/19(火) 22:19:54.18 ID:sIqHxZ1N - ; Common Lisp
(defun flip (seq n) (concatenate (type-of seq) (nreverse (subseq seq 0 (1+ n))) (subseq seq (1+ n)))) (defun pancake-sort (seq predicate) (loop for s = seq then (if j (flip (flip (flip (flip s (1- j)) (1- i)) i) j) s) for i from 1 to (1- (length seq)) for j = (position (elt s i) s :end i :test predicate) finally (return s)))
|
|