В чаті, ми часто швидко-TYPERS і на самому ділі не дивитися на того , з листів , перш ніж відправляти повідомлення. Оскільки ми ліниві, нам потрібна програма, яка автоматично заміняє останні два букви нашими словами, але оскільки ми не хочемо відповідати надто пізно, код повинен бути коротким.

Ваше завдання, якщо ви бажаєте прийняти це, - написати програму, яка перегортає останні дві літери кожного слова в заданому рядку (так це слово Thanskперетворюється на Thanks). Слово являє собою послідовність з двох або більше букв в англійському алфавіті , обмеженою однієї простору.

• Рядок / список символів, які ви отримуєте як вхідні дані, гарантовано містять лише алфавітні символи та пробіли (ASCII [97 - 122], [65 - 90] та 32).

• Ви можете приймати введення та надавати вихід за допомогою будь-якого стандартного методу на будь- якій мові програмування , беручи до уваги, що ці лазівки заборонено за замовчуванням.

• Вихід може мати один пробіл та / або один зворотний новий рядок.

• Вхід завжди буде містити лише слова (і відповідне пробіл) і буде складатися щонайменше з одного слова.

Це код-гольф, тому найкоротше подання (набране в байтах) на кожній мові виграє!

Тестові справи

Зауважте, що рядки оточені лапками для читабельності.

Вхід -> Вихід

"Танськ" -> "Спасибі"
"Youer welcoem" -> "Вітаємо вас"
"Це яблуко" -> "Це си на апеляцію"
"Flippign Lettesr Aroudn" -> "Перегортання букв навколо"
"З'ясувавшись з різними літерамиR" -> "з непарними chALlEnge з обміненими записами"

Або, для зручності тестового набору, ось окремі входи та відповідні їх виходи:

Танськ
Youer Welcoem
Це яблуко
Flippign Lettesr Aroudn
Він чудовий з різними літерамиR

Спасибі
Ласкаво просимо
Це си на апел
Розгортаючи букви навколо
ТЕХНІЧНІ ЧАЛИКИ з заміненими літерами

Дякуємо DJMcMayhem за назву. Спочатку це був CMC .

V , 4 5 байт

òeXp

Спробуйте в Інтернеті!

|| позначає курсор

Буфер починається з, |w|ord and more wordsа курсор знаходиться на першому символі.

Рекурсивно ò

перейти до eдругого слова

wor|d| and more words

видаліть Xсимвол зліва від курсору

wo|d| and more words

pасте його над наступним символом

wod|r| and more words

Непомітне закінчення ò, повторіть той самий процес для інших слів, поки не буде досягнуто кінця буфера

Желе , 7 байт

Ḳœ?@€2K

Монадійне посилання, що приймає та повертає списки символів

Спробуйте в Інтернеті!

Як?

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

Мозок-Флак , 122 байти

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

Спробуйте в Інтернеті!

Найгірша мова для роботи :)

Читаються Трохи більше читається версія:

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

    {
        {}
        <>

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

        (<>)
    }
    {}

    ({}<>)<>

}<>

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

{

    ({}<>)
    <>
}<>

Haskell , 40 байт

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

Спробуйте в Інтернеті! Приклад використання: (f=<<).words $ "abc xyz"врожайність "acb xzy ".

Сітківка , 13 байт

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

Спробуйте в Інтернеті! Посилання включає тестові випадки.

Python 3 , 50 байт

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

Спробуйте в Інтернеті!

Ця відповідь зловживає поведінкою друку Python 3: друкується декілька аргументів з одним пробілом між ними. Звичайно, ми не можемо просто навести кілька аргументів, тому що ми не знаємо, скільки слів буде у введенні. Тому ми використовуємо оператор splat . В основному

print(*[a,b,c])

точно те саме, що і

print(a,b,c)

Зловживання, що робить повну програму, виявляється коротшою, ніж функція / лямбда, де нам доведеться використовувати ' '.joinчи щось подібне.

Matlab (R2016b), 51 50 байт

Збережено 49 50 (!) Байтів завдяки @Giuseppe.

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

І моя попередня відповідь:

Matlab (R2016b), 100 байт

(Тільки для задоволення: P)

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

Пояснення:

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 байт

Дякуємо @Dennis за збереження  чотирьох  восьми байтів!

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

Спробуйте в Інтернеті!

Пролог (SWI) , 60 байт

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

Спробуйте в Інтернеті!

Пояснення

Спочатку визначимо базовий випадок:

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

Це означає, що останні два букви завжди будуть замінені.

Тоді ми визначаємо, що станеться, якщо ми знаходимося поруч із пробілом:

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

Два рядки збігаються, якщо прямо перед пробілом, букви перед пробілом поміняються, а решта - якщо рядки збігаються. Потім використовуємо !для нарізки.

Наш останній випадок - якщо ми не поруч із пробілом, перші два букви повинні відповідати.

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

Мова Вольфрам , 117 байт

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

Спробуйте в Інтернеті!

Застосовується до тестових рядків.

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 байт

Люб’язно надано @Giuseppe, підхід, що піддається регулярному вираженню, який виводить мій старий метод з води.

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

APL (Dyalog Classic) , 28 байт

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

⎕MLі ⎕IOобидва 1,

Спробуйте в Інтернеті!

Пояснення

• ... (,⊂⍨⊣=,) ... Розкол (зберігаючи межі та додаючи кордон до початку) ...
• ... ⍞ ... вхід ...
• ... ' ' ... ... на пробіли.
• ... ( ... )¨ ... Потім до кожного елемента цього:
  • ... , ... Об'єднайте ...
  • ... (¯2↓⊢) ... ... кожен предмет, крім двох останніх ...
  • ... 2↑⌽ ... ... з реверсом двох останніх елементів.
• 1↓∊ ... Нарешті, поверніть усі, крім першого елемента, вирівняного результату.

Фанки , 34 байти

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

Спробуйте в Інтернеті!

Haskell , 45 байт

-2 байти завдяки H.PWiz.

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

Спробуйте в Інтернеті!

J , 20 19 11 байт

Кредит на @Bolce Bussiere

1&A.&.>&.;:

Спробуйте в Інтернеті!

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

Аліса , 24 байти

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

Спробуйте в Інтернеті!

Пояснення

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

Це утворює цикл, де тіло циклу є лінійним ординарним фрагментом, і ми виконуємо ' oв режимі Кардинала між кожними двома ітераціями циклу. Останній просто друкує пробіл.

Розгортаючи зигзагоподібну структуру ординального коду, тіло лінійної петлі насправді виглядає так:

iR*' %e10xRo.n$@

Порушення цього:

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.

мозковий ебать , 109 100 байт

Редагувати: не потрібно обробляти слова з однієї літери

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

Спробуйте в Інтернеті!

Друкує пробіл

Як це працює

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

Попередня версія, 109 байт

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

Спробуйте в Інтернеті!

QuadR , 8 байт

..\b
⌽⍵M

Спробуйте в Інтернеті!

PHP , 119 107 байт

Редагувати: завдяки абсолютнолюдському

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

Спробуйте в Інтернеті!

Haskell , 41 байт

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

Спробуйте в Інтернеті!

Виходи із заднім простором.

Повторне ' ':rвиглядає марно. Але a%(b:t@(' ':r))=b:a:tоднакової довжини і a%(b:t)|' ':_<-t=b:a:tна один байт довше.

Haskell , 41 байт

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

Спробуйте в Інтернеті!

sed , 20 17 + 1 (-r) = 18 байт

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

Спробуйте в Інтернеті!

PHP, 65 байт

вимагає PHP 7.1 (або пізнішої версії)

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

приймає речення як окремі аргументи командного рядка. Бігайте з -nr.

працює над одним рядком, 77 + 1 байт :

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

Запустити як труба -nR.

... або спробуйте їх в Інтернеті .

Java 8, 35 байт

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

Порт @TaylorScott відповідь Google Sheets , після того як я пограв у два байти. EDIT: Я бачу , що тепер порт Ніл Retina відповіді «s після двох моїх golfed байт.

Пояснення:

Спробуйте в Інтернеті.

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 Таблиці, 33 байти

Функція анонімного робочого аркуша, яка приймає вхід з комірки A1та виводить в клітинку, що викликає

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

-2 байти Завдяки @KevinCruijssen за використання (.)над(\w)

JavaScript (Node.js) , 38 36 32 байт

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

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

Спробуйте в Інтернеті!

RegExp підходив люб’язно @Giuseppe (хоча я думав про це самостійно), якщо вважати слова розділеними лише одним пробілом

-2 лише зважаючи на 1 простір та додайте пробіл

-4 Дякую @Shaggy

K (oK) , 23 22 байт

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

Спробуйте в Інтернеті!

Приклад:

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

Пояснення:

Порт FrownyFrog зберегти 1 байт .

Я повернусь до цього.

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

Попереднє рішення:

• " "/-2{(x_y),|x#y}'" "\ 23 байти

05AB1E , 7 байт

#vy`sðJ

Спробуйте в Інтернеті!

-1 завдяки магічній урній восьминога .

Друкує один пробіл.

Желе , 10 байт

ḲṪ,¥\€Ḋ€UK

Спробуйте в Інтернеті!

SNOBOL4 (CSNOBOL4) , 136 119 байт

	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

Спробуйте в Інтернеті!

Друкує з пробілом. Ви знаєте, що ви зробили щось не так, коли мова є заднім словом для StriNg Oriented та symBOlic Language, і ваш код довший, ніж Brain-Flak :( тепер це трохи краще.

Рядок Bприймає Iта замінює (alphabetic characters saved as Y)(some number of spaces)порожній рядок.

Наступний рядок витягує останні 2 символів , Yяк Zі замінює їх в Zзворотному, а в наступному рядку зчіплюються O, Yі один символ пробілу.

Нарешті, він друкує, коли Iбільше не відповідає потрібному шаблону в рядку B.

Perl 5 , 19 + 1 ( -p) = 20 байт

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

Спробуйте в Інтернеті!