最速なら
? 1234
? 1243
:
と、記述ですが石を投げられそうなので・・・。
1234の入れ替え限定なら24回ループで計算できます。
VAR KAI=1*2*3*4
DIM N[4],ANS[KAI]
N[0]=1
N[1]=2
N[2]=3
N[3]=4
VAR POS=0
FOR J=0 TO 3
FOR I=0 TO 5
? N[0];N[1];N[2];N[3]
ANS[J*6+I]=N[0]*1000+N[1]*100+N[2]*10+N[3] '検算用
SWAP N[POS],N[POS+1]
POS=(POS+1) MOD 2
NEXT
SWAP N[3],N[J]
NEXT
'検算
?"------------"
SORT 0,KAI,ANS
FOR I=0 TO KAI-1
?FORMAT$("%2D %4D",I+1,ANS[I])
NEXT
汎用性のないプログラムですが、8ビット時代マシン語秘術の応用です。