[過去ログ]
プログラミングのお題スレ Part13 (1002レス)
プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
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))) http://mevius.5ch.net/test/read.cgi/tech/1549160513/254
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.039s