Petitverse

自分は似たようなことをCOPYで無理矢理やりました。
http://petitverse.hosiken.jp/community/petitcom/diary?read=2454

ソートのアルゴリズムを調べてれば「方法はありますか？」って質問は出てこないですよね。

ツララさんは未だにこんな書き込みを続けてるのか

どっから見ても局所的ローテートなのに、どうやったらソートと勘違いできるんだろう？
これだからプログラミングしたことない人は困る

ちなみに、その局所的ローテートなる命令はないので、自分で作るしないです

☆いろいろツッコミどころの多いコード

sayさん
その局所的ローテートがインサーションソートや図書館ソートに使われてるからでは？

こういちさんのおっしゃる通り、
ツララさんのコメントは、
そのような配列操作がソートプログラムに、
使われているということを意味しているのだと思います。
実際に自分のソートプログラムでも似たようなことがされていますし。

まあ、あの書き方は突っ込まれてもしょうがない。
アルゴリズムが分かればプログラムが分かるわけではないし。
むしろ、
アルゴリズムをプログラムにするために質問しているのかもしれないし。
"方法はありますか？"
と書いたので方法がないとでも思っているんじゃないか
と考えられることが原因だと思います。

多分ですが、ツララさんは、
"方法はありますか？"
という書き方の揚げ足を取りたかっただけだと思います。

「方法はありますか？」だと、無いのが前提みたいだから
考え方の転換を促したかったっていうのが本音ですね。
まぁ、揚げ足取りと受け取るかどうかは本人に任せますけども。
「知らない」ものは「存在しない」って発想だと視野狭窄に陥って思考停止になりやすいので。

あと、既に知ってるであろう方法
例えば２つの変数の中身を入れ替える処理やSWAP命令を駆使して、同じようなことが実現できないかどうかを試す機会を放棄してるようにも見えたので。

配列のサイズをMX、挿入元の位置をM、挿入先の位置をNとすると
DIM ARY[MX]
INM=M:TON=N
IF INM!=TON&&MX>INM&&MX>TON THEN
　D=INM>TON:D=!D-D
　SWAP ARY[INM],ARY[TON]
　FOR I=INM TO TON-D*2 STEP D
　　SWAP ARY[I],ARY[I+D]
　NEXT
ENDIF
（なお淫夢は関係ありません）
ぶっちゃけ、はるさんみたくCOPY命令使った方が速いんですけど。

配列arrayのsrc番目の要素をdest番目に移動して、また会った要素は全てローテーションさせる操作をするには以下のコードを書けば良いです
tmp = array[src]
if src > dest then
copy array,dest+1,array,dest,src-dest
elseif src < dest then
copy array,src,array,src+1,dest-src
endif
array[dest] = tmp
ちなみにこのコードは正しく動作するかチェックしていません
copyの呼び出しが正しくないかも

あと、公開されてない作品は存在していないのと同じです
知らないものは知らないで良い