並べ替えを視覚化する

20

のようなリストがあり、[3, 0, 4, 2, 1]選択ソートを使用してソートすると、次のように視覚化できます。

3,0,4,2,1
|-|
0,3,4,2,1
  |-----|
0,1,4,2,3
    |-|
0,1,2,4,3
      |-|
0,1,2,3,4

この課題は、このようなソートを視覚化することです。

入力

入力は、任意の形式の正の整数のリストになります。

仕事

提出物は、一度に2つの要素のみを交換することで入力リストをソートする必要があり、スワップごとに、提出物はリストと、交換される各要素の下の文字を表示する必要があります。交換された数字に複数の数字がある場合、文字は数字の下にある可能性があります。最後に、提出にはソートされたリストが表示されます。

その他の規則

  • ソートは、n 4よりも少ないスワップを使用する必要があります。nはリストの長さです。
  • ソートは確定的である必要はありません。
  • スワップの下の文字は、スペース以外の任意の文字にすることができます。
code-golf  sorting 
— ロブジョ
ソース
整数が一意であると仮定できますか？
— ヨルクヒュルサーマン
n^4？ここでは少し寛大です。
— orlp
@JörgHülsermannいいえ
— -Loovjo
2
誰もがソートに関心がある場合toptal.com/developers/sorting-algorithmsを
— exussum
3
入力は正の整数であると言いますが、サンプルには0（0を処理できない回答を無効にしないようにサンプルのみを修正してください）
— Ton Hospel

回答:

10

Perl、62バイト

+3を含む -p

STDINに数字の単一行として入力を与えます。

perl -M5.010 visisort.pl <<< "3 0 4 2 1"

最初の反転を繰り返しスワップします。スワップの複雑さはO(n^2)、時間の複雑さですO(n^3)。交換される数字をマークとして使用します。

3 0 4 2 1
3 0
0 3 4 2 1
    4 2
0 3 2 4 1
  3 2
0 2 3 4 1
      4 1
0 2 3 1 4
    3 1
0 2 1 3 4
  2 1
0 1 2 3 4

visisort.pl：

#!/usr/bin/perl -p
$&>$'&&say$_.$"x"@-".!s/(\S+) \G(\S+)/$2 $1/.$&while/\S+ /g

プログラムは、負の値と浮動小数点数もサポートしています

接続文字を要求する場合、コードは66バイトになります。

#!/usr/bin/perl -p
$&>$'&&say$_.$"x"@-".!s/(\S+) \G(\S+)/$2 $1/.$1.-$2while/\S+ /g

しかし、現在では負の数値と0はサポートされていません（ただし、プログラムはとにかく正の整数のみをサポートする必要があります。この0例は間違いです）

— トン・ホスペル
ソース
The characters under the swapped can be any char except space. マーク行の数字の間にスペースを入れないでください
— -edc65
@ edc65スワップされる要素の下の文字はスペースではありません。それらの間の文字については何も言われていない
— トンホスペル
完全には納得していませんが、大丈夫です。私はダウン投票が速すぎました（しかし、あなたの注意を引きました）。回答を（空の）編集した場合、投票を変更します
— -edc65
@ edc65まあ、あなたのコメントは私に非常に注意深く挑戦を読み直させました。彼はまた、複数桁の数字の場合についても明確に話していることに注意してください。たとえば_、最初の数字の下に置くだけで、その間のすべての文字は実際にはスペースになります）。だから、私は自分の解釈を支持します（OPがもちろん同意しない限り）。ただあなたを幸せにするために、私もスペースのないバージョンを追加しました：
— トンホスペル
9

JavaScript（ES6）、158バイト

a=>{for(;;){console.log(``+a);i=a.findIndex((e,i)=>e<a[i-1]);if(i<0)break;console.log(` `.repeat(`${a.slice(0,i)}`.length-1)+`|-|`);t=a[i];a[i]=a[--i];a[i]=t}}

バブルソート。サンプル出力：

3,0,4,2,1
|-|
0,3,4,2,1
    |-|
0,3,2,4,1
  |-|
0,2,3,4,1
      |-|
0,2,3,1,4
    |-|
0,2,1,3,4
  |-|
0,1,2,3,4
— ニール
ソース
@nimi私は常に隣接する要素を交換しているので、常に-アンダーを置くことができ,、2つ|のsは常に隣接する番号の下になります。
— ニール
ああ、賢い！ありがとう！
— nimi
1
バブルソートは、交換された数字の強調表示を簡素化するための本当に賢明な選択です。よくやった！
— アーナルド
9

PHP、248バイト

Bubblesortの退屈な勝利

<?for($c=count($a=$_GET[a]);$c--;){for($s=$i=0;$i<$c;){$l=strlen($j=join(",",$a));if($a[$i]>$a[$i+1]){$t=$a[$i];$a[$i]=$a[$i+1];$a[$i+1]=$t;$m=" ";$m[$s]=I;$m[$s+strlen($a[$i].$a[$i+1])]=X;echo"$j\n$m\n";}$s+=strlen($a[$i++])+1;}}echo join(",",$a);

PHP、array_sliceとminで266バイト

のI X代わりに変更された出力*~~*

<?for($c=count($a=$_GET[a]);$i<$c;){$j=join(",",$s=($d=array_slice)($a,$i));$x=array_search($m=min($s),$s);echo($o=join(",",$a));$a[$x+$i]=$a[$i];$a[$i]=$m;if($i++!=$c-1){$t=" ";$t[$z=($f=strlen)($o)-($l=$f($j))]=I;$t[$l+$z-$f(join(",",$d($s,$x)))]=X;echo"\n$t\n";}}

282バイト

<?for($c=count($a=$_GET[a]);$i<$c;){$j=join(",",$s=($d=array_slice)($a,$i));$x=array_search($m=min($s),$s);echo($o=join(",",$a));$a[$x+$i]=$a[$i];$a[$i]=$m;if($i++!=$c-1)echo"\n".str_repeat(" ",($f=strlen)($o)-($l=$f($j))).($x?str_pad("*",$l-$f(join(",",$d($s,$x))),"~"):"")."*\n";}

使い方

配列内の最小値を探し、最初の位置でこれを取得します最初の位置なしで最小値を探します....など、値が2倍の場合、最初の値はスワップされます

出力例

31,7,0,5,5,5,753,5,99,4,333,5,2,1001,35,1,67
*~~~~*
0,7,31,5,5,5,753,5,99,4,333,5,2,1001,35,1,67
  *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
0,1,31,5,5,5,753,5,99,4,333,5,2,1001,35,7,67
    *~~~~~~~~~~~~~~~~~~~~~~~~~*
0,1,2,5,5,5,753,5,99,4,333,5,31,1001,35,7,67
      *~~~~~~~~~~~~~~*
0,1,2,4,5,5,753,5,99,5,333,5,31,1001,35,7,67
        *
0,1,2,4,5,5,753,5,99,5,333,5,31,1001,35,7,67
          *
0,1,2,4,5,5,753,5,99,5,333,5,31,1001,35,7,67
            *~~~*
0,1,2,4,5,5,5,753,99,5,333,5,31,1001,35,7,67
              *~~~~~~*
0,1,2,4,5,5,5,5,99,753,333,5,31,1001,35,7,67
                *~~~~~~~~~~*
0,1,2,4,5,5,5,5,5,753,333,99,31,1001,35,7,67
                  *~~~~~~~~~~~~~~~~~~~~~*
0,1,2,4,5,5,5,5,5,7,333,99,31,1001,35,753,67
                    *~~~~~~*
0,1,2,4,5,5,5,5,5,7,31,99,333,1001,35,753,67
                       *~~~~~~~~~~~*
0,1,2,4,5,5,5,5,5,7,31,35,333,1001,99,753,67
                          *~~~~~~~~~~~~~~~*
0,1,2,4,5,5,5,5,5,7,31,35,67,1001,99,753,333
                             *~~~~*
0,1,2,4,5,5,5,5,5,7,31,35,67,99,1001,753,333
                                *~~~~~~~~*
0,1,2,4,5,5,5,5,5,7,31,35,67,99,333,753,1001
                                    *
0,1,2,4,5,5,5,5,5,7,31,35,67,99,333,753,1001
— ヨルク・ヒュルサーマン
ソース
の代わりにecho$t."\n";、echo"$t\n";バイトを使用して保存できます。
— イスマエルミゲル
あなたが改善するために何かを見つけた場合、私の投稿を編集する@IsmaelMiguelフィール自由
— イェルクHülsermann
7
投稿のコード編集は、通常、眉をひそめられますが、私は完全に同意します。
— イスマエルミゲル
3

Haskell、165 164 162バイト

s%c=drop 2$show s>>c
p#x|(h,t:s)<-span(/=minimum x)x=id=<<[show$p++x,"\n ",[' '|p>[]],p%" ","|",h%"-",['|'|h>[]],"\n",(p++[t])#(drop 1h++take 1h++s)]|1<2=""
([]#)

これにより、選択ソートが視覚化されます。使用例：

*Main> putStr $ ([]#) [31,7,0,5,5,5,753,5,99,4,333,5,2,1001,35,1,67]
[31,7,0,5,5,5,753,5,99,4,333,5,2,1001,35,1,67]
 |----|
[0,7,31,5,5,5,753,5,99,4,333,5,2,1001,35,1,67]
   |-------------------------------------|
[0,1,31,5,5,5,753,5,99,4,333,5,2,1001,35,7,67]
     |-------------------------|
[0,1,2,5,5,5,753,5,99,4,333,5,31,1001,35,7,67]
       |--------------|
[0,1,2,4,5,5,753,5,99,5,333,5,31,1001,35,7,67]
         |
[0,1,2,4,5,5,753,5,99,5,333,5,31,1001,35,7,67]
           |
[0,1,2,4,5,5,753,5,99,5,333,5,31,1001,35,7,67]
             |---|
[0,1,2,4,5,5,5,753,99,5,333,5,31,1001,35,7,67]
               |------|
[0,1,2,4,5,5,5,5,99,753,333,5,31,1001,35,7,67]
                 |----------|
[0,1,2,4,5,5,5,5,5,753,333,99,31,1001,35,7,67]
                   |---------------------|
[0,1,2,4,5,5,5,5,5,7,333,99,31,1001,35,753,67]
                     |------|
[0,1,2,4,5,5,5,5,5,7,31,99,333,1001,35,753,67]
                        |-----------|
[0,1,2,4,5,5,5,5,5,7,31,35,333,1001,99,753,67]
                           |---------------|
[0,1,2,4,5,5,5,5,5,7,31,35,67,1001,99,753,333]
                              |----|
[0,1,2,4,5,5,5,5,5,7,31,35,67,99,1001,753,333]
                                 |--------|
[0,1,2,4,5,5,5,5,5,7,31,35,67,99,333,753,1001]
                                     |
[0,1,2,4,5,5,5,5,5,7,31,35,67,99,333,753,1001]
                                         |

使い方：

s % cはlength (show s) - 2characterのコピーを作成するヘルパー関数ですc。これは、両方の前の間隔のために使われている|、との1時間c == ' 'とで1回c == '-'。

メイン関数#は、リストpのソートされた部分でxあり、まだソートされていない部分であるリストを取ります。パターンマッチ(h,t:s)<-span(/=minimum x)xは、リストxを最小要素で分割し、最小値のh前の部分t、最小値自体、およびs最小値の後の部分にバインドします。1）リストの現在の状態（AT：残り2行フォーマットされるp++x）及び2）|----|の再帰呼び出し続い部#とtに付加pし、先頭hの尾部との間に挿入さhとをs。

PS：ネガティブおよび/または浮動小数点数でも動作します：

*Main> putStr $ ([]#) [-3,-1,4e33,-7.3]
[-3.0,-1.0,4.0e33,-7.3]
 |----------------|
[-7.3,-1.0,4.0e33,-3.0]
      |-----------|
[-7.3,-3.0,4.0e33,-1.0]
           |------|
[-7.3,-3.0,-1.0,4.0e33]
                |

編集：@BlackCapは2バイトを節約しました。ありがとう！

— ニミ
ソース
id=<<[show$p++x,"\n ",[' '|p>[]],p%" ","|",h%"-",['|'|h>[]],"\n",(p++[t])#(drop 1h++take 1h++s)]
— BlackCap
1

Python 2、267バイト

小数および負の数でも機能します。

p=1
while p!=len(a):    
 q=p-1;k=a[p:];m=min(k);n=k.index(m)+p;b=map(str,a)
 if a[q]>m:print','.join(b)+'\n'+''.join(' '*len(i)for i in b[:q])+' '*q+'*'+'-'*(len(b[n])+n-q-2)+''.join('-'*len(i)for i in b[q:n])+'*';a[q],a[n]=[a[n],a[q]]
 p+=1
print','.join(map(str,a))

例：

7,2,64,-106,52.7,-542.25,54,209,0,-1,200.005,200,3,6,1,0,335,-500,3.1,-0.002
*----------------------*
-542.25,2,64,-106,52.7,7,54,209,0,-1,200.005,200,3,6,1,0,335,-500,3.1,-0.002
        *-------------------------------------------------------*
-542.25,-500,64,-106,52.7,7,54,209,0,-1,200.005,200,3,6,1,0,335,2,3.1,-0.002
             *-----*
-542.25,-500,-106,64,52.7,7,54,209,0,-1,200.005,200,3,6,1,0,335,2,3.1,-0.002
                  *-------------------*
-542.25,-500,-106,-1,52.7,7,54,209,0,64,200.005,200,3,6,1,0,335,2,3.1,-0.002
                     *-----------------------------------------------------*
-542.25,-500,-106,-1,-0.002,7,54,209,0,64,200.005,200,3,6,1,0,335,2,3.1,52.7
                            *--------*
-542.25,-500,-106,-1,-0.002,0,54,209,7,64,200.005,200,3,6,1,0,335,2,3.1,52.7
                              *-----------------------------*
-542.25,-500,-106,-1,-0.002,0,0,209,7,64,200.005,200,3,6,1,54,335,2,3.1,52.7
                                *------------------------*
-542.25,-500,-106,-1,-0.002,0,0,1,7,64,200.005,200,3,6,209,54,335,2,3.1,52.7
                                  *-------------------------------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,64,200.005,200,3,6,209,54,335,7,3.1,52.7
                                    *--------------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,200.005,200,64,6,209,54,335,7,3.1,52.7
                                      *-------------------------------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,200,64,6,209,54,335,7,200.005,52.7
                                          *------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,6,64,200,209,54,335,7,200.005,52.7
                                            *-----------------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,6,7,200,209,54,335,64,200.005,52.7
                                              *----------------------------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,6,7,52.7,209,54,335,64,200.005,200
                                                   *----*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,6,7,52.7,54,209,335,64,200.005,200
                                                      *--------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,6,7,52.7,54,64,335,209,200.005,200
                                                         *-----------------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,6,7,52.7,54,64,200,209,200.005,335
                                                             *---------*
-542.25,-500,-106,-1,-0.002,0,0,1,2,3,3.1,6,7,52.7,54,64,200,200.005,209,335
— ピーター
ソース
1

JavaScript（ES6）、147 155

n * nを使用すると、比較されますが、（スワップの最小数）と思われます。また、スワップの位置は、退屈なバブルソートに比べて変動しやすいです。

l=>l.reduce((z,v,i)=>l.map((n,j)=>s+=`${j>i?n<l[i]?l[p=j,t=s,i]=n:0:u=s,n},`.length,s=p=0)|p?z+`
${l[p]=v,' '.repeat(u)}^${Array(t-u)}^
`+l:z,''+l)

ゴルフが少なく、うまくいけばより理解しやすい

l=>
  l.reduce( (z,v,i) => // update z for each list element v at position i
    ( // begin outer loop body
      // loop to find the least value that is to be placed at pos i
      l.map( (n,j) => // for each list element n at position j
        ( // begin inner loop body
          j > i ? // check if at position after i
            n < l[i] && // check if lower value 
            (
              p = j, // remember position in p 
              l[i] = n, // store value in l[i] (could change later)
              t = s // in t, string length of list elements up element preciding j
            )
          : // else, position up to i
            u = s, // in u, string length of list elements up element preciding i
          s += `${n},`.length, // string length of list elements up to this point (value length + comma)
        ) // end inner loop body
        , s = p = 0 // init s and p at start of inner loop
      ), 
      p ? (// if found a lower value, complete the swap and update output
          l[p] = v, // complete swap, l[i] was assigned before
          z + '\n' + ' '.repeat(u) + // spaces to align 
               '^' + // left marker
               Array(t-u) + // swap highlight, using sequence of commas
               '^\n' + // right marker, newline
               l + // list values after the swap, newline
      )
      : z // else output is unchanged
    ) // end outer loop body
    , ''+l // init string output at start of outer loop
  ) // output is the result of reduce

テスト

f=
l=>l.reduce((z,v,i)=>l.map((n,j)=>s+=`${j>i?n<l[i]?l[p=j,t=s,i]=n:0:u=s,n},`.length,s=p=0)|p?z+`
${l[p]=v,' '.repeat(u)}^${Array(t-u)}^
`+l:z,''+l)

function sort()
{
  var list=I.value.match(/-?[\d.]+/g).map(x=>+x)
  O.textContent = f(list)
}

sort()
#I { width:80% }
<input id=I value='3, 0, 4, 2, 1'>
<button onclick='sort()'>Sort</button>
<pre id=O></pre>
スニペットを展開

— edc65
ソース
0

Java 7、 256 241 282バイト

15バイトを節約してくれた@Geobitsと@Axelhに感謝

 void f(int[]a){int m,i,j,l=a.length;for(i=0;i<l;j=a[i],a[i]=a[m],a[m]=j,i++){for(int k:a)System.out.print(k+" ");System.out.println();for(j=i+1,m=i;j<l;m=a[j]<a[m]?j:m,j++);for(j=0;j<=m&i!=l-1;j++)System.out.print(j==i|j==m?a[j]+" ":"  ");System.out.println();}}

非ゴルフ

 void f(int[]a){
    int m,i,j,l=a.length;
for(i=0;i<l;j=a[i],a[i]=a[m],a[m]=j,i++){
    for(int k:a)
        System.out.print(k+" ");
    System.out.println();
     for(j=i+1,m=i;j<l;m=a[j]<a[m]?j:m,j++);
      for(j=0;j<=m&i!=l-1;j++)
      System.out.print(j==i|j==m?a[j]+" ":"  ");
      System.out.println();        

}
}

出力

3 0 1 4 2 
3 0 
0 3 1 4 2 
  3 1 
0 1 3 4 2 
    3   2 
0 1 2 4 3 
      4 3 
0 1 2 3 4
— ナンバーノット
ソース
4
これにはまだの宣言がoutありませんPrintStream out=System.out;。コードのどこかに何かを置く必要があります。
— -Loovjo
2
のインポート/宣言を修正した後、両方のブランチで印刷する場合ではoutなく、3進数を使用する必要if/elseがあります。out.print(a>b?a:b);代わりに何かif(a>b)out.print(a);else out.print(b);
— -Geobits
この場合、他liekを減らすことができますif(j==i|j==m)out.print(a[j]);out.print(" ");またはより良い三元でout.print((j==i|j==m?a[j]:" ")+" ");、その後、あなたは{削除することができ}ループPSの：それは大丈夫だ場合、私は、アウトインスタンスのインポート静的を使用します。）
— AxelH
うーん、別に他の人からのゴルフのヒントから、出力が正しくありません... ここにあなたのコードをコピー＆ペーストでideoneである（そして追加System.の前にoutS）、およびそれが欠けている2と3最後の二つのスワップライン上。
— ケビンCruijssen
@KevinCruijssen私はそれを修正しました。実際、この行でi変数とj変数を混合します（iでなければなりません）for(j=0;j<=m&i!=l-1;j++)
— Numberknot
0

ゼリー、36バイト

I;0CMḢ;L‘ṬCœṗ¹UF©µÐĿ,n+32Ọ$¥¥2\;/®ṭG

オンラインでお試しください！

説明

I;0CMḢ;L‘ṬCœṗ¹UF©µÐĿ,n+32Ọ$¥¥2\;/®ṭG
                 µÐĿ                 Repeat until we see a previously seen value:
I;0                                    Take differences of adjacent inputs, and 0
   CM                                  Find the indices (M) of the smallest (C) 
           œṗ                          Split {the input} into pieces
        ‘Ṭ                               that end
      ;L  C                              everywhere except
     Ḣ                                 the first of the chosen deltas
             ¹                         Resolve parser ambiguity
              U                        Reverse each piece
               F                       Concatenate the pieces back into a list
                ©                      Store the value in a register
                                     Then, on the accumulated list of results:
                             2\        Look at each consecutive pair of results
                    ,       ¥  ;/      and return the first element, followed by
                      +32Ọ$            the character with code 32 plus
                     n     ¥           1 (if unequal), 0 (if equal)
                                 ®ṭ  Append the value of the register
                                   G Output in grid form

TIOリンクに示されている例は、このプログラムにとって特に難しいものです。;0開始の近くには、ループがちょうど入力がソートなる点で終了することを保証する必要があります。これは通常は必要ありません（もう1回の反復後に終了するため）リストを一貫して。そのため、最後のループの繰り返しで何もスワップしないようにする必要があります。

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.