Di chat, kita sering cepat-typers dan tidak benar-benar melihat urutan dari huruf sebelum posting pesan. Karena kita malas, kita membutuhkan program yang secara otomatis menukar dua huruf terakhir dengan kata-kata kita, tetapi karena kita tidak ingin merespons terlalu terlambat, kodenya harus pendek.

Tugas Anda, jika Anda ingin menerimanya, adalah menulis program yang membalik dua huruf terakhir dari setiap kata dalam string yang diberikan (sehingga kata Thanskberubah menjadi Thanks). Sebuah kata adalah urutan dua atau lebih huruf dalam alfabet bahasa Inggris yang dibatasi oleh satu spasi.

• String / daftar karakter yang Anda terima sebagai input dijamin hanya berisi karakter dan spasi alfabet (ASCII [97 - 122], [65 - 90] dan 32).

• Anda dapat mengambil input dan memberikan output melalui metode standar apa pun , dalam bahasa pemrograman apa pun , sambil memperhatikan bahwa celah ini dilarang secara default.

• Output mungkin memiliki satu trailing space dan / atau satu trailing newline.

• Input akan selalu berisi kata-kata saja (dan spasi yang sesuai) dan akan terdiri dari setidaknya satu kata.

Ini adalah kode-golf, jadi pengiriman terpendek (skor dalam byte), dalam setiap bahasa menang!

Uji kasus

Perhatikan bahwa string dikelilingi dengan tanda kutip untuk keterbacaan.

Input -> Output

"Thansk" -> "Terima kasih"
"Youer welcoem" -> "Terima kasih kembali"
"Ini apel" -> "Ini appel"
"Flippign Lettesr Aroudn" -> "Membalik Surat Sekitar"
"tAtUaN chALlEneg dengan swappde lettesR" -> "teHd chALlEnge dengan bertukar letteRs"

Atau, untuk kenyamanan test suite, berikut adalah input dan output yang sesuai secara terpisah:

Bahasa thans
Selamat datang
Ini sebuah apel
Flippign Lettesr Aroudn
TANTANGAN KITA SENDIRI DENGAN SENDIRI

Terima kasih
Sama-sama
Ini si appel
Membalik Surat Sekitar
BEGITU DARAH DENGAN KETERBUKAAN bertukar

Terima kasih kepada DJMcMayhem untuk judulnya. Ini awalnya CMC .

V , 4 5 byte

òeXp

Cobalah online!

|| menunjukkan kursor

Buffer dimulai dengan |w|ord and more wordsdan kursor berada pada karakter pertama.

Secara rekursif ò

pergi ke emenemukan kata

wor|d| and more words

hapus Xkarakter di sebelah kiri kursor

wo|d| and more words

ptempelkan di atas karakter berikutnya

wod|r| and more words

Akhir yang tersirat ò, ulangi proses yang sama dengan kata lain sampai akhir buffer tercapai

Jelly , 7 byte

Ḳœ?@€2K

Tautan monadik yang mengambil dan mengembalikan daftar karakter

Cobalah online!

Bagaimana?

Ḳœ?@€2K - Link: list of characters
Ḳ       - split at spaces
     2  - literal two
    €   - for €ach:
   @    -   with sw@pped arguments:
 œ?     -     nth permutation (the 2nd permutation has the rightmost elements swapped)
      K - join with spaces

Brain-Flak , 122 byte

{(({})[((((()()){}){}){}){}])((){[()](<{}>)}{}){{}<>(({}({}))[({}[{}])])(<>)}{}({}<>)<>}<>(({}({}))[({}[{}])]){({}<>)<>}<>

Cobalah online!

Bahasa terburuk untuk pekerjaan itu :)

Dapat dibaca Versi yang sedikit lebih mudah dibaca:

{
    (({})[((((()()){}){}){}){}])((){[()](<{}>)}{})

    {
        {}
        <>

        (({}({}))[({}[{}])])

        (<>)
    }
    {}

    ({}<>)<>

}<>

(({}({}))[({}[{}])])

{

    ({}<>)
    <>
}<>

Haskell , 40 byte

(f=<<).words
f[a,b]=b:a:" "
f(x:r)=x:f r

Cobalah online! Contoh penggunaan: (f=<<).words $ "abc xyz"hasil "acb xzy ".

Retina , 13 byte

(.)(.)\b
$2$1

Cobalah online! Tautan termasuk kasus uji.

Python 3 , 50 byte

print(*(w[:-2]+w[:-3:-1]for w in input().split()))

Cobalah online!

Jawaban ini menyalahgunakan perilaku cetak Python 3: Banyak argumen dicetak dengan satu spasi di antaranya. Tentu saja, kita tidak bisa hanya memberikan beberapa argumen karena kita tidak tahu berapa banyak kata yang akan dimasukkan dalam input. Jadi kami menggunakan operator percikan . Pada dasarnya

print(*[a,b,c])

persis sama dengan

print(a,b,c)

Penyalahgunaan yang membuat program lengkap ternyata lebih pendek dari fungsi / lambda di mana kita harus menggunakan ' '.joinatau yang serupa.

Matlab (R2016b), 51 50 byte

Disimpan 49 50 (!) Byte berkat @Giuseppe.

function s(a),regexprep(a,'(\w)(\w)( |$)','$2$1 ')

Dan jawaban saya sebelumnya:

Matlab (R2016b), 100 byte

(Hanya untuk bersenang-senang: P)

function s(a),a=regexp(a,' ','split');for i=1:length(a),fprintf('%s ',a{i}([1:end-2 end end-1])),end

Penjelasan:

function s(a) % Defining as a function...
a=regexp(a,' ','split'); % Splits the input string at the spaces
for i=1:length(a) % Loops through each word
    fprintf('%s ',a{i}([1:end-2 end end-1])) % And prints everything with the last two characters swapped.
end

C,  62   58  54 byte

Terima kasih kepada @Dennis karena telah menghemat  empat  delapan byte!

f(char*s){s[1]>32||(*s^=s[-1]^=*s^=s[-1]);*++s&&f(s);}

Cobalah online!

Prolog (SWI) , 60 byte

[A,B]+[B,A].
[A,B,32|U]+[B,A,32|Y]:-U+Y,!.
[A|U]+[A|Y]:-U+Y.

Cobalah online!

Penjelasan

Pertama kita mendefinisikan kasus dasar:

p([A,B],[B,A]).

Ini berarti bahwa dua huruf terakhir akan selalu ditukar.

Lalu kami menentukan apa yang terjadi jika kami berada tepat di sebelah spasi:

p([A,B,32|U],[B,A,32|Y]):-p(U,Y),!.

Dua string cocok jika tepat sebelum spasi, huruf-huruf sebelum spasi diganti dan sisanya jika string cocok. Kami kemudian gunakan !untuk memotong.

Kasus terakhir kami adalah jika kami tidak berada di sebelah spasi, dua huruf pertama harus cocok.

p([A|U],[A|Y]):-p(U,Y).

Bahasa Wolfram , 117 byte

StringReplace[RegularExpression["\\b[[:alpha:]]{2,}\\b"]:>StringDrop[StringInsert["$0",StringTake["$0",{-1}],-3],-1]]

Cobalah online!

Diterapkan ke string uji.

StringReplace[
  RegularExpression["\\b[[:alpha:]]{2,}\\b"] :> 
   StringDrop[StringInsert["$0", StringTake["$0", {-1}], -3], -1]] /@
 {"Thansk", "Youer welcoem", "This is an apple", 
  "Flippign Lettesr Aroudn", "tHe oDd chALlEneg wiht swappde lettesR"} // Column

Thanks
Youre welcome
Thsi si na appel
Flipping Letters Around
teH odD chALlEnge with swapped letteRs

R , 111 51 41 byte

Atas perkenan @Giuseppe, sebuah pendekatan regex yang menghancurkan metode lama saya keluar dari air.

cat(gsub("(.)(.)\\b",'\\2\\1',scan(,"")))

APL (Dyalog Classic) , 28 byte

1↓∊((¯2↓⊢),2↑⌽)¨' '(,⊂⍨⊣=,)⍞

⎕MLdan ⎕IOkeduanya 1,

Cobalah online!

Penjelasan

• ... (,⊂⍨⊣=,) ... Membagi (sambil menjaga perbatasan, dan menambahkan perbatasan ke awal) ...
• ... ⍞ ... input ...
• ... ' ' ... ... di ruang angkasa.
• ... ( ... )¨ ... Kemudian, untuk setiap elemen itu:
  • ... , ... Menggabungkan ...
  • ... (¯2↓⊢) ... ... setiap item kecuali dua yang terakhir ...
  • ... 2↑⌽ ... ... dengan kebalikan dari dua elemen terakhir.
• 1↓∊ ... Akhirnya, kembalikan semua kecuali elemen pertama dari hasil yang diratakan.

Funky , 34 byte

s=>s::gsub("(.)(.)( |$)","$2$1$3")

Cobalah online!

Haskell , 45 byte

-2 byte terima kasih kepada H.PWiz.

(r.g.r=<<).words
g(x:y:z)=' ':y:x:z
r=reverse

Cobalah online!

J , 20 19 11 byte

Kredit ke @Bolce Bussiere

1&A.&.>&.;:

Cobalah online!

       &.;:      on words
    &.>          on each
  A.             apply the permutation
1&               number 1, swap the last two elements

Alice , 24 byte

/0RR'.%$1\' o
\ix*o ne@/

Cobalah online!

Penjelasan

/...\' o
\.../

Ini membentuk sebuah loop di mana tubuh loop adalah potongan Ordinal linear dan kami mengeksekusi ' odalam mode Kardinal antara setiap dua iterasi loop. Yang terakhir hanya mencetak spasi.

Membuka struktur zigzag dari kode Ordinal, badan loop linear sebenarnya terlihat seperti ini:

iR*' %e10xRo.n$@

Hancurkan ini:

i     Read all input. On subsequent iterations, this will push an empty string.
R     Reverse.
*     Join. On the first iteration, this joins the input to an implicit empty string,
      which does nothing. On subsequent iterations, it will join the empty string to
      the word on top of the string, thereby getting rid of the empty string.
' %   Split around spaces. On the first iteration, this will split the input
      into individual words. On subsequent iterations, this does nothing.
e10   Push "10".
x     Use this to permute the (reversed) word on top of the stack. In
      particular, the word is rearranged with the same permutation that is
      required to sort the string "10", which means the first two letters
      get swapped (which correspond to the last two letters of the actual
      word).
R     Reverse the swapped word.
o     Print it.
.n$@  If there are no words left on the stack, terminate the program.

brainfuck , 109 100 byte

Sunting: tidak harus menangani satu kata kata

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

Cobalah online!

Mencetak spasi tambahan

Bagaimana itu bekerja

,[>++++[-<-------->],] Puts input on the tape and subtracts 32 from each character
                       This separates each word

>+[- Start the loop
   <[>++++[<++++++++>-]<[->>+<<]<] Add 32 to each letter of the word
                                   Skip this on the first iteration for the last word

   <<[->>+<<]>[[-<+>]>] Swaps the last two letters of the word
   <<[>+>+>]- If there is another word to the left continue loop
              Also set up to add a space to the end of the word
 <] End loop
 >>>>>>>[.>] Print the modified string

Versi sebelumnya, 109 byte

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

Cobalah online!

QuadR , 8 byte

..\b
⌽⍵M

Cobalah online!

PHP , 119 107 byte

Sunting: terima kasih sepenuhnya kepada manusia

<?php foreach(explode(" ",trim(fgets(STDIN)))as$w)echo substr($w,0,strlen($w)-2).strrev(substr($w,-2))," ";

Cobalah online!

Haskell , 41 byte

foldr(%)" "
a%(b:' ':r)=b:a:' ':r
a%s=a:s

Cobalah online!

Output dengan spasi tambahan.

Yang berulang ' ':rterlihat boros. Tetapi a%(b:t@(' ':r))=b:a:tpanjangnya sama dan a%(b:t)|' ':_<-t=b:a:tsatu byte lebih panjang.

Haskell , 41 byte

f(a:b:t)|t<"A"=b:a:f t|1>0=a:f(b:t)
f e=e

Cobalah online!

sed , 20 17 + 1 (-r) = 18 byte

s/(.)(.)\b/\2\1/g

Cobalah online!

PHP, 65 byte

membutuhkan PHP 7.1 (atau lebih baru)

for(;$s=$argv[++$i];$s[-1]=$s[-2],$s[-2]=$c,print"$s ")$c=$s[-1];

mengambil kalimat sebagai argumen baris perintah terpisah. Jalankan dengan -nr.

bekerja pada string tunggal, 77 +1 byte :

foreach(explode(" ",$argn)as$s){$c=$s[-1];$s[-1]=$s[-2];$s[-2]=$c;echo"$s ";}

Jalankan sebagai pipa dengan -nR.

... atau coba online .

Java 8, 35 byte

s->s.replaceAll("(.)(.)\\b","$2$1")

Port of @TaylorScott Google Sheets menjawab , setelah saya bermain golf dua byte. EDIT: Saya melihat sekarang ini adalah port jawaban Neil 's Retina setelah dua byte golf saya.

Penjelasan:

Cobalah online.

s->                           // Method with String as both parameter and return-type
   s.replaceAll("(.)(.)       //  Replace any two characters,
                       \\b",  //  with a word-boundary after it (space or end of String)
                "$2$1")       //  With the two characters swapped

Google Sheets, 33 Bytes

Fungsi lembar kerja anonim yang mengambil input dari sel A1dan output ke sel panggilan

=RegExReplace(A1,"(.)(.)\b","$2$1

-2 Bytes Terima kasih kepada @KevinCruijssen untuk penggunaan (.)lebih(\w)

JavaScript (Node.js) , 38 36 32 byte

s => s.replace (/ (.) (.) (| $) / g, "$ 2 $ 1") 

s=>s.replace(/(.)(.)\b/g,"$2$1")

Cobalah online!

Pendekatan RegExp dengan hormat @Giuseppe (meskipun saya memikirkan ini secara independen), dengan asumsi kata-kata dipisahkan oleh hanya satu ruang

-2 untuk hanya mempertimbangkan 1 ruang dan menambahkan ruang tambahan

-4 Terima kasih @Shaggy

K (oK) , 23 22 byte

" "/{x@prm[!#x]1}'" "\

Cobalah online!

Contoh:

" "/{x@prm[!#x]1}'" "\"Hello World"
"Helol Wordl"

Penjelasan:

Solusi Port of FrownyFrog untuk menghemat 1 byte .

Saya akan kembali ke sini.

" "/{prm[x]1}'" "\ / the solution
              " "\ / split input on " "
    {       }'     / apply lambda to each
     prm[x]        / permute input x
           1       / and take the 2nd result
" "/               / join with " "

Solusi sebelumnya:

• " "/-2{(x_y),|x#y}'" "\ 23 byte

05AB1E , 7 byte

#vy`sðJ

Cobalah online!

-1 terima kasih kepada Magic Octopus Mm .

Mencetak satu spasi tambahan.

Jelly , 10 byte

ḲṪ,¥\€Ḋ€UK

Cobalah online!

SNOBOL4 (CSNOBOL4) , 136 119 byte

	I =INPUT
B	I SPAN(&LCASE &UCASE) . Y ARBNO(' ') =:F(O)
	Y RPOS(2) REM . Z =REVERSE(Z)
	O =O Y ' '	:(B)
O	OUTPUT =O
END

Cobalah online!

Mencetak dengan spasi tambahan. Anda tahu Anda telah melakukan sesuatu yang salah ketika sebuah bahasa adalah backronym untuk StriNg Oriented dan symBOlic Language dan kode Anda lebih panjang dari Brain-Flak :( sekarang ini sedikit lebih baik.

Line Bmengambil Idan mengganti (alphabetic characters saved as Y)(some number of spaces)dengan string kosong.

Baris berikut ekstrak 2 karakter terakhir Ysebagai Zdan menggantikan mereka sebagai Zterbalik, maka merangkai baris berikutnya O, Ydan karakter spasi tunggal.

Akhirnya, ia mencetak ketika Itidak lagi cocok dengan pola yang diperlukan sesuai B.

Perl 5 , 19 + 1 ( -p) = 20 byte

s/(\w)(\w)\b/$2$1/g

Cobalah online!