Na czacie, jesteśmy często fast-typerów i tak naprawdę nie wyglądają w porządku z literami przed wysłaniem wiadomości. Ponieważ jesteśmy leniwi, potrzebujemy programu, który automatycznie zamienia dwie ostatnie litery w naszych słowach, ale ponieważ nie chcemy odpowiedzieć zbyt późno, kod musi być krótki.

Twoim zadaniem, jeśli chcesz je zaakceptować, jest napisanie programu, który odwraca dwie ostatnie litery każdego słowa w danym ciągu (tak więc słowo Thanskzamienia się w Thanks). Słowo to sekwencja dwóch lub więcej liter alfabetu angielskiego ograniczonej przez pojedynczego miejsca.

• Ciąg / lista znaków otrzymywanych jako dane wejściowe gwarantuje, że zawierają tylko znaki alfabetu i spacje (ASCII [97–122], [65–90] i 32).

• Możesz przyjmować dane wejściowe i dostarczać dane wyjściowe za pomocą dowolnej standardowej metody , w dowolnym języku programowania , zwracając uwagę, że te luki są domyślnie zabronione.

• Dane wyjściowe mogą mieć jedną końcową spację i / lub jedną końcową nową linię.

• Dane wejściowe zawsze będą zawierać tylko słowa (i odpowiadające im białe znaki) i będą zawierać co najmniej jedno słowo.

To jest golf golfowy, więc wygrywa najkrótsze zgłoszenie (w bajtach), w każdym języku!

Przypadki testowe

Zauważ, że ciągi są otoczone cudzysłowami dla czytelności.

Wejście -> Wyjście

„Thansk” -> „Thanks”
„Youer welcoem” -> „Youre welcome”
„This is a apple” -> „Thsi si na appel”
„Flippign Lettesr Aroudn” -> „Flipping Letters Around”
„ODD CHALLENEG Z SWAPDE LETRES” -> „TE ODD CHALLENGE Z WYMIENIONYMI LITERAMI”

Lub, dla wygody zestawu testów, tutaj osobno wejścia i odpowiadające im wyjścia:

Thansk
Witaj
To jest jabłko
Flippign Lettesr Aroudn
ODD CHALELEEG Z SWAPDE LETRES

Dzięki
Nie ma za co
To jest appel
Przerzucanie liter
CHODZI ODD CHALENGE Z WYMIENIONYMI LITERAMI

Dzięki DJMcMayhem za tytuł. To był pierwotnie CMC .

V , 4 5 bajtów

òeXp

Wypróbuj online!

|| oznacza kursor

Bufor zaczyna się od, |w|ord and more wordsa kursor znajduje się na pierwszym znaku.

Rekurencyjnie ò

przejdź do edrugiego słowa

wor|d| and more words

usuń Xznak po lewej stronie kursora

wo|d| and more words

pzatrzymaj to nad kolejną postacią

wod|r| and more words

Niejawne zakończenie ò, powtarzaj ten sam proces dla innych słów, aż do osiągnięcia końca bufora

Galaretka , 7 bajtów

Ḳœ?@€2K

Monadyczny link pobierający i zwracający listy znaków

Wypróbuj online!

W jaki sposób?

Ḳœ?@€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 bajty

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

Wypróbuj online!

Najgorszy język do pracy :)

Czytelna Nieco bardziej czytelna wersja:

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

    {
        {}
        <>

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

        (<>)
    }
    {}

    ({}<>)<>

}<>

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

{

    ({}<>)
    <>
}<>

Haskell , 40 bajtów

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

Wypróbuj online! Przykład użycia: (f=<<).words $ "abc xyz"plony "acb xzy ".

Siatkówka , 13 bajtów

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

Wypróbuj online! Link zawiera przypadki testowe.

Python 3 , 50 bajtów

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

Wypróbuj online!

Ta odpowiedź narusza zachowanie drukowania w Pythonie 3: Wiele argumentów jest drukowanych z pojedynczą spacją między nimi. Oczywiście nie możemy po prostu podać wielu argumentów, ponieważ nie wiemy, ile słów będzie na wejściu. Więc używamy operatora ikona . Gruntownie

print(*[a,b,c])

jest dokładnie taka sama jak

print(a,b,c)

Nadużycie, które powoduje, że pełny program okazuje się krótszy niż funkcja / lambda, w której musielibyśmy użyć ' '.joinlub coś podobnego.

Matlab (R2016b), 51 50 bajtów

Zaoszczędź 49 50 (!) Bajtów dzięki @Giuseppe.

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

I moja poprzednia odpowiedź:

Matlab (R2016b), 100 bajtów

(Dla zabawy: P)

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

Wyjaśnienie:

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 bajtów

Dzięki @Dennis za zapisanie  czterech  ośmiu bajtów!

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

Wypróbuj online!

Prolog (SWI) , 60 bajtów

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

Wypróbuj online!

Wyjaśnienie

Najpierw określamy przypadek podstawowy:

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

Oznacza to, że dwie ostatnie litery zawsze będą zamieniane.

Następnie określamy, co się stanie, jeśli znajdziemy się tuż obok miejsca:

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

Dwa ciągi pasują do siebie, jeśli tuż przed spacją litery są zamieniane, a reszta, jeśli pasują do siebie. Następnie używamy !do cięcia.

Naszym ostatnim przypadkiem jest to, że jeśli nie znajdujemy się obok spacji, dwie pierwsze litery muszą się zgadzać.

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

Wolfram Language , 117 bajtów

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

Wypróbuj online!

Stosowany do ciągów testowych.

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 bajtów

Dzięki uprzejmości @Giuseppe, metody wyrażenia regularnego, która wyrzuca moją starą metodę z wody.

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

APL (Dyalog Classic) , 28 bajtów

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

⎕MLi ⎕IOto zarówno 1,

Wypróbuj online!

Wyjaśnienie

• ... (,⊂⍨⊣=,) ... Podziel (zachowując granice i dodając granicę na początku) ...
• ... ⍞ ... wejście ...
• ... ' ' ... ... w kosmosie.
• ... ( ... )¨ ... Następnie do każdego elementu tego:
  • ... , ... Połącz ...
  • ... (¯2↓⊢) ... ... każdy element oprócz dwóch ostatnich ...
  • ... 2↑⌽ ... ... z odwrotnością dwóch ostatnich elementów.
• 1↓∊ ... Na koniec zwróć wszystko oprócz pierwszego elementu spłaszczonego wyniku.

Funky , 34 bajty

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

Wypróbuj online!

Haskell , 45 bajtów

-2 bajty dzięki H.PWiz.

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

Wypróbuj online!

J , 20 19 11 bajtów

Podziękowania dla @Bolce Bussiere

1&A.&.>&.;:

Wypróbuj online!

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

Alice , 24 bajty

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

Wypróbuj online!

Wyjaśnienie

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

Tworzy to pętlę, w której ciało pętli jest liniowym fragmentem porządkowym, i wykonujemy ' ow trybie kardynalnym między każdą dwiema iteracjami pętli. Ten ostatni po prostu drukuje przestrzeń.

Po rozwinięciu zygzakowatej struktury kodu porządkowego, liniowy korpus pętli wygląda tak:

iR*' %e10xRo.n$@

Podział tego:

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.

pieprzenie mózgu , 109 100 bajtów

Edycja: nie musisz obsługiwać słów z jedną literą

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

Wypróbuj online!

Drukuje spację końcową

Jak to działa

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

Poprzednia wersja, 109 bajtów

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

Wypróbuj online!

QuadR , 8 bajtów

..\b
⌽⍵M

Wypróbuj online!

PHP , 119 107 bajtów

Edycja: dzięki całkowicie ludzkiej

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

Wypróbuj online!

Haskell , 41 bajtów

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

Wypróbuj online!

Wyjścia z końcową spacją.

Powtarzające się ' ':rwygląda na marnotrawstwo. Ale a%(b:t@(' ':r))=b:a:tma tę samą długość i a%(b:t)|' ':_<-t=b:a:tjest o jeden bajt dłuższy.

Haskell , 41 bajtów

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

Wypróbuj online!

sed , 20 17 + 1 (-r) = 18 bajtów

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

Wypróbuj online!

PHP, 65 bajtów

wymaga PHP 7.1 (lub nowszego)

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

przyjmuje zdanie jako osobne argumenty wiersza poleceń. Uruchom z -nr.

praca na pojedynczym ciągu, 77 + 1 bajtów :

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

Uruchom jako potok z -nR.

... lub wypróbuj je online .

Java 8, 35 bajtów

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

Port odpowiedzi na Arkusze Google @TaylorScott , po tym jak grałem w golfa dwa bajty. EDYCJA: Widzę, że jest to teraz port odpowiedzi Retina Neila po moich dwóch golfed bajtów.

Wyjaśnienie:

Wypróbuj 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

Arkusze Google, 33 bajty

Anonimowa funkcja arkusza roboczego, która pobiera dane wejściowe z komórki A1i dane wyjściowe do komórki wywołującej

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

-2 bajty Dzięki @KevinCruijssen za korzystanie z (.)over(\w)

JavaScript (Node.js) , 38 36 32 bajtów

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

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

Wypróbuj online!

Podejście do RegExp dzięki uprzejmości @Giuseppe (chociaż myślałem o tym niezależnie), zakładając, że słowa są oddzielone tylko jedną spacją

-2 za rozważenie tylko 1 spacji i dodanie spacji końcowej

-4 Dzięki @Shaggy

K (oK) , 23 22 bajtów

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

Wypróbuj online!

Przykład:

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

Wyjaśnienie:

Rozwiązanie Port of FrownyFrog w celu zaoszczędzenia 1 bajtu .

Wrócę do tego.

" "/{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 " "

Poprzednie rozwiązanie:

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

05AB1E , 7 bajtów

#vy`sðJ

Wypróbuj online!

-1 dzięki Magicznej Ośmiornicy Urn .

Drukuje jedną spację końcową.

Jelly, 10 bytes

ḲṪ,¥\€Ḋ€UK

Try it online!

SNOBOL4 (CSNOBOL4), 136 119 bytes

	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

Try it online!

Prints with a trailing space. You know you've done something wrong when a language is a backronym for StriNg Oriented and symBOlic Language and your code is longer than Brain-Flak :( now it's slightly better.

Line B takes I and replaces (alphabetic characters saved as Y)(some number of spaces) with the empty string.

The following line extracts the last 2 characters of Y as Z and replaces them as Z reversed, then the next line concatenates O, Y, and a single space character.

Finally, it prints when I no longer matches the required pattern in line B.

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

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

Try it online!