配列のXORソート

15

キーと文字列の配列が与えられたら、配列をシャッフルして、各要素がキーとXORされたときにソートされるようにします。

2つの文字列のXOR

キーで文字列をXORするには、キーが永久に繰り返されると想定して、キーのペアで文字列の各文字値をXORします。たとえば、abcde^123次のようになります。

       a        b        c        d        e
       1        2        3        1        2
--------------------------------------------
01100001 01100010 01100011 01100100 01100101
00110001 00110010 00110011 00110001 00110010
--------------------------------------------
01010000 01010000 01010000 01010101 01010111
--------------------------------------------
       P        P        P        U        W

仕分け

並べ替えは、常にXORされた文字列を辞書的に行う必要があります。つまり、1 < A < a < ~（ASCIIエンコードを想定）

例

"912", ["abcde", "hello", "test", "honk"]

-- XOR'd
["XSQ]T", "QT^U^", "MTAM", "Q^\R"]
-- Sorted
["MTAM", "QT^U^", "Q^\R", "XSQ]T"]
-- Converted back
["test", "hello", "honk", "abcde"]

ノート

  • キーは常に少なくとも1文字です
  • キーと入力は、印刷可能なASCIIのみで構成されます。
  • XORされた文字列には、印刷できない文字が含まれる場合があります。
  • 入力と出力は合理的な方法で行うことができます
  • 標準の抜け穴は禁止されています。
  • キーと入力は任意の順序で取得できます。

テストケース

key, input -> output
--------------------
"912", ["abcde", "hello", "test", "honk"] -> ["test", "hello", "honk", "abcde"]
"taco", ["this", "is", "a", "taco", "test"] -> ["taco", "test", "this", "a", "is"]
"thisisalongkey", ["who", "what", "when"] -> ["who", "what", "when"]
"3", ["who", "what", "when"] -> ["what", "when", "who"]

これはcode-golfなので、最小バイト数が勝ちです！

code-golf  string  array-manipulation  sorting  bitwise 
— アタコ
ソース
関連ませんデュープしかしほど遠い
— MD XF
文字列は異なることが保証されていますか？
— ニール
@Neil同一であると問題が発生する状況は想像できませんが、すべての文字列が一意であると想定できます。
— アタコ
@ATaco組み込みの文字列比較を使用していない場合、それは確かに重要です。
— デニス

回答:

7

ゼリー、9 7バイト

⁹ṁO^OµÞ

@EriktheOutgolferに2バイトの節約に役立つ提案をありがとう！

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

使い方

⁹ṁO^OµÞ  Dyadic link.
         Left argument: A (string array). Right argument: k (key string).

     µ   Combine the code to the left into a chain.
         Begin a new, monadic chain with argument A.
      Þ  Sort A, using the chain to the left as key.
         Since this chain is monadic, the key chain will be called monadically,
         once for each string s in A.
⁹            Set the return value to the right argument of the link (k).
 ṁ           Mold k like s, i.e., repeat its characters as many times as necessary
             to match the length of s.
  O          Ordinal; cast characters in the resulting string to their code points.
    O        Do the same for the chain's argument (s).
   ^         Perform bitwise XOR.
— デニス
ソース
10

Pythonの3、75の 73バイト

lambda k,x:x.sort(key=lambda s:[ord(x)^ord(y)for x,y in zip(s,k*len(s))])

これにより、リストxがインプレースでソートされます。

2バイトのゴルフをしてくれた@mercatorに感謝します！

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

代替バージョン、62バイト

これは、入力をバイト文字列として受け取りますが、許可されない場合があります。

lambda k,x:x.sort(key=lambda s:[*map(int.__xor__,s,k*len(s))])

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

— デニス
ソース
インプレースソートは2バイトを節約しますx.sort(key=...)。
— メルカトル
2

クリーン、101 100 94のバイト

Ourousのおかげで-6バイト！

import StdEnv
? =toInt
s k=let%s=[b bitxor?a\\a<-s&b<-[?c\\_<-s,c<-k]];@a b= %b> %a in sortBy@

オンラインでお試しください！使用例：s ['3'] [['who'], ['what'], ['when']]。

ゴルフをしていない：

import StdEnv
sort key list = 
   let
      f string = [(toInt a) bitxor (toInt b) \\ a<-string & b<-flatten(repeat key)]
      comp a b = f a <= f b
   in sortBy comp list
— ライコニ
ソース
? =toIntそして使用?代わりする2つのバイトを保存し、反転大なり代わり少ない又は-対等を使用して別のものを保存します。
— 17
さらに良いことに、6バイトを節約します：TIO
— ΟurousDec
1

実際には、24バイト

O╗⌠;O;l;╜@αH♀^♂cΣ@k⌡MS♂N

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

説明：

O╗⌠;O;l;╜@αH♀^♂cΣ@k⌡MS♂N
O╗                        store ordinals of key in register 0
  ⌠;O;l;╜@αH♀^♂cΣ@k⌡M     for each string in array:
   ;O                       make a copy, ordinals
     ;l;                    make a copy of ordinals, length, copy length
        ╜@αH                list from register 0, cycled to length of string
            ♀^              pairwise XOR
              ♂cΣ           convert from ordinals and concatenate
                 @k         swap and nest (output: [[a XOR key, a] for a in array])
                     S♂N  sort, take last element (original string)
— メゴ
ソース
@ATacoいいえ、ありません。["who", "what", "when"]そしてそれを試してみてください"thisisalongkey"
— ケアニアン共犯
1
@cairdcoinheringaahingこれは、Tactually on Actuallyへのパッチの前に投稿されました。
— アタコ
1

Perl 6、37バイト

{@^b.sort(*.comb Z~^(|$^a.comb xx*))}

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

$^aおよび@^bは、それぞれ関数のキーと配列の引数です。 @^b.sort(...)与えられた述語関数に従って入力配列を単純にソートします。その関数は単一の引数sortを受け取るため、各要素を順番に渡し、戻り値をその要素のキーとして扱い、要素のキーでリストをソートします。

ソート機能は*.comb Z~^ (|$^a.comb xx *)です。 *関数への単一の文字列引数です。 *.comb文字列の個々の文字のリストです。 |$^a.comb xx *xorソートキー内の文字のリストで、無限に複製されます。これらの2つのリストはZ、文字列ごとのxor演算子（~^）を使用して圧縮されます（）。ソート述語はリストであるソートキーを返すので、返されたリストsortの最初の要素を比較して2つの要素を並べ替え、最初の要素が同じ場合は2番目の要素を比較します。

— ショーン
ソース
{sort *.comb »~^»$^a.comb,@^b}
— ブラッドギルバートb2gills
1

C（GCC） 、132の 128 126バイト

char*k;g(a,b,i,r)char**a,**b;{r=k[i%strlen(k)];(r^(i[*a]?:-1))-(r^(i[*b]?:-2))?:g(a,b,i+1);}f(c,v)int*v;{k=*v;qsort(v,c,8,g);}

引数の数と文字列配列へのポインタ（キー、その後に並べ替えられる文字列）を受け取り、文字列配列をその場で変更します。

コードは移植性が非常に低く、64ビットポインター、gcc、およびglibcが必要です。

2バイトのゴルフをしてくれた@ceilingcatに感謝！

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

— デニス
ソース
1

パイソン2、 204の140 134  126バイト

@Mrに感謝します。64バイトを節約してくれたXcoder、6バイトを節約してくれた@ ovs、8バイトを節約してくれた@Dennisに感謝！

lambda k,l:[x(k,s)for s in sorted(x(k,s)for s in l)]
x=lambda k,s:''.join(chr(ord(v)^ord(k[i%len(k)]))for i,v in enumerate(s))

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

— ステディボックス
ソース
1

x86オペコード、57バイト

0100  60 89 CD 4D 8B 74 8A FC-8B 3C AA 53 F6 03 FF 75
0110  02 5B 53 8A 23 AC 08 C0-74 0A 30 E0 32 27 47 43
0120  38 E0 74 E8 77 0A 8B 04-AA 87 44 8A FC 89 04 AA
0130  85 ED 5B 75 CE E2 CA 61-C3

    ;input ecx(length), edx(array), ebx(xor-d)
F:  pushad
L1: mov ebp, ecx
L2: dec ebp
    mov esi, [edx+ecx*4-4]
    mov edi, [edx+ebp*4]
    push ebx
L6: test [ebx], byte -1 ; t1b
    jnz L4
    pop ebx
    push ebx
L4: mov ah, [ebx]
    lodsb
    or  al, al
    jz  L7
    xor al, ah
    xor ah, [edi]
    inc edi
    inc ebx
    cmp al, ah
    jz  L6
L7: ja  L8
    mov eax, dword[edx+ebp*4]
    xchg eax, dword[edx+ecx*4-4]
    mov dword[edx+ebp*4], eax
L8: ;call debug
    test ebp, ebp
    pop ebx
    jnz L2
    loop L1
    popad
    ret

テストコード：

if 1
    use32
else
    org $0100
    mov ecx, (Qn-Q0)/4
    mov edx, Q0
    mov ebx, S
    call F
    call debug
    ret

debug:pushad
    mov ecx, (Qn-Q0)/4
    mov edx, Q0
    mov ebx, S
E3:   mov esi, [edx]
    push dx
    mov ah, 2
E4:   lodsb
    cmp al, 0
    jz E5
    mov dl, al
    int $21
    jmp E4
E5:   mov dl, $0A
    int $21
    mov dl, $0D
    int $21
    pop dx
    add edx, 4
    loop E3
    ;mov ah, 1
    ;int $21
    int1
    popad
    ret
    align 128
Q0:
    dd str1, str2, str3, str4
Qn:
S     db '912', 0
str1  db 'abcde', 0
str2  db 'hello', 0
str3  db 'test', 0
str4  db 'honk', 0
    align 128
end if
    ;input ecx(length), edx(array), ebx(xor-d)
F:  pushad
L1: mov ebp, ecx
L2: dec ebp
    mov esi, [edx+ecx*4-4]
    mov edi, [edx+ebp*4]
    push ebx
L6: test [ebx], byte -1 ; t1b
    jnz L4
    pop ebx
    push ebx
L4: mov ah, [ebx]
    lodsb
    or  al, al
    jz  L7
    xor al, ah
    xor ah, [edi]
    inc edi
    inc ebx
    cmp al, ah
    jz  L6
L7: ja  L8
    mov eax, dword[edx+ebp*4]
    xchg eax, dword[edx+ecx*4-4]
    mov dword[edx+ebp*4], eax
L8: ;call debug
    test ebp, ebp
    pop ebx
    jnz L2
    loop L1
    popad
    ret
— l4m2
ソース
1

JavaScriptのES 6、113 97 95のバイト

k=>p=>p.sort((a,b,F=x=>[...x].map((y,i)=>1e9|y.charCodeAt()^(p=k+p).charCodeAt(i)))=>F(a)>F(b))

JavaScriptは文字コードが長い...

[0,65536）+ 1e4の場合はすべて5桁なので、文字列のように比較できます

Q=
k=>p=>p.sort((a,b,F=x=>[...x].map((y,i)=>1e9|y.charCodeAt()^(p=k+p).charCodeAt(i)))=>F(a)>F(b))
;
console.log(Q("912")(["abcde", "hello", "test", "honk"]));
console.log(Q("taco")(["this", "is", "a", "taco", "test"]));
console.log(Q("thisisalongkey")(["who", "what", "when"]));
console.log(Q("3")(["who", "what", "when"]));
スニペットを展開

— l4m2
ソース
Threoiy k+=k代わりに使用できますp=k+pが、小さなテストケースで使用するメモリが多すぎます
— l4m2
0

Clojure、80バイト

#(sort-by(fn[s](apply str(apply map bit-xor(for[i[(cycle %)s]](map int i)))))%2)
— ニコニル
ソース
0

Perl 5、80 + 3（anl）= 83、67バイト

sub{$,=shift;sub X{$_^substr$,x y///c,0,y///c};map X,sort map X,@_}

オンラインで試す

— ナウエル・フイユル
ソース
これはキーを9回繰り返しますが、一般的には十分ではありません。たとえば、出力は次のものに対して間違ってい9ます。abcdeabcde abcdeabcdz（与える必要がありますabcdeabcdz abcdeabcde）
— リン
@ Lynn、3バイトの追加を修正
— Nahuel Fouilleul
潜水艦を使用して16バイトを保存できます
— ナウエルFouilleul
0

AWK、285 284バイト

{for(;z++<128;){o[sprintf("%c",z)]=z}split(substr($0,0,index($0,FS)),k,"");$1="";split($0,w);for(q in w){split(w[q],l,"");d="";for(;i++<length(l);){d=d sprintf("%c",xor(o[k[(i-1)%(length(k)-1)+1]],o[l[i]]))}a[q]=d;i=0}asort(a,b);for(j in b){for(i in a){printf(a[i]==b[j])?w[i]FS:""}}}

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

key word word ...例の形式で入力を受け入れます912 abcde hello test honk

スペースで区切られたソートされた単語を出力します

少し読みやすい

{
  for (; z++ < 128;) {
    o[sprintf("%c", z)] = z
  }
  split(substr($0, 0, index($0, FS)), k, "");
  $1 = "";
  split($0, w);
  for (q in w) {
    split(w[q], l, "");
    d = "";
    for (; i++ < length(l);) {
      d = d sprintf("%c", xor(o[k[(i - 1) % (length(k) - 1) + 1]], o[l[i]]))
    }
    a[q] = d;
    i = 0;
  }
  asort(a, b);
  for (j in b) {
    for (i in a) {
      printf(a[i] == b[j]) ? w[i] FS : ""
    }
  }
}
— ノスクカイ
ソース
0

ファクター、85

[ [ dup length rot <array> concat [ bitxor ] 2map ] with
[ dup bi* <=> ] curry sort ]

最初に試してみてください。明日、さらにゴルフができるかどうか確認します。

私は提案を受け入れます;）

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