แรงบันดาลใจจากการสุ่มเพิ่มจำนวนในขณะที่ตัวอักษรลดลง

ได้รับรายชื่อของตัวอักษรผสมและจำนวนเต็ม (เช่น['a', 2, 3, 'b']) เพิ่มตัวอักษรโดยหนึ่งตำแหน่งในอักษร (ห่อที่zไปa) และลดตัวเลขโดย 1. ['b', 1, 2, 'c']สำหรับตัวอย่างข้างต้นผลผลิตที่ควรจะเป็น

• อินพุตสามารถเป็นรายการแบบผสม, สตริงแบบมีตัวคั่น, รายการสตริง ฯลฯ
• zล้อมรอบไปaด้วย แต่1ไปที่0และ0ไป-1ฯลฯ
• ข้อมูลที่ป้อนจะเป็น[a-z]จำนวนเต็มเท่านั้น คุณสามารถเลือกตัวอักษรพิมพ์ใหญ่[A-Z]ถ้าเป็นเรื่องง่ายสำหรับคุณ
• อินพุตรับประกันว่าไม่ว่างเปล่า
• ข้อมูลที่ป้อนอาจมีตัวเลขหรือตัวอักษรเท่านั้น

ตัวอย่าง:

Input
Output

['a', 2, 3, 'b']
['b', 1, 2, 'c']

['a', 'b', 'z']
['b', 'c', 'a']

[-1, 0, 257, 'x']
[-2, -1, 256, 'y']

[0, 3, 1, 20382876]
[-1, 2, 0, 20382875]

กฎและคำชี้แจง

• เข้าและส่งออกจะได้รับโดยวิธีการที่สะดวกใด ๆ
• คุณสามารถพิมพ์ผลลัพธ์ไปที่ STDOUT หรือส่งคืนเป็นผลลัพธ์ของฟังก์ชัน
• เอาต์พุตไม่จำเป็นต้องอยู่ในรูปแบบเดียวกับอินพุต (เช่นคุณสามารถรับอินพุตเป็นสตริงและเอาท์พุทเป็นรายการ)
• ยอมรับได้ทั้งโปรแกรมหรือฟังก์ชั่น
• หากเป็นไปได้คุณสามารถสมมติว่าจำนวนเต็มเข้า / ส่งออกเหมาะสมกับintช่วงดั้งเดิมของภาษา
• ช่องโหว่มาตรฐานเป็นสิ่งต้องห้าม
• นี่คือรหัส - กอล์ฟเพื่อให้ใช้กฎการเล่นกอล์ฟตามปกติทั้งหมดและรหัสที่สั้นที่สุด (เป็นไบต์) ชนะ

05AB1E , 5 ไบต์

<AAÀ‡

ลองออนไลน์!

<          # decrement the numbers
 A         # constant "abcdefghijklmnopqrstuvwxyz"
  AÀ       # same, but rotated left ("bcd...yza")
    ‡      # transliterate

Python 3 , 59 ไบต์

lambda a:[i-1if''!=i*0else chr(97+(ord(i)+8)%26)for i in a]

ลองออนไลน์!

-1 ไบต์ขอบคุณ Erik the Outgolfer

Perl 5 (-p), 17 ไบต์

y/a-z/b-za/or$_--

ลองออนไลน์!

โบนัส 19-byter:

$_>$_++?$_-=2:s/a//

TIO อันนี้มีลูกเล่นเจ๋ง ๆ แต่ก็ไม่สามารถเอาชนะคำตอบที่ตรงไปตรงมาได้

Ruby , 34 ไบต์

สำหรับแต่ละองค์ประกอบพยายามส่งคืนองค์ประกอบ -1 เงื่อนไขไม่สามารถทำได้ดังนั้นพวกเขาจึงผิดพลาดและถูกหยิบขึ้นมาโดยrescueประโยคซึ่งแทนที่จะเรียกsuccมันเพื่อส่งกลับตัวอักษรตัวต่อไป succ"roll over" on zและ return aaแม้ว่าดังนั้นเราจึงใช้อักขระตัวแรกในสตริงที่ส่งคืน

->a{a.map{|e|e-1rescue e.succ[0]}}

ลองออนไลน์!

JavaScript (Node.js) , 55 ไบต์

a=>a.map(s=>1/s?s-1:B([(B(s)[0]+8)%26+97])+'',B=Buffer)

ลองออนไลน์!

Python 3 , 182 130 118 ไบต์

-51 ไบต์ขอบคุณ @AdmBorkBork และ @Black Owl Kai, -1 ไบต์ขอบคุณ @Black Owl Kai, -12 ไบต์โดยแทนที่.append()ด้วย+=[]และแทนที่n+1ด้วย-~n

def a(x):
 b='abcdefghijklmnopqrstuvwxyz';c=[]
 for d in x:
  try:c+=[d-1]
  except:c+=[b[(-~b.find(d)%26)]]
 return c

ลองออนไลน์!

ฉันทำสิ่งนี้ในขณะที่คำถามอยู่ใน Sandbox แต่ไม่เห็นมันโพสต์จนกระทั่งตอนนี้ : P

Ungolfed

def a(x):
    b = 'abcdefghijklmnopqrstuvwxyz'
    c = []
    for d in x:
        try:
            c.append(d - 1)
        except:
            c.append(b[((b.find(d) + 1) % 26)])
    return c

คำอธิบาย

สำหรับแต่ละองค์ประกอบในรายการที่ป้อนเข้าxจะพยายามลบ 1 และเพิ่มเข้าไปในรายการที่ส่งคืนในที่สุด หากมีข้อผิดพลาดเกิดขึ้น (เพราะองค์ประกอบเป็นสตริง) ดัชนีของตัวอักษรในตัวอักษรจะถูกเพิ่ม 1 และ mod 26 จะถูกนำ mod 26 wraps ดัชนีของ 26 กลับไปที่ 0

J , 30 ไบต์

<: ::((26|>:)&.(_97+a.i.]))&.>

ลองออนไลน์!

Gema , 55 ตัวอักษร

<N>=@sub{$1;1}
z=a
<L>=@int-char{@add{@char-int{$1};1}}

ทางออกที่สกปรก การห่อจดหมายด้วยการเพิ่มตัวอักษรนั้นมีความยาวอย่างเจ็บปวดดังนั้นจึงมีกฎแยกต่างหาก

อินพุตสามารถเป็นอะไรก็ได้เพียงใช้ตัวคั่นบางตัว (คุณสามารถเว้นตัวคั่นระหว่างตัวเลขและตัวอักษรได้ด้วยราคา 1 ตัวอักษรสำหรับการเปลี่ยน<L1>คุณสามารถละเว้นตัวคั่นระหว่างตัวอักษรได้เช่นกัน)

วิ่งตัวอย่าง:

bash-5.0$ gema '<N>=@sub{$1;1};z=a;<L>=@int-char{@add{@char-int{$1};1}}' <<< "['a', 2, 3, 'b']"
['b', 1, 2, 'c']

ลองออนไลน์!

Gema, 66 ตัวอักษร

<N>=@sub{$1;1}
<L>=@cmpi{$1;z;@int-char{@add{@char-int{$1};1}};a;}

น้ำยาทำความสะอาด ครึ่งหนึ่งค่อนข้างมีประสิทธิภาพจากนั้นก็เจ็บปวดเพียงครึ่งเดียว

วิ่งตัวอย่าง:

bash-5.0$ gema '<N>=@sub{$1;1};<L>=@cmpi{$1;z;@int-char{@add{@char-int{$1};1}};a;}' <<< "['a', 2, 3, 'b']"
['b', 1, 2, 'c']

ลองออนไลน์!

R , 77 85ไบต์

ขอบคุณ @Giuseppe สำหรับไอกรน 8 ไบต์

function(l)Map(function(x)"if"(i<-match(x,L<-c(letters,"a"),0),L[i+1],x-1),l)

ลองออนไลน์!

ใช้อินพุตเป็นรายการ หลังจากการเปลี่ยนแปลงครั้งใหญ่โดย @Giuseppe สิ่งนี้ทำให้Mapการใช้ฟังก์ชั่นกับรายการ มันใช้matchเพื่อทดสอบตัวละคร ในระหว่างการทดสอบรายการตัวอักษรและดัชนีที่ขยายจะถูกบันทึกไว้สำหรับการส่งคืน

MathGolf 14 ไบต์

▄\╧¿ò'z=¿Å'a)(

ลองออนไลน์!

ใช้ตัวอักษรเป็นตัวพิมพ์เล็ก

คำอธิบาย

▄\╧              Is the element in the lowercase alphabet?
   ¿ò            If so:
     'z=           Is it equal to z?
        ¿Å         If so:
          'a         Push 'a'
            )      Else: Increment the string
             (   Else: Decrement the number

Retina , 52 50 48 58 41 37 37 ไบต์

T`zl`l
\b0
-
\d+
*
-_*
-$.0
_(_*)
$.1

-4 ไบต์ขอขอบคุณ@FryAmTheEggman (และสำหรับการกล่าวถึงฉันมีข้อบกพร่อง: 1 → -1แทนที่จะเป็น1 → 0)
+10 ไบต์เพื่อแก้ไขข้อบกพร่องด้วย1และ0.. เคสขอบที่น่ารำคาญซึ่งทำให้ฉันเมาไปซักพักนึง .. แต่ตอนนี้มันถึง 41 ไบต์แล้ว (ตอนนี้ฉันอยากรู้เกี่ยวกับ <40 bytes version @Neilและ@CowsQuack ที่กล่าวถึงในความคิดเห็น .. ขอบคุณ@Neilสำหรับเคล็ดลับของการแปลงที่0ไป-และการจัดการกับค่าลบครั้งแรก. แปลงขวากลับจากเอกจำนวนเต็ม ช่วยได้มาก)
เห็นได้ชัดว่าฉันไม่ต้องการขอบเขตที่จุดนี้ดังนั้น -4 ไบต์ .. >.>

I / O คั่นด้วยเครื่องหมายจุลภาค

ลองออนไลน์

คำอธิบาย:

แปลทั้งหมด"zabcdefghijklmnopqrstuvwxy(z)"เป็น"abcdefghijklmnopqrstuvwxyz":

T`zl`l

แทนที่0s แบบสแตนด์อโลนทั้งหมดด้วย-:

\b0
-

แปลงตัวเลขทั้งหมดเป็น unary โดยแทนที่ด้วยขีดล่าง:

\d+
*

สำหรับค่าลบทั้งหมดโดยมีเส้นศูนย์เป็นศูนย์หรือมากกว่าอยู่ข้างหลัง: รักษาเครื่องหมายลบและรับความยาวรวมของการแข่งขันนี้ (รวมถึง-), แปลงกลับเป็นจำนวนเต็ม:

-_*
-$.0

สำหรับเลขจำนวนเต็มบวก: จับคู่จำนวนเต็มบวกโดยจับคู่ค่าเส้นเดียวและตามด้วยเส้นศูนย์หรือมากกว่า จากนั้นแทนที่พวกเขาด้วยความยาวของกลุ่มการจับภาพนั้นเพื่อลบเอกนารีสายเดียวและแปลงกลับเป็นจำนวนเต็มพร้อมกัน:

_(_*)
$.1

SNOBOL4 (CSNOBOL4) , 103 ไบต์

	U =&UCASE 'A'
N	X =INPUT	:F(END)
	U X @P	:F(D)
	U POS(P) LEN(1) . OUTPUT	:(N)
D	OUTPUT =X - 1	:(N)
END

ลองออนไลน์!

PHP , 50 ไบต์

for(;''<$a=$argv[++$i];)echo$a<a?--$a:(++$a)[0],_;

ลองออนไลน์!

การทดสอบ

เอาท์พุทตัวอักษร / จำนวนเต็มคั่นด้วย _ด้วยตัวคั่นต่อท้าย

ใน PHP คุณสามารถเพิ่มตัวอักษรได้โดยตรงดังนั้นฉันจึงใช้ประโยชน์จากมัน แต่ค่าzจะถูกเพิ่มเป็นaa, เมื่อต้องการแปลงเป็นa, (++$a)[0]จะใช้ซึ่งจะแสดงเฉพาะอักขระตัวแรกของค่าที่เพิ่มขึ้นเท่านั้น

JaptP -m , 13 12ไบต์

-1 ไบต์ขอบคุณ Shaggy

;¤?UÉ:Cg8+Uc

ลองมัน

คำอธิบาย:

;o ?UÉ:Cg8+Uc
-m              // Map U through the input:
 o              // Try to create a range [1...U]
   ?            //   If that creates a range (number):
    UÉ          //     Return U-1
      :         //   Else, return:
;      C        //     alphabet (a...z)
        g       //     Index:
         8+Uc   //       8 + char-code of U

หมายเหตุ : ;เปลี่ยนCเป็นอักษรตัวพิมพ์เล็ก

Haskell, 52 51 ไบต์

map q
q"z"="a"
q x|x>"`"=succ<$>x|1<2=show$read x-1

เนื่องจาก Haskell ไม่อนุญาตให้มีรายการประเภทผสมตัวอักษรและตัวเลขจึงถูกนำมาใช้และส่งกลับเป็นสตริง

ลองออนไลน์!

ตรวจสอบทุกองค์ประกอบของรายการ: ถ้าเป็นสตริง"z"ให้ส่งคืน"a" ; ถ้าตัวอักษรตัวแรกของสตริงคือ>'`' (เช่นตัวอักษรไม่ใช่ตัวเลข) ให้ส่งคืนตัวต่อของอักขระในสตริง; มิฉะนั้นจะต้องเป็นตัวเลขดังนั้นแปลงเป็นจำนวนเต็มลบ 1 และเปลี่ยนเป็นสตริงอีกครั้ง

แก้ไข: -1 ไบต์ขอบคุณ @cole

เยลลี่ขนาด 13 ไบต์

®i‘ị®µ’e?€Øa©

ลองออนไลน์!

แก้ไขอย่างชาญฉลาดโดย Jonathan Allanโจนาธานอัลลัน

หมายเหตุ: นี่ไม่ใช่โปรแกรมเต็มส่วนท้ายของ TIO ทำให้สามารถป้อนข้อมูลโดยใช้อาร์กิวเมนต์บรรทัดคำสั่งเพื่อทดสอบฟังก์ชัน

C ++ 17 (gcc) , 120 ไบต์

#define O int operator()
struct V{O(char&c){c++-90?:c=65;}O(int&i){--i;}};int f(auto&l){for(auto&x:l)std::visit(V{},x);}

นี่fคือฟังก์ชั่นที่จำเป็น; lเป็นทั้งพารามิเตอร์อินพุตและเอาต์พุตและคาดว่าจะเป็นคอนเทนเนอร์ของวัตถุที่เข้ากันได้กับstd::variant<char, int>หรือในทางกลับกัน

ลองออนไลน์!

dzaima / APL, 21 20 ไบต์

{0::⍵-1⋄⎕l(⍳⊇1⌽⊣)⍵}¨

ลองออนไลน์!

-1 ขอบคุณ ngn

K (oK) , 27 ไบต์

{$[9+@x;`c$97+26!8+x;x-1]}'

ลองออนไลน์!

-8 ขอบคุณ ngn และ dzaima :)

Runic Enchantmentsขนาด 36 ไบต์

\$ka'~?*3({':+1\
R';$ >i::0Sqn=?/1-$

ลองออนไลน์!

กระบวนการทั่วไปคือการอ่านอินพุตเสริมด้วย 0 (การข่มขู่เพื่อสตริง) แปลงกลับไปเป็นตัวเลข (ถ่านเดียวจะกลับ -1) เปรียบเทียบกับอินพุต หากเป็นเช่นนั้นจะต้องเป็นค่าตัวเลขลบ 1 และพิมพ์ ถ้าไม่เหมือนกันมันจะต้องเป็นถ่านลบ 1 เปรียบเทียบกับ{เปรียบเทียบกับ หากน้อยกว่าให้พิมพ์หรือเปลี่ยนเป็นอื่นaและพิมพ์

ทำซ้ำจนกระทั่งโปรแกรมดำเนินการสแต็กอันเดอร์โฟล์ว

เอาต์พุตถูกคั่นด้วย;เพื่อบันทึก 1 ไบต์ (และมีส่วนท้ายหนึ่ง) อินพุตถูกคั่นด้วยช่องว่าง

Stax , 17 ไบต์

àºÇ╝'♫d▬♣ΩÜEƒ6╩╬ó

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

รู้สึกว่ามันควรจะสั้นกว่านี้ แต่ฉันไม่สามารถต้านทานโอกาสที่จะใช้คุณสมบัติ stax ใหม่จากรีลีสล่าสุด

การจัดการอินพุตทั้งหมดเป็นสตริง:

1. Regex แทนที่จำนวนตัวเลขด้วย eval(match) - 1แทนที่วิ่งของตัวเลขกับ นี่คือคุณสมบัติใหม่เนื่องจากการแทนที่บล็อก regex ไม่ใช่สตริง แต่เป็นจำนวนเต็ม
2. Regex แทนที่การทำงานของตัวอักษรด้วยการแปลเสียงรอบตัวอักษรตัวเล็ก

Python 3, 66 ไบต์

lambda X:[x-1if type(x)==int else chr(97+(ord(x)+8)%26)for x in X]

แก้ไข:

ฉันไม่เห็นวิธีแก้ปัญหาของ Jitse จนกระทั่งตอนนี้ เคล็ดลับของ if ''! = i * 0 ยอดเยี่ยมมาก!

C #, 148 ไบต์

(object[] o)=>{var l=new List<object>();foreach(var h in o){try{l.Add((int)h-1);}catch{var c=((char)h+1);if(c>122){c=97;}l.Add((char)c);}}return l;}

ลิงค์ Repl.it

Ungolfed:

var inputList = new object[] {'a', 2, 'z', 6};
var outputList = new List<object>();
foreach (var currentItem in inputList)
{
    try
    {
        outputList.Add((int)currentItem-1);
    }
    catch
    {
        var currentItemPlusOne = ((char)currentItem + 1);
        if (currentItemPlusOne > 122)
        {
            currentItemPlusOne = 97;
        }
        outputList.Add((char)currentItemPlusOne);
    }
}

ถ่าน 16 ไบต์

ＷＳ⟦⎇№βι§β⊕⌕βιＩ⊖ι

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด รับอินพุตบน STDIN แต่ละบรรทัดเป็นตัวอักษรตัวพิมพ์เล็กหรือจำนวนเต็มและเอาต์พุตแยกบรรทัดบน STDOUT คำอธิบาย:

ＷＳ

อินพุตซ้ำจาก STDIN จนกระทั่งถึงบรรทัดว่าง

⟦

ทำให้เอาต์พุตนิพจน์นี้อยู่บนบรรทัดของตัวเอง

⎇№βι

นี่คือสตริงย่อยของตัวอักษรตัวเล็กที่กำหนดไว้ล่วงหน้าหรือไม่

§β⊕⌕βι

ถ้าเป็นเช่นนั้นให้พิมพ์ตัวอักษรถัดไปที่มีการจัดทำดัชนี

Ｉ⊖ι

มิฉะนั้นลดค่าและส่งกลับเป็นสตริงสำหรับการพิมพ์โดยนัย

Zsh , 47 ไบต์

a=({a..z} a)
for i
<<<${a[$a[(i)$i]+1]:-$[--i]}

ลองออนไลน์!

a=({a..z} a)                  # append extra 'a' to the end to handle 'z' case
for i                         # for i in "$@" arguments
<<<${a[$a[(i)$i]+1]:-$[--i]}
       $a[(i)$i]              # first (i)ndex of $i in list (if not found, set to after last index)
      [         +1]           # increment
   ${a[           ]        }  # value in array at index. if lookup fails, empty string
   ${              :-$[--i]}  # if empty, decrement $i and substitute instead
<<<                           # print to stdout

C (gcc) , 93 86 ไบต์

f(int**s){for(char**p=s,*z;z=*p++;)64&*z?*z=*z-'z'?++*z:97:sprintf(z,"%d",atoi(z)-1);}

ลองออนไลน์!

อินพุตเป็นNULLอาร์เรย์'\0'-minminated ของสตริง -minminated เช่น{"a", "b", "c", "17", NULL}เช่น

-7 ไบต์ขอบคุณ @ceilingcat

Perl 6 , 31 ไบต์

*>>.&{(try $_-1)||chr ord ++$_}

ลองออนไลน์!

ไม่ประสงค์ออกนามแลมบ์ดาสิ่งที่แมองค์ประกอบไปที่รายการและความพยายามที่จะลบหนึ่งจากมันแต่ละอย่างอื่นที่เพิ่มขึ้นและการใช้ตัวอักษรตัวแรกในกรณีที่ตัดไปzaa

T-SQL 2012, 61 ไบต์

ต้องใช้อักษรตัวพิมพ์ใหญ่ในอินพุต

การใช้ตัวแปรตารางเป็นอินพุต

SELECT iif(x<'a',left(x-1,9),char((ascii(x)-64)%26+65))FROM @

ลองออนไลน์

SimpleTemplate, 80 ไบต์

นี่เป็นภาษาที่ฉันเขียนขึ้น

เนื่องจากข้อ จำกัด ในคอมไพเลอร์ฉันไม่สามารถลดได้อีก

{@eachargv}{@if_ is matches"@\d+@"}{@incby-1_}{@echol_}{@else}{@inc_}{@echol_.0}

และตอนนี้ ungolfed:

{@each argv as value}
    {@if value is matches "@\d+@"}
        {@inc by -1 value}
    {@else}
        {@inc by 1 value}
    {@/}
    {@echo value, "\n"}
{@/}

และคำอธิบาย:

• {@each argv as value}- วนargvซ้ำผ่านค่าทั้งหมดใน ( argvมีอาร์กิวเมนต์ทั้งหมดที่ส่งผ่าน)
  หากas <var>ไม่มีอยู่ระบบ_จะใช้ตัวแปรเริ่มต้น
• {@if value is matches "@\d+@"}- การตรวจสอบว่าตรงกับที่มีการแสดงออกปกติvalue"@\d+@"
• {@inc by -1 value} - เพิ่มค่าด้วย -1 (โดยพื้นฐานแล้วคือการลดลง)
• {@echo value, "\n"}และ{@echol_}-echolส่งออกค่าที่ส่งผ่านและต่อท้ายบรรทัดที่ส่วนท้าย
• {@else} - อธิบายตนเอง
• {@inc by 1 value}- เพิ่มค่า 1 หากby <value>ไม่มีหายไปจะถือว่าเป็น 1
• {@echo value.0, "\n"}และ{@echol_.0}- echolส่งออกค่าที่ส่งผ่านและต่อท้ายบรรทัดที่ส่วนท้าย นี้เป็นสิ่งจำเป็นเพราะกฎท้าทาย:
  เมื่อถูกนำมาใช้ในสตริงก็เพิ่มตัวอักษรและเมื่อมันฮิตก็ตัดไป การส่งออกอักขระตัวแรกที่ตรงกับความท้าทายด้วยราคา 7 ไบต์z wraps to a
@inczaa
  
• {@/}- ปิด{@else}ด้านบน (ตัวเลือก)
• {@/}- ปิด{@each}ด้านบน (ตัวเลือก)

คุณสามารถลองสิ่งนี้ได้ที่: http://sandbox.onlinephpfunctions.com/code/7533641a0aa1fc8bf4699a9c758690de186b052f

แต่ละอาร์กิวเมนต์ที่ส่งผ่านไปrender()จะเป็นค่าใหม่ที่พิจารณา

Perl, 64 ไบต์

foreach (@ARGV){$_=~m/[a-zA-Z]/?++$_:--$_;print substr $_,0,1;}