给定一个列表或定界字符串，输出一个列表或定界字符串，其中每个单词的第一个字符一个单词。

对于此挑战，“单词”仅包含所有可打印的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，并递归地将其作为当前单词的第一个字母，同时沿链发送新的第一个字母。前一个首字母被初始化为最后一个单词的首字母。

Ruby，85 77 63字节

可以肯定，这可能会更短。

编辑：感谢@manatwork的收集->地图

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

果冻，6个字节

Ḣ€ṙ-;"

在线尝试！

感谢Dennis比我更好地阅读规则，这将返回单词列表。它不能作为完整程序运行。

CJam，12 10 9字节

感谢jimmy23013，节省了1个字节

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

@Wossname节省了7个字节！

每行输入一个单词，例如

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();
    }
}

Brachylog，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))

在线尝试

感谢Giuseppe，节省了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

在线尝试！

输入和输出以换行分隔。测试套件从空间分隔执行必要的I / O转换。

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;}

来自scottinet的-29字节

就地修改字符串。

取消高尔夫：

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个额外的字节，以允许多行输入。