Masalah:

Dua agen rahasia musuh telah menemukan metode komunikasi yang hebat (untuk Anda)!

Inilah cara kerja proses enkripsi:

1) Ambil ascii setara dari setiap huruf. (Tidak ada spasi, angka, atau tanda baca dikirim)

2) Untuk setiap huruf dalam pesan, ascii setara dengan dan sesudahnya (jika ada, jika tidak, harus dianggap 0), dikalikan (produk ini disimpan dalam array / daftar) dan dijumlahkan (nomor ini juga disimpan dalam daftar yang berbeda).

3) Dua daftar (jumlah dan produk) bergabung bersama (daftar jumlah, kemudian daftar kelipatan, ke dalam array yang sama) dan ditransmisikan.

Anda harus menulis program terkecil yang dapat membalikkan proses ini dan mendekripsi pesan yang dikirim dalam format ini!

Contoh Pasang Input dan Output:

[173, 209, 216, 219, 198, 198, 225, 222, 208, 100, 7272, 10908, 11664, 11988, 9657, 9657, 12654, 12312, 10800, 0] -> “HelloWorld”
[131, 133, 164, 195, 197, 99, 4290, 4422, 6499, 9506, 9702, 0] -> “ABCabc”

Ini adalah kode-golf , jadi solusi terkecil dalam byte menang.

Pesan kesalahan diizinkan.

Program Anda dapat diberikan daftar / array 1 dimensi atau string yang dipisah koma, jika Anda tentukan dalam kiriman Anda. Standarnya adalah array / daftar.

Sekam , 7 6 byte

mcĠ≠←½

Cobalah online! Menurut dokumentasi, pimpinan mtidak diperlukan, tetapi saat ini sepertinya ada bug.

Sunting: -1 byte berkat Zgarb!

Penjelasan:

     ½ -- split input list into half
    ←  -- take first list
  Ġ≠   -- subtract each list element from the previous one
mc     -- convert list of code points to string

brainfuck , 66 byte

,[>>>+<[-<+>>-<]<[->+<],]>[<<,>>[-<+>]<-]<<<[>[-<->>+<]<<]>.>>[.>]

Input adalah string terenkripsi. Diasumsikan sel berukuran tak terbatas dan 0 pada EOF.

Bagaimana itu bekerja:

,[>>>+<[-<+>>-<]<[->+<],] Gets input and the number of characters divided by 2
>[<<,>>[-<+>]<-]<<< Remove the second half of the string (the multiplication part)
[>[-<->>+<]<<] Subtract each character from the previous one, while keeping a copy of the previous one.
>.>>[.>] Print the characters

Haskell , 45 35 byte

map toEnum.scanr1(-).fst.span(<245)

Cobalah online!

Penjelasan

• fst.span(<245)mengambil semua angka dari awal daftar yang lebih kecil dari 245. Itu hanya angka-angka dari bagian penjumlahan, karena penjumlahan terbesar yang mungkin z + z = 122 + 122 = 244, dan produk terkecil yang mungkin A * A = 65 * 65 = 4225.
• scanr1(-)mengambil nilai terakhir dari daftar dan menggunakannya sebagai akumulator awal. Kemudian dari belakang ke depan setiap elemen daftar dikurangi oleh akumulator saat ini, dan hasilnya digunakan sebagai akumulator berikutnya dan dan ditambahkan ke daftar.
• map toEnum mengganti setiap angka dalam daftar dengan karakter yang sesuai untuk membuat ulang string.

Jelly , 9 byte

œs2ḢUạ\ỌU

Cobalah online! atau Periksa kedua kasus uji.

Alternatif.

Penjelasan

œs2ḢUạ \ ỌU || Program lengkap.

œs2 || Dibagi menjadi dua bagian, dengan yang pertama lebih panjang jika perlu.
   Ḣ || Dapatkan kepala (elemen pertama).
    U || Membalikkan.
     ạ \ || Kumulatif dikurangi dengan pengurangan.
       Ọ || Konversi dari titik kode ke karakter.
        U || Dan mundur lagi.

Python 2 , 72 byte

a=input();p=0;r=''
for v in a[len(a)/2-1::-1]:r=chr(v-p)+r;p=v-p
print r

Cobalah online!

Python 2 , 92 byte

lambda C:"".join(chr(sum((-1)**i*C[j+i]for i in range(len(C)/2-j)))for j in range(len(C)/2))

Cobalah online!

Jelly , 11 byte

œs2Ḣḅ-$ÐƤAỌ

Tautan monadik yang mengambil daftar bilangan bulat dan mengembalikan daftar karakter.

Cobalah online!

Bagaimana?

œs2Ḣḅ-$ÐƤAỌ - Link: list of integers     e.g. [210,211,201,101,10989,11100,10100,0]
  2         - literal two                     2
œs          - split into equal parts          [[210,211,201,101],[10989,11100,10100,0]]
   Ḣ        - head                            [210,211,201,101]
       ÐƤ   - for postfixes:                  [210,211,201,101],[211,201,101],[201,101],[101]
      $     -   last two links as a monad:
     -      -     literal minus one           -1
    ḅ       -     convert from base           -99              ,111          ,-100      ,101
         A  - absolute value (vectorises)     [99,111,100,101]
          Ọ - convert to ordinal (vectorises) "code"

Pyt , 60 byte

←ĐĐŁ₂⁻⦋⇹ĐŁřĐŁ₂>*ž0`ŕĐĐŁ⁻⦋3ȘĐ4Ș3Ș4Ș÷⇹ĐŁřĐŁ<*žĐŁ⁻łŕ⇹Đ3Ș⇹÷Á↔áƇǰ

Mengambil daftar bilangan bulat dan mengembalikan serangkaian karakter.

Penjelasan:

←ĐĐŁ₂⁻⦋⇹          Gets the ASCII code of the last character
ĐŁřĐŁ₂>*ž         Gets the list of products and removes the 0 from the end of the list
0`ŕ ...  ł        Loops (0 is there so that the length can be removed from the stack)
ĐĐŁ⁻⦋              Gets the last product
3ȘĐ4Ș3Ș4Ș÷        Divides by the last ASCII code obtained
⇹ĐŁřĐŁ<*ž         Removes the last element from the array
ĐŁ⁻ł              Gets the length of the array - 1 (if 0, then exit loop - the last entry still has to be processed)
ŕ⇹Đ3Ș⇹÷           Divides the remaining product by the last ASCII code obtained           
Á↔á               Converts to array of ints
Ƈǰ                Converts to string of ASCII characters

Cobalah online!

JavaScript (ES6), 80 byte

a=>String.fromCharCode(...eval(`for(a.splice(i=a.length/2);--i;a[i-1]-=a[i])a`))

f=

a=>String.fromCharCode(...eval(`for(a.splice(i=a.length/2);--i;a[i-1]-=a[i])a`))

console.log(
    f([173, 209, 216, 219, 198, 198, 225, 222, 208, 100, 7272, 10908, 11664, 11988, 9657, 9657, 12654, 12312, 10800, 0]),
    f([131, 133, 164, 195, 197, 99, 4290, 4422, 6499, 9506, 9702, 0])
)

VB Script - 74 71 byte

(Saya berhasil mengurangi dari 74 menjadi 71 dengan menggunakan While..Wend bukannya Do..Loop)

Input dalam array a (), output dalam string d

d="":p=0:n=(UBound(a)+1)/2:While n>0:n=n-1:t=a(n)-p:d=Chr(t)&d:p=t:Wend

Penjelasan

d=""          '// initialize the output string
p=0          '// initialize the ansii of following char (working back from last char)
n=(Ubound(a)+1)/2 '// the index of the last summed pair + 1 (base 0)
While n>0    '// begin loop working back from last summed pair
n=n-1        '// move back 1 char
t=a(n)-p     '// calculate the ansii by subtracting the ansii of following char
d=Chr(t)&d   '// prepend the char to output
p=t          '// this char becomes the following char for next
Wend         '// repeat etc.

Saya menguji ini dalam file vbscript dengan kode di atas dibungkus sebagai fungsi:

dim s
Dim arr()
s = Split("173, 209, 216, 219, 198, 198, 225, 222, 208, 100, 7272, 10908, 11664, 11988, 9657, 9657, 12654, 12312, 10800, 0", ",")
ReDim arr(UBound(s))
Dim x 
For x = 0 To UBound(s)
    arr(x) = cint(s(x))
Next 

msgbox "=" & d(arr)



Private Function d(a())
d="":p=0:n=(UBound(a)+1)/2:While n>0:n=n-1:t=a(n)-p:d=Chr(t)&d:p=t:Wend
End Function

Bersih , 96 81 78 77 byte

zeroadalah karakter nol.
Saya bisa menyimpan byte lain jika Clean tidak begitu pilih-pilih tentang nulls literal dalam file sumber.

import StdEnv
f=init o foldr(\a t=[toChar a-t!!0:t])[zero]o takeWhile((>)245)

Cobalah online!

Perl 5 , 39 + 2 ( -ap) = 41 byte

$#F/=2;$\=chr($p=-$p+pop@F).$\while@F}{

Cobalah online!

C (gcc) , 90 89 byte

• Menyimpan satu byte berkat plafon ; s+=(i%2?-1:1)*...<~> s-=~(i%2*-2).

D(C,l,j,s,i)int*C;{for(j=~0;++j<l/2;putchar(s))for(s=i=0;i+j<l/2;)s-=~(i%2*-2)*C[i+++j];}

Cobalah online!

ML Standar (MLton) , 85 84 82 byte

fun!(x::r)=if x>244then[]else(fn z::s=>x-z::z::s|_=>[x])(!r);implode o map chr o!;

Cobalah online!

Tidak Disatukan:

fun g (x::r) =
   if   x > 244
   then []
   else case g r of
          z::s => x-z :: z :: s
        |  []  => [x]

val f = implode o map chr o g

Cobalah online!

Perl 6 ,  43 39  35 byte

{[~] [R,](produce *R-*,[R,] .[^*/2])».chr}

Menguji

{[~] [R,]([\[&(*R-*)]] [R,] .[^*/2])».chr}

Mengujinya ^{_{(melakukan hal yang sama seperti di atas)}}

{[~] [R,]([\R[&(*R-*)]] .[^*/2])».chr}

Menguji

{[R~] [\R[&(*R-*)]](.[^*/2])».chr}

Menguji

Penjelasan:

{[R~] [\R[&(*R-*)]](.[^*/2])».chr}

{                                }      # block lambda with parameter `$_`

      [\R[&(*R-*)]](.[^*/2])            # turn sums back into ordinals (reversed)

                    .[^*/2]             # first half of `$_` (implicit method call)
            *R-*                        # lambda, reverse of *-*
         [&(    )]                      # use it as an infix operator
                                        # (same as R- except left associative)
        R                               # reverse arguments and associativity
                                        # (same as - except right associative)
      [\          ](       )            # produce values `[\+] 1,2,3` => `(1,3,6)`
                                        # uses associativity to determine direction
                                        # `[\**] 1,2,3` => `(3,8,1)`

                            ».chr       # call `.chr` method on all values
                                        # (possibly concurrently)

 [R~]                                   # concatenate in reverse
                                        # (shorter than `join '', reverse …`)

05AB1E , 9 byte

2ä¬Å«-}çJ

Cobalah online!

Penjelasan

2ä        # Split input list in two (equal if possible) parts.
  ¬       # Push head(a).
   Å«-}   # Cumulative reduce the list by subtraction (from the right).
       ç  # Convert each integer in the list to its corresponding ASCII char.
        J # Join list together to string.

Japt, 12 byte

Harus ada cara yang lebih singkat untuk mendapatkan bagian pertama dari array ...

¯UÊz)Ôån Ômd

Cobalah

Python 2 , 70 byte

l,j,s=input(),0,'';n=len(l)/2
while n:n-=1;j=l[n]-j;s=chr(j)+s
print s

Cobalah online!