Liste veya sınırlandırılmış bir dize verildiğinde, bir kelimenin ardından her kelimenin ilk karakteriyle bir liste veya sınırlandırılmış dize çıkar.

Bu zorluk için, bir "kelime", boşluk, yeni satır ve sekme karakteri hariç yalnızca yazdırılabilir tüm ASCII karakterlerinden oluşur.

Örneğin, "İyi günler, Dünya!" Dizgesini alın. (Boşlukla sınırlandırılmış):

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!"

Bu kod golf , yani en kısa kod kazanır!

Test durumları:

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 bayt

€ćÁ2ôJ

Açıklama:

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

Çevrimiçi deneyin!

Japt , 11 10 9 8 bayt

Japt'in endeks sarma ve negatif indekslemeden faydalanır.

ËhUgEÉ g

Çevrimiçi deneyin

açıklama

        :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 bayt

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

Çevrimiçi deneyin! Giriş ve çıkış için dizelerin bir listesini kullanır.

Önceki kelimenin ilk harfini hatırlar pve tekrarlayan bir şekilde yeni ilk harfi zincire gönderirken mevcut kelimenin ilk harfini yapar. Önceki ilk harf, son kelimenin ilk harfi olarak başlatıldı.

Ruby, 85 77 63 bayt

Bunun çok daha kısa olacağından eminim.

Düzenleme: toplamak için @ manatwork için teşekkürler -> harita

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

Jöle , 6 bayt

Ḣ€ṙ-;"

Çevrimiçi deneyin!

Kuralları benden daha iyi okuduğu için Dennis'e teşekkürler , bu kelimelerin bir listesini verir. Tam bir program olarak çalışmıyor.

CJam , 12 10 9 bayt

Jimmy23013 sayesinde 1 bayt kaydedildi

q~Sf+:()o

Sözcük listesi olarak girdi alır.

Çevrimiçi deneyin!

açıklama

     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 bayt

Îxjp
{P

Çevrimiçi deneyin!

Açıklama:

Î       " 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 bayt

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

slice(-1)Bir dizinin son elemanını döndüren gerçeğinden faydalanır .

Pasaj

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 bayt

<C-v>GdjPGD{P

@Wossname sayesinde 7 bayt kaydedildi!

Her satırda bir kelime girişi yapar, örneğin

Hello
world
and
good
day
to
you

Girişin bir liste halinde alınmasına izin verildiğinden bunun iyi olması gerektiğine inanıyorum.

Çevrimiçi deneyin!

> <> , 44 45 bayt

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

Boşlukla ayrılmış kelimeleri varsayar.

Aaron tarafından düzeltme 1 bayt eklendi

Python 2,74 bayt

Çevrimiçi deneyin

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

-5 bayt, @Rod sayesinde

Haskell , 50 bayt

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

Giriş ve çıkış kelimelerin listesi gibidir.

PHP, 62 bayt

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

C #, 78 77 bayt

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

Bir Func<List<string>, IEnumerable<string>>, Tam / Biçimli sürümüyle derlenir:

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 bayt

{hᵐ↻|bᵐ}ᶠzcᵐ

Çevrimiçi deneyin!

açıklama

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 bayt

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

Çevrimiçi deneyin

Giuseppe sayesinde 2 bayt kurtarıldı.

Giriş ve çıkış listelerdir. İlk harflerden oluşan bir alt dizini alır, sonuncuyu öne doğru çevrir ve her kelimenin geri kalanının alt dizesi ile birlikte yapıştırır. Bisiklete binme basamağı bir katil, ancak daha fazla kesmenin bir yolunu bulamıyorum.

Python 2 + Numpy, 104 bayt

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 bayt

Sütun başına bir kelime ile matris alır.

¯1∘⌽@1

Çevrimiçi deneyin!

¯1∘⌽ bir adım sağa döndür

@ en

1 satır 1

Mathematica, 59 bayt

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

Çevrimiçi deneyin!

Kelimelerin bir listesini alır ve verir.

Dizeleri alıp döndürmeyi tercih ederseniz, bu 87 bayt için çalışır:

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

Retina, 46 37 31 bayt

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

Çevrimiçi Deneyin

Hala golf oynuyorsun ..

kdb +, 25 22 bayt

Çözüm:

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

Örnek:

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."

Açıklama:

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

Ekstra:

Normal bir dize (37 bayt) alan bir sürüm:

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 bayt

39 bayt + 1 kod -a

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

Çevrimiçi deneyin!

Retina , 25 20 bayt

Bayt sayısı, ISO 8859-1 kodlamasını varsayar.

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

Çevrimiçi deneyin!

Giriş ve çıkış satır besleme ile ayrılmıştır. Test paketi, alan ayrılmasından gerekli G / Ç dönüşümünü gerçekleştirir.

Mathematica, 134 bayt

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

Pyth, 12 bayt

.b+hNtY.>Q1Q

Kelimelerin listesini alır ve kelimelerin listesini döndürür.

Dene!

Java (OpenJDK 8) , 97 bayt

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)+" ");

Çevrimiçi deneyin!

C, 106 77 bayt

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 İskoçyalı bayt

Dize yerinde değiştirir.

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 bayt

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

Çevrimiçi deneyin!

Kabuğu , 11 bayt

Foz:ṙ_1TmΓ,

Dizelerin bir listesi olarak giriş ve çıkış yapın, çevrimiçi deneyin!

_{(Başlık yalnızca girişi bir sözcük listesine dönüştürür ve çıktı listesine boşluklarla birleştirir.)}

açıklama

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!"]

Alternatif, 11 bayt

§oz:ṙ_1m←mt

Çevrimiçi deneyin!

AWK , 63 bayt

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

Çevrimiçi deneyin!

Artıklığı azaltmanın bir yolu olmalı, ama göremiyorum.

Not: TIO bağlantısında çoklu satır girişine izin vermek için 4 ekstra bayt vardır.