触発さから撮影スタックオーバーフローの問題。

チャレンジ

整数n>1を指定すると、配列内の正確に2つのエントリをスワップすることで取得できるすべての配列を出力します[1, 2, ..., n]。

配列は任意の順序で作成できます。

（1 [0, 1, ..., n-1]ベース）の代わりに一貫して（0ベース）を使用でき[1, 2, ..., n]ます。

追加のルール

• 入力と出力は通常どおり柔軟です。

• すべてのプログラミング言語で、プログラムまたは機能が許可されます。標準的な抜け穴は禁止されています。

• バイト単位の最短コードが優先されます。

テストケース

入力2は出力を与えます（1ベースと仮定）

2 1

入力3により出力が得られます（3つの配列の順序は任意です）

1 3 2
2 1 3
3 2 1

入力4は出力を与えます

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

入力7は出力を与えます

1 2 3 4 5 7 6
1 2 3 4 6 5 7
1 2 3 4 7 6 5
1 2 3 5 4 6 7
1 2 3 6 5 4 7
1 2 3 7 5 6 4
1 2 4 3 5 6 7
1 2 5 4 3 6 7
1 2 6 4 5 3 7
1 2 7 4 5 6 3
1 3 2 4 5 6 7
1 4 3 2 5 6 7
1 5 3 4 2 6 7
1 6 3 4 5 2 7
1 7 3 4 5 6 2
2 1 3 4 5 6 7
3 2 1 4 5 6 7
4 2 3 1 5 6 7
5 2 3 4 1 6 7
6 2 3 4 5 1 7
7 2 3 4 5 6 1

ゼリー、11 8バイト

ŒcżU$y€R

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

使い方

ŒcżU$y€R  Main link. Argument: n

Œc        Take all 2-combinations of [1, ..., n].
  żU$     Zip the result with the reversed pairs.
       R  Range; yield [1, ..., n].
     y€   For each [[i, j], [j, i]] in the result to the left, yield the result to
          the right, with i replaced by j and vice versa. 

R、54バイト

function(n)combn(n,2,function(x){z=1:n
z[x]=rev(x)
z})

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

各列が順列である行列を返します。

combn(n,k)klist nから、または1:nif nが単一の整数である場合、サイズのすべての組み合わせを生成します。また、オプションでFUN、結果の組み合わせに適用される関数を取ります。そこで、スワップを実行し、スワップされたリストを返す関数を作成します。結果はすべてに蓄積されarrayます。この場合は2次元であり、したがって行列です。

Python 2、71バイト

r=range(input())
print[map({i:j,j:i}.get,r,r)for i in r for j in r[:i]]

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

このヒントを使用します。

Haskell、62バイト

f n=[[1..x-1]++y:[x+1..y-1]++x:[y+1..n]|x<-[1..n],y<-[x+1..n]]

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

xとyを交換するために、それぞれの順列を生成しますx,y

Python 2、72バイト

r=range(input())
for j in r:
 for i in r[:j]:t=r*1;t[i]=j;t[j]=i;print t

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

Wolfram言語（Mathematica）、43バイト

r/.{#->#2,#2->#}&@@@Subsets[r=Range@#,{2}]&

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

説明：のSubsets[Range@#,{2}]すべてのサブセットを生成します{1,2,...,n}サイズ2の、各サブセットごと/.に、リスト内のこれら2つのものを交換します{1,2,...,n}。

このアプローチは、他の多くの提出物と残念なことに似ていますが、3バイト余分に追加されているMathematicaに固有のものです。

r~Permute~Cycles@{#}&/@Subsets[r=Range@#,{2}]&

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

Haskell、62バイト

g n|b<-[1..n]=[[last$k:[j|k==i]++[i|k==j]|k<-b]|i<-b,j<-b,j<i]

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

i<-b                -- loop 'i' through [1..n]
     j<-b           -- loop 'j' through [1..n]
          j<i       -- consider only cases where j<i 
 [            k<-b] -- make a list by looping 'k' through [1..n] 
  last              -- pick
          [i|k==j]  -- 'i' if k==j
       [j|k==i]     -- 'j' if k==i
     k              -- 'k' else   

Haskell、71バイト

f 0=[]
f x=map(++[x])(f$x-1)++[[1..y-1]++x:[y+1..x-1]++[y]|y<-[1..x-1]]

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

これにより、lastのすべての順列の最後に現在の数値が追加され、新しい数値を含むすべてのスワップが計算されます。

MATL、12バイト

:2XN!"G:@tP(

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

            %implicit input, say, 4
:           %range, stack is {[1,2,3,4]}
2           %push 2
XN          %nchoosek, compute all combinations of [1,2,3,4] taken 2 at a time
            %this results in a matrix where each row is a combination, i.e.,
            %[1, 2;
              1, 3;
              1, 4;
              2, 3;
              2, 4;
              3, 4]
!           %transpose, because "for" iterates over columns
"           %begin for loop
G:          %push input and range, stack is now [1,2,3,4]
@t          %push "for" index (the column), say, [1;2], twice
P           %flip array, so stack is now: {[1,2,3,4],[1;2],[2;1]}
(           %assignment index, sets [1,2,3,4]([1;2])=[2;1],
            %resulting in [2,1,3,4]
            %implicit end of loop, implicit end of program, print the stack implicitly.

C、93バイト

i,j,k;f(n){for(i=0;i++<n;)for(j=i;j++<n;puts(""))for(k=0;k++<n;)printf("%d ",k-i?k-j?k:i:j);}

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

オクターブ、38バイト

@(n)(p=perms(k=1:n))(sum(p~=k,2)==2,:)

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

1：nのすべての順列を生成し、それらから1：nとは異なる2つの要素を持つものを選択します。

JavaScript（ES6）、81バイト

0インデックスの配列を出力します。

n=>(a=[...Array(n).keys()]).map(i=>a.map(j=>i>j&&alert(a.map(k=>k-i?k-j?k:i:j))))

デモ

alert()console.log()このスニペットでは、使いやすいように置き換えられています。

let f =

n=>(a=[...Array(n).keys()]).map(i=>a.map(j=>i>j&&alert(a.map(k=>k-i?k-j?k:i:j))))

alert = s => console.log(JSON.stringify(s));

f(4)

Python 2、75バイト

lambda n:[r(i)+[j]+r(i+1,j)+[i]+r(j+1,n)for j in r(n)for i in r(j)]
r=range

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

クリーン、90 82バイト

import StdEnv
$n#n=[1..n]
=tl(removeDup[[if(c<>b)if(c<>a)c b a\\c<-n]\\b<-n,a<-n])

80バイトで実行できますが、Haskellの回答を直接翻訳したものになります。

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

05AB1E、15 9バイト

LœʒD{αĀO<

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

説明

L            # push range [1 ... input]
 œ           # get all permutations
  ʒ          # filter, keep only elements that are true when
     α       # absolute value is taken with
   D{        # a sorted copy
      Ā      # each non-zero value in the resulting array is converted to 1
       O     # the array is summed
        <    # and the sum is decremented

殻、9バイト

!2§kδ#≠Pḣ

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

説明

!2§kδ#≠Pḣ  Input is an integer n.
        ḣ  Range: r=[1,2,..,n]
       P   Permutations of r.
   k       Classify by
     #     number of elements
      ≠    that are different from
  § δ      the corresponding element of r.
!2         Take the second class.

ルビー、55 53バイト

->n{n.times{|x|x.times{|y|(w=*0...n)[w[x]=y]=x;p w}}}

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

0ベースのソリューション

ここでのコツは、内側のループが常に反復を「スキップ」することです。最初のループはまったく実行されず、2回目のパスでは1回だけというように続きます。

Rが54までゴルフできることを確認するまで55バイトに満足していたので、53まで増やす必要がありました。

Python 2、90バイト

f=lambda n,r=range:n*[n]and[a+[n]for a in f(n-1)]+[r(1,i)+[n]+r(i+1,n)+[i]for i in r(1,n)]

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

Pyth、9バイト

t{.rLQ*=U

デモンストレーション

2つの値を交換する最も簡単な方法.rは、Pythの回転変換機能であるを使用することです。.r<list>[A, B]すべての出現を交換しますAと、B中をlist。

したがって、変換関数をUQリストから0に適用して、n-1リスト内の異なる番号の各2つの要素リストを使用して、目的の出力を生成します。Q入力です。nあり、U範囲関数です。

これを行う簡単な方法は次のとおりです。

.rLUQ.cUQ2

.cUQ2範囲内の異なる要素の2つの要素の組み合わせをすべて生成し.rLUQ、.rそれらとリストに関数をますUQ。

ただし、これは10バイトになります。

.cUQ2順序付けられた個別のペアを作成する代わりに、を使用してすべてのペアを作成でき*=Uます。これは暗黙的にと同等*=UQQです。これは、上書きして起動するQとUQ、その後のデカルト積をとる、UQとUQ。これにより、範囲内のすべての数字のペアが得られますが、必ずしも順序付けられているわけではありません。

.rLQ各リストを使用してスワップします。リコールQ今からリストに等しく0するn-1、ではありませんn。

ペアは注文されていないため、重複があります。{重複を削除します。ペアは区別されなかったため、変更されていないリストが存在します。このリストは、重複排除後は常に最初になります。これ{は、最初の外観の順序が保持され、変更前のリストがで回転することにより作成されるため[0,0]です。t最初の要素を削除して、目的のスワップのリストを提供します。

Pyth、11バイト

fq2snVTUQ.p

オンライン
で試してみてください isaacgのアプローチほど短くはありませんが、投稿するには十分に違います。

説明

fq2snVTUQ.p
         .pQ  Take the permutations of the (implicit) range [0,...,input].
f     T       Filter to get the permutations...
   snV UQ     ... where the number of differences with [0,...,input]...
 q2           ... is 2.

ジャワ8、109の 105バイト

n->{String r="";for(int i=0,j,k;i++<n;)for(j=i;j++<n;r+="\n")for(k=0;k++<n;)r+=k!=i?k!=j?k:i:j;return r;}

私はさびている..数ヶ月でコードゴルフをしていない。. @Steadybox 'Cの答えを移植することになった。

ここで試してみてください。

ルビー、66バイト

->n{a=*1..n
a.permutation.select{|b|b.zip(a).count{|c,d|c!=d}==2}}

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

ルビー、80バイト

Unihedronのおかげで-12バイト。

->n{(r=1..n).map{|x|r.map{|y|r.map{|i|i==x ?y:i==y ?x:i}}}.flatten(1).uniq[1,n]}

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

なんらかの理由でRubyに翻訳するのが最善のアプローチを考えていたので... Rubyのことすら知らない...