문제 :

두 명의 적 비밀 요원이 멋진 (당신을 위해) 의사 소통 방법을 고안했습니다!

암호화 프로세스의 작동 방식은 다음과 같습니다.

1) 각 문자의 ASCII 문자를 사용하십시오. (공백, 숫자 또는 문장 부호가 전송되지 않습니다)

2) 메시지의 각 문자에 대해 해당 문자와 ​​그에 해당하는 문자 (존재하는 경우 0으로 간주되어야 함)와 그에 해당하는 문자가 곱해집니다 (이 제품은 배열 / 목록에 저장 됨) 합산됩니다 (이 번호는 다른 목록에도 저장 됨).

3) (합계와 상품의) 두리스트가 합쳐지고 (합계리스트, 그 다음에 복수리스트, 같은 배열로) 전송됩니다.

이 프로세스를 취소하고이 형식으로 전송 된 메시지를 해독 할 수있는 가장 작은 프로그램을 작성해야합니다!

입력 및 출력 쌍 예 :

[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”

이것은 code-golf 이므로 바이트 단위의 가장 작은 솔루션이 이깁니다.

오류 메시지가 허용됩니다.

제출에 지정하면 프로그램에 1 차원 배열 또는 쉼표로 구분 된 문자열을 제공 할 수 있습니다. 기본값은 배열 / 목록입니다.

껍질 , 7 6 바이트

mcĠ≠←½

온라인으로 사용해보십시오! 문서에 따르면 선행 m은 필요하지 않지만 현재 버그가있는 것 같습니다.

편집 : Zgarb 덕분에 -1 바이트!

설명:

     ½ -- 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 바이트

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

입력은 암호화 된 문자열입니다. 무한 크기의 셀을 가정하고 EOF에서 0을 가정합니다.

작동 방식 :

,[>>>+<[-<+>>-<]<[->+<],] 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

하스켈 , 45 35 바이트

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

온라인으로 사용해보십시오!

설명

• fst.span(<245)목록의 시작 부분에서 245보다 작은 모든 숫자를 사용합니다. 가능한 가장 큰 합계는 z + z = 122 + 122 = 244이고 가능한 가장 작은 곱은 이므로 합계 부분의 숫자 입니다 A * A = 65 * 65 = 4225.
• scanr1(-)목록의 마지막 값을 가져 와서 초기 누산기로 사용합니다. 그런 다음 앞뒤로 목록의 각 요소를 현재 누산기에 의해 빼고 결과를 다음 누산기로 사용하여 목록에 추가합니다.
• map toEnum 문자열을 다시 만들기 위해 목록의 각 숫자를 해당 문자로 바꿉니다.

젤리 , 9 바이트

œs2ḢUạ\ỌU

온라인으로 사용해보십시오! 또는 두 테스트 사례를 모두 확인하십시오.

대안.

설명

œs2ḢUạ \ ỌU || 전체 프로그램.

–s2 || 필요한 경우 첫 번째 부분이 더 긴 두 부분으로 나눕니다.
   Ḣ || 머리를 가져옵니다 (첫 번째 요소).
    U || 역.
     ạ \ || 빼기로 누적 감소.
       Ọ || 코드 포인트에서 문자로 변환하십시오.
        U || 그리고 다시 반전하십시오.

파이썬 2 , 72 바이트

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

온라인으로 사용해보십시오!

파이썬 2 , 92 바이트

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))

온라인으로 사용해보십시오!

젤리 , 11 바이트

œs2Ḣḅ-$ÐƤAỌ

정수 목록을 가져와 문자 목록을 반환하는 모나드 링크.

온라인으로 사용해보십시오!

어떻게?

œ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 바이트

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

정수 목록을 가져와 문자열을 반환합니다.

설명:

←ĐĐŁ₂⁻⦋⇹          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

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 80 바이트

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 스크립트 -74 71 바이트

(Do..Loop 대신 While..Wend를 사용하여 74에서 71로 줄였습니다.)

입력은 배열 a ()에 있고 출력은 문자열 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

설명

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.

위 코드를 함수로 래핑하여 vbscript 파일에서 이것을 테스트했습니다.

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

클린 , 96 81 78 77 바이트

zero널 문자입니다.
Clean이 소스 파일의 리터럴 널에 대해 까다 롭지 않은 경우 다른 바이트를 저장할 수 있습니다.

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

온라인으로 사용해보십시오!

Perl 5 , 39 + 2 ( -ap) = 41 바이트

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

온라인으로 사용해보십시오!

C (gcc) , 90 89 바이트

• ceilingcat 덕분에 바이트를 절약했습니다 . 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];}

온라인으로 사용해보십시오!

표준 ML (MLton) , 85 84 82 바이트

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

온라인으로 사용해보십시오!

언 골프 드 :

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

온라인으로 사용해보십시오!

펄 6 ,  43 39  35 바이트

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

그것을 테스트

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

테스트 ^{_{(위와 동일)}}

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

그것을 테스트

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

그것을 테스트

설명:

{[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 바이트

2ä¬Å«-}çJ

온라인으로 사용해보십시오!

설명

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.

apt, 12 바이트

배열의 전반부를 얻는 더 짧은 방법이 있어야합니다 ...

¯UÊz)Ôån Ômd

시도 해봐

파이썬 2 , 70 바이트

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

온라인으로 사용해보십시오!