Saya memikirkan cara baru untuk menghasilkan kata sandi saya, dan meskipun itu mungkin tidak terlalu pintar dalam jangka panjang, itu masih bisa menjadi kode-golf yang menyenangkan.

Mengambil serangkaian kata, kata sandi dibuat sebagai berikut:

• Pilih karakter ke - n di kata ke - n
• Jika n lebih besar dari kata, lanjutkan menghitung mundur

Contoh:

This is a fun task!
T     s a  u      !

T adalah karakter pertama
s adalah yang kedua
adalah yang pertama, tetapi bolak-balik itu juga yang ketiga
adalah yang kedua tetapi karena menghitung mundur itu juga yang keempat
'!' adalah karakter kelima dalam 'tugas!' dan dengan demikian akan dimasukkan dalam kata sandi akhir,Tsau!

Aturan

• Input akan berupa string
• Memisahkan string pada spasi, semua karakter lain harus disertakan
• Huruf besar harus tetap huruf besar, sama dengan huruf kecil
• Anda mengambil langkah n di setiap kata, di mana n adalah jumlah kata yang telah datang sebelum ditambah satu
• Jika n lebih besar dari kata, Anda harus melangkah mundur menelusuri kata, jika Anda menekan awal, Anda maju lagi sampai Anda telah melangkah n kali
• Karakter pertama dan terakhir hanya dilangkah satu kali, jadi 'asyik' pada posisi ketujuh sebagai contoh berjalan 'funufun' dan berakhir di n, bukan 'funnuff' dan berakhir di f
• Output harus berupa string

Contoh:

Input              Output
Once Upon A Time   OpAe
There was a man    Taaa
Who made a task    Waak
That was neat!     Taa
This is a long string to display how the generator is supposed to work  Tsagnoyotoipto

Kode terpendek dalam byte menang!

Python 2 , 72 byte

lambda s:''.join((-~i*(w+w[-2:0:-1]))[i]for i,w in enumerate(s.split()))

Cobalah online!

05AB1E , 11 byte

#vyN©Fû}®è?

Cobalah online!

Penjelasan

#             # split input on spaces
 vy           # for each word in input
   N©F        # N times do, where N is the current iteration
      û}      # palendromize the word
        ®è    # use N to index into the resulting word
          ?   # print

Jelly , 12 byte

ḲJị"ŒBṖȯ$€$Ɗ

Cobalah online!

Java 10, 148 117 114 110 byte

s->{int i=-1,j;for(var a:s.split(" "))System.out.print(a.charAt((j=a.length()-1)>0*i++?i/j%2<1?i%j:j-i%j:0));}

-31 byte terima kasih kepada @SamYonnou dengan membuat port dari jawaban JavaScript @ user71546 .
-4 byte berkat @SamYonnou lagi, mengoptimalkan algoritma untuk Java.

Cobalah online.

Penjelasan:

s->{                            // Method with String parameter and no return-type
  int i=-1,                     // Step integer, starting at -1
      j;                        // Temp integer
  for(var a:s.split(" "))       // Loop over the parts split by spaces
    System.out.print(           // Print:
     a.charAt((j=a.length()-1)  //  Set `j` to the the length of the part minus 1
               >0               //  If the length of the part is larger than 1 (`j` > 0)
                 *i++?          //  (and increase `i` by 1 in the process with `i++`)
                i/j%2<1?        //   If `i` integer-divided by `j` is even:
                 i%j            //    Print the character at index `i` modulo-`j`
                :               //   Else:
                 j-i%j          //    Print the character at index `j` minus `i` modulo-`j`
               :                //  Else:
                0));}           //   Print the first (and only) character
                                //   (the >0 check is added to prevent divided-by-0 errors)

Arang , 16 byte

⭆⪪Ｓ §⁺ι✂ι±²¦⁰±¹κ

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan:

  Ｓ                 Input string
 ⪪                  Split on spaces
⭆                   Map over words and join
      ι ι           Current word
       ✂ ±²¦⁰±¹     Slice backwards from 2nd last character to start exclusive
     ⁺              Concatenate
    §          κ    Cyclically index on current word index
                    Implicitly print

Saya tidak sering menggunakan parameter terakhir Slice.

JavaScript (Node.js) , 78 70 69 68 byte

-1 byte @Arnauld

x=>x.split` `.map((y,i)=>y[a=i%(l=y.length-1)|0,i/l&1?l-a:a]).join``

Cobalah online!

Penjelasan

x=>
 x.split` `                    // Split the words by spaces
 .map((y,i)=>                  // For each word:
  y[                           //  Get the character at index:
                               //   A walk has cycle of length (2 * y.length - 2)
   a=i%(l=y.length-1)|0,       //   Calculate index a = i % (y.length - 1)
   i/l&1                       //   Check in which half the index i in
   ?l-a                        //   If in the second half of cycle, use y.length - 1 - a
   :a                          //   If in the first half of cycle, use a                  
  ]
 ).join``                      // Join back the letters

Merah , 135 byte

func[s][n: 0 p: copy""foreach w split s" "[append/dup r: copy""append w
reverse copy/part next w back tail w n: n + 1 append p r/(n)]p]

Cobalah online!

Dapat dibaca:

f: func[s][
    n: 0
    p: copy ""
    foreach w split s "  "[
        r: copy ""
        append/dup r append w reverse copy/part next w back tail w n: n + 1
        append p r/(n)
    ]
    p
]

Perl 5 , 76 byte

print map{$l=length;substr$_.reverse,$i++%(2*$l-2||1)*(1+1/$l),1}split" ",<>

Cobalah online!

k , 31 30 28 byte

{x{*|y#x,1_|1_x}'1+!#x}@" "\

Cobalah online!

Pyth , 12 byte

s.e@+b_Ptbkc

Cobalah online

s.e@+b_PtbkcQ   Final Q (input) implicit

           cQ   Split on spaces
 .e             Map the above with b=element, k=index
       Ptb        Remove 1st and last character
      _           Reverse
    +b            Prepend the unaltered element ('abcd' -> 'abcdcb')
   @      k       Get the kth character (0 indexed, wrapping)
s               Join on empty string, implicit output

Japt -P,, 11 byte

¸Ëê ŪD gEÉ

Cobalah

¸Ë+s1J w)gE

Cobalah

Penjelasan

¸Ëê ŪD gEÉ
¸               :Split on spaces
 Ë              :Map over each element D at index E
  ê             :  Palindromise
    Å           :  Slice off the first character
     ªD         :  Logical OR with the original element (the above will return an empty string for single character words)
        g       :  Get the character at index
         EÉ     :  E-1

¸Ë+s1J w)gE
¸               :Split on spaces
 Ë              :Map over each element D at index E
   s1J          :  Slice off the first and last characters
       w        :  Reverse
  +     )       :  Append to D
         gE     :  Get the character at index E

C (gcc) , 148 byte (versi string), 114 byte (versi cetak)

Jika saya harus mengembalikan sebuah string (versi panjang):

char c[99]={0};char*f(s,t,u,i,j,k)char*s,*t,*u;{for(u=c,i=0;t=strtok(s," ");s=0,i++)*u++=t[j=strlen(t),k=2*j-(j>1)-1,(i%k<j?i%k:k-i%k)%j];return c;}

Cobalah online!

Kalau tidak, saya hanya mencetak dan tidak khawatir tentang buffer (versi pendek):

f(s,t,i,j,k)char*s,*t;{for(i=0;t=strtok(s," ");s=0,i++)putchar(t[j=strlen(t),k=2*j-(j>1)-1,(i%k<j?i%k:k-i%k)%j]);}

Cobalah online!

AWK, 79 byte

Terutama karena saya penasaran melihat solusi awk atau bash yang lebih baik!

{for(i=1;i<=NF;i++){l=length($i);k=int(i/l)%2?l-i%l:k%l;printf substr($i,k,1)}}

Cobalah online!

C # (.NET Core) , 111 byte

s=>{int i=-1,j;return String.Concat(s.Split(' ').Select(a=>a[++i>(j=a.Length-1)?j>0?i/j%2<1?i%j:j-i%j:0:i]));};

Cobalah online!

Haskell, 65 62 61 byte

zipWith(\i->(!!i).cycle.(id<>reverse.drop 1.init))[0..].words

Cobalah online!

Ini membutuhkan versi terbaru Preludeyang memiliki <>fungsi.

                   words    -- split the input string into a list of words
zipWith(\i->     )[0..]     -- zip the elements i of [0..] and the words pairwise
                            -- with the function      
      ... <> ...            --   call the functions with a word and concatenate
                            --   the results. The functions are
        id                  --     id: do nothing
        reverse.drop 1.init --     drop last and first element and reverse
    cycle                   --   repeat infinitely
(!!i)                       -- take the ith elemnt of  

Sunting: -3 byte terima kasih kepada @ user28667, -1 byte terima kasih kepada @B. Mehta

Stax , 9 byte

éñ~╗D¡┤Gq

Jalankan dan debug itu

Dibongkar, tidak diserang, dan dikomentari, sepertinya ini.

j       split into words
{       start block for mapping
  cDrD  copy word; remove first and last character; reverse
  +     concatenate with original word
  i@    modularly (wrap-around) index using map iteration index
m       perform map

Jalankan yang ini

PHP , 77 byte

while(ord($w=$argv[++$i]))echo($w.=strrev(substr($w,1,-1)))[~-$i%strlen($w)];

Cobalah online!

• -3 byte terima kasih kepada Kevin
• -10 byte berkat Titus

Powershell 208 186 170 byte

$args|%{$i=0;-join($_.Split()|%{$l=($b=($a=$_)).Length;if($l-gt2){$b=($a|%{-join$a[($l-2)..1]})}for($j=0;$a.Length-le$i;$j++){$a+=($b,$_)[$j%2]}$a.Substring($i,1);$i++})}

Tidak Disatukan:

$args|%{
   $i=0;
    -join($_.Split()|%{
        $l=($b=($a=$_)).Length;
        if($l-gt2){
            $b=($a|%{-join$a[($l-2)..1]})
        }
        for($j=0;$a.Length-le$i;$j++){
            $a+=($b,$_)[$j%2]
        }
        $a.Substring($i,1);
        $i++
    })
}

Uji kasus di bawah ini atau coba online

@(
    "This is a fun task!",
    "Once Upon A Time",
    "There was a man",
    "Who made a task",
    "That was neat",
    "This is a long string to display how the generator is supposed to work"
)|%{$i=0;-join($_.Split()|%{$l=($b=($a=$_)).Length;if($l-gt2){$b=($a|%{-join$a[($l-2)..1]})}for($j=0;$a.Length-le$i;$j++){$a+=($b,$_)[$j%2]}$a.Substring($i,1);$i++})}

J, 43 byte

[:(>{~"_1#@>|i.@#)[:(,}.@}:)&.>[:<;._1' '&,

ungolfed

[: (> {~"_1 #@> | i.@#) [: (, }.@}:)&.> [: <;._1 ' '&,

• <;._1 ' '&, berpisah pada spasi
• (, }.@}:)&.> untuk setiap kata, bunuh elm pertama dan terakhir dan tambahkan kata
• #@> | i.@# ambil sisa dari setiap panjang kata yang dibagi ke dalam indeksnya
• > {~"_1 ambil hasil itu dan ambil dari setiap kata.

Cobalah online!