ฉันคิดถึงวิธีใหม่ในการสร้างรหัสผ่านของฉันและแม้ว่ามันอาจจะไม่ฉลาดในระยะยาว แต่ก็ยังสามารถสร้างรหัสกอล์ฟที่สนุกได้

การสร้างชุดคำศัพท์รหัสผ่านจึงถูกสร้างขึ้น:

• เลือกที่ nตัวละครในที่ nคำ
• หากnมีขนาดใหญ่กว่าคำนั้นให้นับถอยหลังต่อไป

ตัวอย่าง:

This is a fun task!
T     s a  u      !

T คือตัวอักษรตัวแรก
คือที่สอง
เป็นครั้งแรก แต่จะกลับมาก็ยังเป็นคนที่สาม
ยูเป็นครั้งที่สอง แต่เป็นเพราะย้อนหลังนับก็ยังสี่
'!' เป็นตัวละครที่ห้าใน 'task!' และจะรวมอยู่ในรหัสผ่านสุดท้ายTsau!

กฎระเบียบ

• อินพุตจะเป็นสตริง
• แยกสตริงบนช่องว่างต้องรวมอักขระอื่นทั้งหมด
• ตัวอักษรตัวพิมพ์ใหญ่ต้องเป็นตัวพิมพ์ใหญ่เช่นเดียวกับตัวพิมพ์เล็ก
• คุณใช้nก้าวในแต่ละคำโดยที่nคือจำนวนคำที่มาก่อนบวกหนึ่งคำ
• หากnมีขนาดใหญ่กว่าคำว่าคุณจะต้องย้อนกลับผ่านคำว่าถ้าคุณเริ่มต้นคุณจะไปข้างหน้าอีกครั้งจนกว่าคุณจะก้าวnครั้ง
• อักขระตัวแรกและตัวสุดท้ายจะถูกเหยียบเพียงครั้งเดียวดังนั้น 'สนุก' ในตำแหน่งที่เจ็ดเป็นตัวอย่างไป 'funufun' และสิ้นสุดที่ n ไม่ใช่ 'funnuff' และลงท้ายด้วย f
• เอาต์พุตต้องเป็นสตริง

ตัวอย่าง:

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

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ!

Python 2 , 72 ไบต์

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

ลองออนไลน์!

05AB1E , 11 ไบต์

#vyN©Fû}®è?

ลองออนไลน์!

คำอธิบาย

#             # 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

เยลลี่ 12 ไบต์

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

ลองออนไลน์!

Java 10, 148 117 114 110 ไบต์

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 ไบต์ขอบคุณที่@SamYonnouโดยการสร้างพอร์ตของ@ user71546 's คำตอบ
-4 bytes ขอบคุณ@SamYonnouอีกครั้งการปรับอัลกอริทึมสำหรับ Java

ลองออนไลน์

คำอธิบาย:

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)

ถ่าน 16 ไบต์

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

ลองออนไลน์! การเชื่อมโยงคือการสร้างรหัสเวอร์ชัน คำอธิบาย:

  Ｓ                 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

ฉันไม่ได้ใช้พารามิเตอร์สุดท้ายของ Slice บ่อยนัก

JavaScript (Node.js) , 78 70 69 68 ไบต์

-1 ไบต์ @Arnauld

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

ลองออนไลน์!

คำอธิบาย

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

สีแดง 135 ไบต์

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]

ลองออนไลน์!

อ่านได้:

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 ไบต์

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

ลองออนไลน์!

k , 31 30 28 ไบต์

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

ลองออนไลน์!

Pyth , 12 ไบต์

s.e@+b_Ptbkc

ลองออนไลน์

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 ไบต์

¸Ëê ŪD gEÉ

ลองมัน

¸Ë+s1J w)gE

ลองมัน

คำอธิบาย

¸Ëê Ū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 ไบต์ (รุ่นสตริง), 114 ไบต์ (รุ่นพิมพ์)

หากฉันต้องส่งคืนสตริง (เวอร์ชันยาว):

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

ลองออนไลน์!

มิฉะนั้นฉันเพิ่งพิมพ์และไม่ต้องกังวลกับบัฟเฟอร์ (รุ่นสั้น):

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

ลองออนไลน์!

AWK, 79 ไบต์

ส่วนใหญ่เป็นเพราะฉันอยากรู้ที่จะเห็นวิธีแก้ปัญหาหรือทุบตีใด ๆ ที่ดีกว่า!

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

ลองออนไลน์!

C # (. NET Core) , 111 ไบต์

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

ลองออนไลน์!

Haskell, 65 62 61 ไบต์

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

ลองออนไลน์!

มันต้องการเวอร์ชั่นล่าสุดPreludeซึ่งมี<>ฟังก์ชั่น

                   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  

แก้ไข: -3 ไบต์ขอบคุณ @ user28667, -1 ไบต์ขอบคุณ @B เมธา

Stax , 9 ไบต์

éñ~╗D¡┤Gq

เรียกใช้และแก้ไขข้อบกพร่อง

คลายกล่อง ungolfed และแสดงความคิดเห็นมันมีลักษณะเช่นนี้

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

เรียกใช้อันนี้

PHP , 77 ไบต์

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

ลองออนไลน์!

• -3 ไบต์ขอบคุณ Kevin
• -10 ไบต์ขอบคุณ Titus

Powershell 208 186 170 ไบต์

$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++})}

Ungolfed:

$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++
    })
}

กรณีทดสอบด้านล่างหรือลองออนไลน์

@(
    "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 ไบต์

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

ungolfed

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

• <;._1 ' '&, แบ่งออกเป็นช่องว่าง
• (, }.@}:)&.> สำหรับแต่ละคำให้ฆ่าต้นเอล์มตัวแรกและตัวสุดท้ายแล้วต่อท้ายคำ
• #@> | i.@# ใช้เวลาที่เหลือของความยาวของแต่ละคำแบ่งออกเป็นดัชนี
• > {~"_1 รับผลลัพธ์นั้นและถอนออกจากแต่ละคำ

ลองออนไลน์!