Deskripsi

Caesar Shift adalah cipher monoalphabetic yang sangat sederhana di mana setiap huruf diganti dengan yang setelah itu dalam alfabet. Contoh:

Hello world! -> IFMMP XPSME!

( IBSLR, EGUFV!adalah output untuk tantangan yang sebenarnya, ini adalah contoh dari pergeseran oleh 1.)

Seperti yang Anda lihat, spasi dan tanda baca tetap tidak terputus. Namun, untuk mencegah menebak pesan, semua huruf ditulis dengan huruf besar. Dengan menggeser kembali surat-surat itu, pesan itu diartikan, nyaman, tetapi juga sangat mudah diuraikan oleh orang lain yang seharusnya tidak tahu apa arti pesan itu.

Jadi, kami akan sedikit membantu Caesar dengan menggunakan bentuk sandi canggihnya: Caesar Shift yang Bergeser Sendiri !

Tantangan

Tugas Anda adalah menulis program atau fungsi, yang, diberi string untuk dienkripsi, mengeluarkan string terenkripsi yang sesuai dengan input. Caesar Shift canggih berfungsi seperti ini:

1. Compute letter differences of all adjacent letters: 
    1.1. Letter difference is computed like this:

         Position of 2nd letter in the alphabet
        -Position of 1st letter in the alphabet
        =======================================
                              Letter difference

    1.2. Example input: Hello
         H - e|e -  l|l  -  l|l  -  o
         7 - 5|5 - 12|12 - 12|12 - 15 Letter differences: 3; -7; 0; -3
            =3|   =-7|     =0|    =-3

2. Assign the letters continously a letter difference from the list,
   starting at the second letter and inverting the differences:
    2.1. 2nd letter: first difference, 3rd letter: second difference, etc.

    2.2. The first letter is assigned a 1.

    2.3. Example input: Hello with differences 3; -7; 0; -3

         Letter || Value
         =======||======
            H   ||   1
            E   ||  -3
            L   ||   7
            L   ||   0
            O   ||   3

3. Shift the letters by the value x they have been assigned:
    3.1. In case of a positive x, the letter is shifted x letters to the right.
    3.2. In case of a negative x, the letter is shifted |x| letters to the left.
    3.3. In case of x = 0, the letter is not shifted.

    3.4. If the shift would surpass the limits of the alphabet, it gets wrapped around
         Example: Y + Shift of 2 --> A

    3.5. Example input: See the table under 2.3.

                ||       || Shifted
         Letter || Value || Letter
         =======||=======||=========
            H   ||   1   ||    I
            E   ||  -3   ||    B     Program output:
            L   ||   7   ||    S     IBSLR
            L   ||   0   ||    L
            O   ||   3   ||    R

Spasi dan simbol khusus lainnya, seperti tanda baca dilewati dalam proses ini. Dijamin bahwa program Anda akan diberikan string yang hanya berisi karakter ASCII yang dapat dicetak. Output dari fungsi / program Anda hanya harus dalam huruf besar.

Ini adalah kode-golf , jadi celah standar berlaku, dan semoga jawaban tersingkat dalam byte menang!

05AB1E , 28 27 24 byte

láÇ¥R`XIlvyaiAyk+Aèëy}u?

Cobalah online!

Penjelasan

l                          # convert input to lower case
 á                         # keep only letters
  ǥ                       # compute deltas of character codes
    R`                     # reverse and push separated to stack
      X                    # push 1
       Ilv                 # for each char y in lower case input
          yai              # if y is a letter
             Ayk           # get the index of y in the alphabet
                +          # add the next delta
                 Aè        # index into the alphabet with this
            ëy             # else push y
              }            # end if
            u?             # print as upper case

Python 3 , 100 byte

b=0
for c in map(ord,input().upper()):
 if 64<c<91:b,c=c,(c+c-(b or~-c)-65)%26+65
 print(end=chr(c))

Cobalah online!

bmelacak kode ASCII huruf terakhir, atau awalnya nol; rumusnya c+c-(b or~-x)berarti huruf dengan kode ASCII cakan bergeser c-bjika btidak nol, dan c-(c-1) == +1jika bnol (untuk huruf pertama).

btidak akan pernah menjadi nol lagi, karena string dijamin terdiri dari karakter ASCII yang dapat dicetak .

Akhirnya, 64<c<91periksa apakah churuf ASCII huruf besar, dan (…-65)%26+65kembalikan semuanya ke dalam A-Zjangkauan.

ovs menyimpan satu byte. Terima kasih!

05AB1E , 32 30 29 byte

lDáÇ¥1¸ìUvyaiAX¾èAyk+sè¼ëy}Ju

Cobalah online!

ES6 (Javascript), 138 byte:

s=>((s,a,f)=>((r=i=>s[i]&&(a[i]=String.fromCharCode((2*s[f](i)-(s[f](i-1)||71)-38)%26+64),r(i+1)))(0),a))(s.toUpperCase(),[],"charCodeAt")

http://jsbin.com/manurenasa/edit?console

MATL , 27 byte

tXkt1Y2mXH)tlwdh+64-lY2w)H(

Cobalah online!

Saya pikir ini adalah yang terpendek yang bisa saya dapatkan, tetapi ada banyak varietas yang berbeda karena ada banyak penggunaan ulang 'variabel' (ada 3 t(duplikasi), dan 2 woperasi (swap), clipboard Hdigunakan, dan itupun masih ada duplikat 1Y2...). Sayangnya, saya tidak bisa menyimpan byte dengan Mclipboard otomatis .

Lebih dari setengah dari program ini didedikasikan untuk membuatnya menjadi huruf besar dan mengabaikan karakter non-alfabet - hanya sandi tidak lebih dari 13 byte ( Coba online! )

Perl, 90 89

Meskipun bahasa non-codegolf jarang kompetitif, kita dapat mencapai di bawah 100;)

@a=split//,<>;say uc(++$a[0]).join'',map{uc chr(2*ord($a[$_+1])-ord($a[$_])+!$_)}0..$#a-1

Saya telah memutuskan untuk ungolf ini:

@a = split//,<>; Mengambil input dari STDIN, menyimpan daftar karakter (dengan baris baru!) Di @a.

say uc(++$a[0])Output huruf besar digeser dengan 1. Ternyata Anda bisa menambah huruf dalam perl jika Anda menggunakan awalan ++. Ini adalah mutator ofc.

2*ord($a[$_+1])-ord($a[$_])+!$_Kita diminta untuk mengambil karakter pada x, dan menambahkan perbedaan + (x- (x-1)). Ya itu 2x - (x-1). Namun: Saya mengubah huruf pertama! Jadi saya harus memperbaiki kesalahan itu, karenanya +!$_, yang akan mengoreksi karena telah mengurangi satu terlalu banyak pada posisi 0 (hanya case! $ _ Tidak undef). Kami kemudian uc chrmendapatkan huruf besar dari nilai ASCII yang dihitung.

map{ ... } $#a-2- $#aadalah posisi untuk mengakses elemen array terakhir. Karena saya menambahkan yang saya inginkan $#a-1, tetapi karena baris baru dari input perlu diabaikan, ini $#a-2.

Ini digabungkan dengan huruf pertama, dan kita selesai :)

Perl 5 -F , 73 77 74 byte

/\w/&&($_=chr 65+(2*($n=ord uc)-65-($!||-1+ord uc))%26)&($!=$n)for@F;say@F

Cobalah online!

PHP, 106 98 byte

cukup jahat satu itu ... jika tidak base_convertselama itu (atau ctype_alpha) ...
tapi saya mendapatkannya di bawah 100. puas.

for(;$a=ord($c=$argn[$i++]);print ctype_alpha($c)?chr(65+($p?(25-$p+2*$p=$a)%26:$p=$a)):$c)$a&=31;

Jalankan sebagai pipa dengan -nRatau coba online .

JavaScript (Node.js) , 86 83 87 81 byte

s=>s.replace(/[a-z]/gi,(x,i)=>Buffer(x).map(x=>((i?x%32-l:1)+26+(l=x%32))%26+64))

Cobalah online!