Получив список или строку с разделителями, выведите список или строку с разделителями с первым символом каждого слова на одно слово позже.

Для этой задачи «слово» состоит только из всех печатаемых символов ASCII, кроме пробела, символа новой строки и символа табуляции.

Например, возьмем строку «Добрый день, мир!» (Разделенных пробелами):

1. String
"Good afternoon, World!"

2. Get the first characters:
"[G]ood [a]fternoon, [W]orld!"

3. Move the characters over. The character at the end gets moved to the beginning.
"[W]ood [G]fternoon, [a]orld!"

4. Final string
"Wood Gfternoon, aorld!"

Это код-гольф , поэтому выигрывает самый короткий код!

Тестовые случаи:

Input -> output (space-delimited)

"Good afternoon, World!" -> "Wood Gfternoon, aorld!"
"This is a long sentence." -> "shis Ts i aong lentence."
"Programming Puzzles and Code Golf" -> Grogramming Puzzles Pnd aode Colf"
"Input -> output" -> "onput I> -utput"
"The quick brown fox jumped over the lazy dog." -> "dhe Tuick qrown box fumped jver ohe tazy log."
"good green grass grows." -> "good green grass grows."

05AB1E , 7 6 байтов

€ćÁ2ôJ

Объяснение:

€ć      Extract head of each
  Á     Rotate to the right
    2ô  Split into pieces of length two
      J Join

Попробуйте онлайн!

Japt , 11 10 9 8 байт

Использует преимущества переноса индекса Japt и отрицательной индексации.

ËhUgEÉ g

Попробуйте онлайн

объяснение

        :Implicit input of array U (each element is an individual word).
Ë       :Map over the array.
h       :Replace the first character of the current element (word) ...
Ug      :  with the word in the array at index ...
EÉ      :    current index (E) -1's ...
g       :  first character.
        :Implicit output of array of modified words

Haskell , 43 байта

p%((a:b):r)=(p:b):a%r
_%e=e
(%)=<<head.last

Попробуйте онлайн! Использует список строк для ввода и вывода.

Запоминает первую букву предыдущего слова pи рекурсивно делает его первой буквой текущего слова при отправке новой первой буквы по цепочке. Предыдущая первая буква инициализируется как первая буква последнего слова.

Рубин, 85 77 63 байта

Уверен, это может быть намного короче.

Редактировать: Спасибо за @manatwork для сбора -> карта

a=gets.split;$><<a.zip(a.rotate -1).map{|x,y|y[0]+x[1..-1]}*' '

Желе , 6 байт

Ḣ€ṙ-;"

Попробуйте онлайн!

Спасибо Деннису за то, что он прочитал правила лучше меня, это возвращает список слов. Это не работает как полная программа.

CJam , 12 10 9 байт

Сохранено 1 байт благодаря jimmy23013

q~Sf+:()o

Принимает ввод как список слов.

Попробуйте онлайн!

объяснение

     e# Example input: ["Good" "afternoon," "World!"]
q~   e# Read and eval the input.
     e# STACK: [["Good" "afternoon," "World!"]]
Sf+  e# Append a space to each word.
     e# STACK: [["Good " "afternoon, " "World! "]]
:(   e# Remove the first character from each substring.
     e# STACK: [["ood " 'G "fternoon, " 'a "orld! " 'W]]
)o   e# Remove and print the last element of the array.
     e# STACK: [["ood " 'G "fternoon, " 'a "orld! "]]
     e# Implicitly join the remaining array with no separator and output.

V , 7 байт

Îxjp
{P

Попробуйте онлайн!

Объяснение:

Î       " On every line:
 x      "   Delete the first character
  j     "   Move down a line
   p    "   And paste a character (into column 2)
{       " Move to the beginning of the input
 P      " And paste the last thing we deleted (into column 1)

JavaScript (ES6), 46 байт

s=>s.map((k,i)=>s.slice(i-1)[0][0]+k.slice(1))

Использует тот факт, что slice(-1)возвращает последний элемент массива.

отрывок

f =

s=>s.map((k,i)=>s.slice(i-1)[0][0]+k.slice(1))

console.log(f(['Good', 'afternoon,', 'World!']));
console.log(f(['This', 'is', 'a', 'long', 'sentence.']));
console.log(f(['Programming', 'Puzzles', 'and', 'Code', 'Golf']));
console.log(f(['Input', '->', 'output']));
console.log(f(['The', 'quick', 'brown', 'fox', 'jumped', 'over', 'the', 'lazy', 'dog.']));
console.log(f(['good', 'green', 'grass', 'grows.']));

Vim, 16 , 9 байт

<C-v>GdjPGD{P

7 байтов сохранено благодаря @Wossname!

Вводит одно слово в строку, например

Hello
world
and
good
day
to
you

Я считаю, что это должно быть хорошо, так как разрешено использование входных данных в виде списка.

Попробуйте онлайн!

> <> , 44 45 байт

90.f3+0.>&i&01.>~r&l0=?;o20.
 i:" "=?^:1+ ?!^

Предполагает разделенные пробелами слова.

Исправление Аароном добавлено 1 байт

Python 2, 74 байта

Попробуйте онлайн

S=input().split()
print' '.join(b[0]+a[1:]for a,b in zip(S,S[-1:]+S[:-1]))

-5 байт, благодаря @Rod

Haskell , 50 байтов

f=zipWith(:).((:).last<*>init).map head<*>map tail

Ввод и вывод в виде списков слов.

PHP, 62 байта

$c=end($_GET);foreach($_GET as$g)echo$g|$g[0]=$c^$g^$c=$g,' ';

C #, 78 77 байтов

using System.Linq;a=>a.Select((s,i)=>a[i-->0?i:a.Count-1][0]+s.Substring(1));

Компилируется в Func<List<string>, IEnumerable<string>>полную / форматированную версию:

using System;
using System.Collections.Generic;
using System.Linq;

class P
{
    static void Main()
    {
        Func<List<string>, IEnumerable<string>> f = a =>
                a.Select((s, i) => a[i-- > 0 ? i : a.Count - 1][0] + s.Substring(1));

        Console.WriteLine(string.Join(" ", f(new List<string>() { "Good", "afternoon,", "World!" })));
        Console.WriteLine(string.Join(" ", f(new List<string>() { "This", "is", "a", "long", "sentence." })));

        Console.ReadLine();
    }
}

Брахилог , 12 байт

{hᵐ↻|bᵐ}ᶠzcᵐ

Попробуйте онлайн!

объяснение

Example input: ["Good","afternoon,","World!"]

{      }ᶠ       Find: [["W","G","a"],["ood","fternoon,","orld!"]]
 hᵐ↻              Take the head of each string, cyclically permute them
    |             (and)
     bᵐ           Get the strings without their heads
         z      Zip: [["W","ood"],["G","fternoon,"],["a","orld!"]]
          cᵐ    Map concatenate on each list: ["Wood","Gfternoon,","aorld!"]

R, 72 70 байт

function(x)paste0(substr(x,1,1)[c(y<-length(x),2:y-1)],substring(x,2))

Попробуйте онлайн

2 байта сохранены благодаря Джузеппе.

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

Python 2 + Numpy, 104 байта

from numpy import *
s=fromstring(input(),"b")
m=roll(s==32,1)
m[0]=1
s[m]=roll(s[m],1)
print s.tobytes()

APL (Dyalog) , 6 байтов

Принимает матрицу с одним словом на столбец.

¯1∘⌽@1

Попробуйте онлайн!

¯1∘⌽ повернуть на один шаг вправо

@ в

1 строка 1

Mathematica, 59 байт

""<>#&/@Thread@{RotateRight@#~StringTake~1,#~StringDrop~1}&

Попробуйте онлайн!

Принимает и возвращает список слов.

Если вы предпочитаете принимать и возвращать строки, это работает для 87 байтов:

StringRiffle[Thread@{RotateRight@#~StringTake~1,#~StringDrop~1}&@StringSplit@#," ",""]&

Сетчатка, 46 37 31 байт

(\S)(\S* +)
$2$1
(.* .)(.)
$2$1

Попробуйте онлайн

Все еще в гольфе ..

kdb +, 25 22 байта

Решение:

rotate[-1;1#'a],'1_'a:

Пример:

q)rotate[-1;1#'a],'1_'a:("The";"quick";"brown";"fox";"jumped";"over";"the";"lazy";"dog.")
"dhe"
"Tuick"
"qrown"
"box"
"fumped"
"jver"
"ohe"
"tazy"
"log."

Объяснение:

1_'a:             // (y) drop first character of each element of a
,'                // join each left with each right
rotate[-1;1#'a]   // (x) take first character of each element of a, rotate backwards 1 char

Дополнительно:

Версия, которая принимает обычную строку (37 байт):

q){" "sv rotate[-1;1#'a],'1_'a:" "vs x}"The quick brown fox jumped over the lazy dog."
"dhe Tuick qrown box fumped jver ohe tazy log."

Perl 5 , 40 байт

39 байт кода + 1 для -a

$F[-1]=~/./;$a=$&,s/./$a/ for@F;say"@F"

Попробуйте онлайн!

Сетчатка , 25 20 байт

Количество байтов предполагает кодировку ISO 8859-1.

Om$`^.((?=.*¶))?
$#1

Попробуйте онлайн!

Вход и выход разделены переводом строки. Набор тестов выполняет необходимое преобразование ввода / вывода из разделения пространства.

Mathematica, 134 байта

(w=Characters@StringSplit@#;d=Drop[w,0,1];StringRiffle[StringJoin/@Table[PrependTo[d[[i]],RotateRight[First/@w][[i]]],{i,Length@w}]])&

Pyth, 12 байт

.b+hNtY.>Q1Q

Принимает список слов и возвращает список слов.

Попытайся!

Java (OpenJDK 8) , 97 байт

for(int n=s.length,i=0,j=n-1;i<n;j%=n)System.out.print(s[j++].charAt(0)+s[i++].substring(1)+" ");

Попробуйте онлайн!

C 106 77 байт

i,a,b;f(char*o){a=*o;for(i=0;o[i++];)if(o[i]==32){b=o[++i];o[i]=a;a=b;}*o=a;}

-29 байт из скоттинета

Изменяет строку на месте.

Ungolfed:

char *f(char *o){
    char a=*o,b; // start with a as the first character of the first word
    for(int i=0;++i<strlen(o);){
        // iterate through the string with i as the index
        if(o[i]==32){ // if the current character is a space, 
                      // i.e. if a word begins after this character
            b=o[++i]; // store the beginning of the next word in b
            o[i]=a; // set the beginning of the next word to a
            a=b; // set a to what the beginning of the next work used to be
        }
    }
    *o=a; 
    // set the beginning of the first word to the old beginning of the last word
}

J , 34 байта

;@(,.~_1|.])~/@|:@(split;.2)@,&' '

Попробуйте онлайн!

Шелуха , 11 байт

Foz:ṙ_1TmΓ,

Ввод и вывод в виде списка строк, попробуйте онлайн!

_{(Заголовок просто преобразует входные данные в список слов и объединяет выходной список с пробелами.)}

объяснение

F(z:ṙ_1)TmΓ,  -- example input: ["Good" "afternoon,","World!"]
         m    -- map the following (example on "Good")
          Γ   -- | pattern match head & tail: 'G' "ood"
           ,  -- | construct tuple: ('G',"ood")
              -- : [('G',"ood"),('a',"fternoon,"),('W',"orld!")]
        T     -- unzip: ("GaW",["ood","fternoon,","orld!"])
F(     )      -- apply the function to the pair
    ṙ_1       -- | rotate first argument by 1 (to right): "WGa"
  z:          -- | zip the two by (example with 'W' and "ood")
              -- | | cons/(re)construct string: "Wood"
              -- :-: ["Wood","Gfternoon,","aorld!"]

Альтернатива, 11 байт

§oz:ṙ_1m←mt

Попробуйте онлайн!

AWK , 63 байта

{for(R=substr($NF,1,1);++j<=NF;R=r)sub(r=substr($j,1,1),R,$j)}1

Попробуйте онлайн!

Кажется, должен быть способ уменьшить избыточность, но я этого не вижу.

Примечание: ссылка TIO имеет 4 дополнительных байта для многострочного ввода.