ฉันรัก Cypher ง่าย ๆ มันสนุกมากที่ได้อ่านคำที่มนุษย์อ่านไม่ได้และเติมเต็มช่องว่าง ...

Ot wes thi bist uf tomis, ot wes thi wurst uf tomis, 
ot wes thi egi uf wosdum, ot wes thi egi uf fuuloshniss, 
ot wes thi ipuch uf biloif, ot wes thi ipuch uf oncridaloty, 
ot wes thi siesun uf loght, ot wes thi siesun uf derkniss, 
ot wes thi sprong uf hupi, ot wes thi wontir uf dispeor, 
wi hed ivirythong bifuri as, wi hed nuthong bifuri as, 
wi wiri ell guong dorict tu hievin, wi wiri ell guong dorict thi uthir wey – 
on shurt, thi piroud wes su fer loki thi prisint piroud, 
thet sumi uf ots nuosoist eathurotois onsostid un ots biong riciovid, 
fur guud ur fur ivol, on thi sapirletovi digrii uf cumperosun unly.

กฎนั้นง่ายมาก:

• ยอมรับข้อความบางข้อความเป็นอินพุต (ตัวอักษร ascii ตัวอักษรตัวพิมพ์ใหญ่ / เล็กและเครื่องหมายวรรคตอน)
• สำหรับเสียงสระแต่ละอันให้หมุนไปที่เสียงสระถัดไปหรือกลับไปที่จุดเริ่มต้น
  • a => e
  • e => i
  • i => o
  • o => คุณ
  • u => a
• เสียงสระตัวใหญ่เป็นตัวพิมพ์ใหญ่
• เอาท์พุทข้อความหลังจากการแปลงเหล่านี้
• ไม่จำเป็นต้องสนับสนุนสำเนียง
• ตัวละครอื่น ๆ ทั้งหมดควรจะไม่เปลี่ยนแปลง
• ลองทำในจำนวนไบต์ที่น้อยที่สุด
• ภาษาอะไรก็ได้ที่คุณชอบ

กรณีทดสอบ

It was the best of times, it was the worst of times,
it was the age of wisdom, it was the age of foolishness,
it was the epoch of belief, it was the epoch of incredulity,
it was the season of light, it was the season of darkness,
it was the spring of hope, it was the winter of despair,
we had everything before us, we had nothing before us,
we were all going direct to heaven, we were all going direct the other way –
in short, the period was so far like the present period,
that some of its noisiest authorities insisted on its being received,
for good or for evil, in the superlative degree of comparison only.

ออก:

Ot wes thi bist uf tomis, ot wes thi wurst uf tomis, 
ot wes thi egi uf wosdum, ot wes thi egi uf fuuloshniss, 
ot wes thi ipuch uf biloif, ot wes thi ipuch uf oncridaloty, 
ot wes thi siesun uf loght, ot wes thi siesun uf derkniss, 
ot wes thi sprong uf hupi, ot wes thi wontir uf dispeor, 
wi hed ivirythong bifuri as, wi hed nuthong bifuri as, 
wi wiri ell guong dorict tu hievin, wi wiri ell guong dorict thi uthir wey – 
on shurt, thi piroud wes su fer loki thi prisint piroud, 
thet sumi uf ots nuosoist eathurotois onsostid un ots biong riciovid, 
fur guud ur fur ivol, on thi sapirletovi digrii uf cumperosun unly.

ใน:

The quick brown fox jumps over the lazy dog.

ออก:

Thi qaock bruwn fux jamps uvir thi lezy dug.

ใน:

Home is where the heart is.

ออก:

Humi os whiri thi hiert os.

ใน:

Boaty McBoatface

ออก:

Buety McBuetfeci

ใน:

AEIOUaeiou

ออก:

EIOUAeioua

ใน:

Programming Puzzles And Code Golf

ออก:

Prugremmong Pazzlis End Cudi Gulf

Stax , 7 ไบต์

öΦΣòC└∞

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

ลองออนไลน์!

คำอธิบาย (แยกออก)

Vv:tVV:t
Vv:t           #Push aeiou and ring translate it to input
    VV:t       #Push AEIOU and ring translate it to input

อาจจะสามารถประหยัดได้มากขึ้นก็จะพยายามต่อไป

MS-SQL, 51 ไบต์

ใช้งานได้กับ SQL 2017 หรือสูงกว่า:

SELECT TRANSLATE(v,'AEIOUaeiou','EIOUAeioua')FROM t

ฟังก์ชั่นใหม่นี้จะTRANSLATEทำการแทนที่ตัวละครแต่ละตัวดังนั้นจึงเหมาะอย่างยิ่งสำหรับความท้าทายนี้

การป้อนข้อมูลผ่านทางตารางที่มีอยู่ก่อนทีกับคอลัมน์ varchar วี , ต่อกฎ IO ของเรา

ในกรณีนี้ตารางจะต้องสร้างขึ้นโดยใช้การเปรียบเทียบขนาดตัวพิมพ์เล็ก -ใหญ่โดยรันบนเซิร์ฟเวอร์ที่คำนึงCOLLATEถึงขนาดตัวพิมพ์ใหญ่หรือโดยใช้คำสำคัญ (ไม่นับรวมกับจำนวนอักขระ):

CREATE TABLE t(v varchar(max) COLLATE Latin1_General_CS_AS)

แก้ไข : SSMS จะตัดใบเสนอราคาดังกล่าวข้างต้นมีความยาวเมื่อกลับผลใน "ผลกับข้อความ" หน้าต่างนี้คือการตั้งค่าของลูกค้าไม่ได้เป็นปัญหาในโปรแกรมของฉัน

ในการแก้ไขให้ไปที่Tools > Options > Query Results > SQL Server > Results to Textและเพิ่ม "จำนวนอักขระสูงสุดที่ปรากฏในแต่ละคอลัมน์"

Bash + coreutils , 24

tr aeiouAEIOU eiouaEIOUA

ลองออนไลน์!

Haskell , 52 ไบต์

(a:b)!c|a/=c=b!c|1>0=b!!0
a!b=b
map("aeiouaAEIOUA"!)

ลองออนไลน์!

ลินน์บันทึกฉันไบต์ที่สองโดยชี้ให้เห็นว่าสั้นกว่า!!0head

คำอธิบาย

หากคุณไม่เคยเขียนรหัสใน Haskell สิ่งนี้อาจดูเหมือนกองการพูดปด ดังนั้นก่อนอื่นมาปลดมันแล้วทำลายมันลง:

(a:b)!c
 |   a/=c   = b!c
 |otherwise = b!!0
a!b=b
map("aeiouaAEIOUA"!)

ครั้งแรกที่เรามีฟังก์ชั่น!ซึ่งจะใช้เวลาสตริงและตัวอักษรs cจับคู่รูปแบบแรกของเรายอมรับอินพุตหากสตริงไม่ว่างเปล่า cหากสายไม่ว่างเราเปรียบเทียบตัวอักษรตัวแรกในการ ถ้าเป็นตัวอักษรตัวแรกไม่เท่ากับcที่เราโยนมันและเรียกอีกครั้งกับส่วนที่เหลือของสตริงและ! cถ้ามันเท่ากันเราจะคืนอักขระที่สองในสตริง

การจับคู่รูปแบบถัดไปของเราจะจับสตริงในกรณีอื่นทั้งหมดนั่นคือถ้าสตริงนั้นว่างเปล่า cในกรณีนี้เราก็กลับมา

ทั้งหมดในทุกฟังก์ชั่นนี้จะใช้เวลาเป็นตัวอักษรcและสตริงsและส่งกลับตัวละครหลังจากที่เกิดขึ้นครั้งแรกของในc sถ้าเราผ่านสิ่งนี้ไปด้วยaeiouaAEIOUAมันจะทำการเข้ารหัสของเราในตัวละครตัวเดียว เพื่อให้ฟังก์ชั่นทั้งหมดของเราเราต้องแมปสิ่งนี้กับสตริง

จอประสาทตา10 9 8 ไบต์

T`uo`vVA

ลองออนไลน์!

บันทึก 1 ไบต์ขอบคุณ Neil! และอีกไบต์ขอบคุณมาร์ติน!

เรติน่าเวอร์ชั่นใหม่มีคลาสสระซึ่งทำให้ผลลัพธ์สั้นลงเล็กน้อย การถอดเสียงยังใช้ประโยชน์จากคลาส "อื่น ๆ " ดังนั้นtoคลาสจึงดูเหมือน "aeiouAEIOUA" ในขณะที่fromคลาสนั้นมีลักษณะ "uaeiouAEIOUA"

นี้ไม่ได้ก่อให้เกิดปัญหาใด ๆ ตั้งแต่ที่สองuทำแผนที่เพื่อAจะไม่ได้ทำมาตั้งแต่ได้รับการแมปแล้วua

Perl 5 + -p, 24 23 ไบต์

y;AEIOUaeiou;EIOUAeioua

ลองออนไลน์

-1 ไบต์ขอบคุณ @DomHastings

Python 3, 62 ไบต์

lambda x:x.translate(str.maketrans('aeiouAEIOU','eiouaEIOUA'))

จัดทำตารางการแปล (พจนานุกรม) ด้วยวิธีการstrคงที่str.maketransของ แปลอักขระที่เกี่ยวข้องเป็นอักขระปลายทาง

C, 85 76 67 65 64 ไบต์

f(char*c){for(;*c;)putchar(1[index("AEIOUAaeioua",*c++)?:c-2]);}

ท่าเรือเควิน Cruijssen เป็น Java คำตอบ ลองออนไลน์ได้ที่นี่

ขอบคุณKevin Cruijssenสำหรับการเล่นกอล์ฟ 9 ไบต์ถึงChristophสำหรับการเล่นกอล์ฟ 11 ไบต์และถึงแมวเพดานสำหรับการเล่นกอล์ฟ 1 ไบต์

เวอร์ชันที่ไม่ถูกปรับแต่ง:

f(char* c) { // function taking a char array as parameter and implicitly returning an unused int
    for(; *c ;) // loop over the input
        putchar(1 [index("AEIOUAaeioua", * c++) ?: c-2]); // find the first pointer to the current char in the vowels string, NULL if not present; if it's not NULL, print the next vowel, otherwise just print the char
}

R , 43 ไบต์

chartr("AEIOUaeiou","EIOUAeioua",scan(,""))

ลองออนไลน์!

นี่คือทางออกของฉันห่อหุ้มcatเพื่อให้พิมพ์ออกมาได้ดีกว่า: ลองใช้ออนไลน์!

เยลลี่ 11 ไบต์

Øcs5ṙ€-Ẏ,Ʋy

ลองออนไลน์!

Python 2 , 79 68 67 ไบต์

-1 ไบต์ขอบคุณ @ArnoldPalmer

V='uaeiouAEIOUA'
print''.join((V[1:]+c)[V.find(c)]for c in input())

ลองออนไลน์!

JavaScript (ES6), 60 ไบต์

s=>s.replace(/./g,c=>(S='aeiouaAEIOUA'+c+c)[S.indexOf(c)+1])

ลองออนไลน์!

Ruby -p , 31 ไบต์

$_.tr!"AEIOUaeiou","EIOUAeioua"

ลองออนไลน์!

Pyth, 17 ไบต์

em=.rQdrB"aeiou"1

ลองที่นี่

em=.rQdrB"aeiou"1
 m                  For each string...
       rB"aeiou"1   ... in ['aeiou', 'AEIOU']...
  =.rQd             ... cyclically rotate the characters in the input.
e                   Take the last.

Japt 2.0, 25 21 ไบต์

ฉันสนุกกับการเล่นกอล์ฟกับ Shaggy

r\v@=`aeia`pu)g1+UbX

เรียกใช้ที่นี่

Java 10, 97 87 ไบต์

s->{for(var c:s){var t="AEIOUAaeioua"+c+c;System.out.print(t.charAt(t.indexOf(c)+1));}}

-10 ไบต์หลังจากที่ถูกแรงบันดาลใจจาก@Arnauldคำตอบ JavaScript 's (ของเขา 60 ไบต์รุ่น)

ลองออนไลน์

คำอธิบาย:

s->{                         // Method with character-array parameter and no return-type
  for(var c:s){              //  Loop over the input characters
    var t="AEIOUAaeioua"     //  Temp-String containing the order of vowels 
                             //  (including additional 'A' and 'a'),
          +c+c;              //  appended with two times the current character
    System.out.print(        //  Print:
      t.charAt(              //   The character in String `t` at index:
         t.indexOf(c)+1));}} //    The (first) index of the current character in `t` + 1

05AB1E , 14 13 11 ไบต์

žMDÀ‡žMuDÀ‡

ลองออนไลน์!

เรติน่า 0.8.2 , 20 ไบต์

T`_o`A\EI\OUAaei\oua

ลองออนไลน์! ลิงค์มีกรณีทดสอบ

APL + WIN, 55 ไบต์

แสดงพร้อมต์สำหรับสตริงอินพุต:

i←(10≥n←'AEIOUaeiou'⍳s)/⍳⍴s←⎕⋄s[i]←'EIOUAeioua'[n~11]⋄s

คางทูม 38 ไบต์

R T W $TR(T,"AEIOUaeiou","EIOUAeioua")

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

Programming Puzzles And Code GolfPrugremmong Pazzlis End Cudi Gulf

หากคุณไม่ต้องการเพิ่มการขึ้นบรรทัดใหม่ให้เพิ่มสองไบต์ดังนี้:

R T W !,$TR(T,"AEIOUaeiou","EIOUAeioua")

Vim + tpope / vim-abolishขนาด 30 ไบต์

:%S/{a,e,i,o,u}/{e,i,o,u,a}/g<cr>

โซลูชันสำรองขนาด 30 ไบต์เช่นกัน:

Oe,i,o,u<esc>|D:%s/{a,<C-r>"}/{<C-r>",a}/g

ตามmetaคำตอบที่เป็นกลุ่มสามารถใช้ปลั๊กอินที่ไม่มีการลงโทษแบบไบต์ นี้ไม่ได้เป็นคำตอบที่เป็นกลุ่ม แต่กลุ่ม + ยกเลิกคำตอบ

Abolish เป็นปลั๊กอินที่มีประโยชน์อย่างยิ่ง ส่วนของ READMEนี้อธิบายวิธีการทำงานของคำสั่งนี้ ( Subvertคำสั่ง) อย่างชัดเจน

CJam , 29 19 ไบต์

q"aeioua"_eu+_1m<er

ลองออนไลน์!

-10 ไบต์ขอบคุณ @Peter Taylor

คำอธิบาย:

q                       # take all input
 "aeioua"               # push vowel pairs
         _eu            # duplicate, uppercase
            +_          # concatenate, duplicate again
              1m<       # rotate left by 1
                 er     # transliterate

AutoHotkeyขนาด 24 ไบต์

AuotHotkey จะแทนที่ตัวอักษรโดยอัตโนมัติในลักษณะที่เล็กและใหญ่

a::e
e::i
i::o
o::u
u::a

PHP, 90 ไบต์

ลองออนไลน์

รหัส

function f($s){echo strtr($s,array_combine(str_split(UuAaEeIiOo),str_split(AaEeIiOoUu)));}

คำอธิบาย

function f($s){
 echo strtr(
       $s,                          #The string to operate
       array_combine(               #combining arrays
            str_split(UuAaEeIiOo),  #splitting this strings
            str_split(AaEeIiOoUu))
              # With array combine php creates an array like
              # ["U"=>"A", "a"=>"e"....and so on]
              # strtr can replace strings in a string, using an array with 
              # the values to replace and with what replace each value.
 );
}

75 ไบต์ถ้าวิ่งphp -rโดยใช้$argv

<?=strtr($argv,array_combine(str_split(UuAaEeIiOo),str_split(AaEeIiOoUu)));

J , 33 ไบต์

rplc'aeiou',&((;"0)1&|.)'AEIOU'"1

ลองออนไลน์!

str , 18 ไบต์

[aeiouaAEIOUA]#D#U

ลองออนไลน์!

คำอธิบาย

                       implicit: over each character of the input:
[aeiouaAEIOUA]#D#U
[            ]         push this string
              #D       set this to the operation domain
                #U     set the charcter to the next character in the domain

PHP, 38 ไบต์

ค่อนข้างง่ายไม่สร้างสรรค์มากใช้strtrเพื่อแทนที่เสียงสระ:

<?=strtr($argn,aeiouAEIOU,eiouaEIOUA);

ทำงานด้วยecho '<input>' | php -nF <filename>หรือลองออนไลน์

q / kdb +, 36 33 ไบต์

วิธีการแก้:

{(v,2#x)1+(v:"aeiouaAEIOUA")?x}@'

ตัวอย่าง:

q){(v,2#x)1+(v:"aeiouaAEIOUA")?x}@'"AEIOUaeiou"
"EIOUAeioua
q){(v,2#x)1+(v:"aeiouaAEIOUA")?x}@'"Programming Puzzles And Code Golf"
"Prugremmong Pazzlis End Cudi Gulf"

คำอธิบาย:

คิดออกดัชนีของสระเพิ่มหนึ่งที่จะผลักดันไปข้างหน้าและดัชนีในยังคงคิดว่าวิธีนี้สามารถปรับปรุงได้อย่างมีนัยสำคัญ ...

{(v,2#x)1+(v:"aeiouaAEIOUA")?x}@' / the solution
{                             }@' / apply lambda to each character of input
                            ?x    / look up x in...
          (                )      / do together
             "aeiouaAEIOUA"       / lookup list
           v:                     / save as v
        1+                        / add one
 (     )                          / do together
    2#x                           / take 2 copies of x
  v,                              / prepend v

โบนัส:

โซลูชันเก่าขนาด 36 ไบต์ (()) ของฉันซึ่งฉันคิดว่าค่อนข้างเจ๋ง แต่ต้องลงรายการเพื่อให้สามารถแข่งขันได้:

ssr/[;"uoiea%UOIEA%";"%uoiea%UOIEA"]

ถ่าน 35 ไบต์

ＵＴ≔AUOIEAauoieaσＦ¹¹⊞υ➙§σ⊕ι§σι▷SR⟦Ｓυ

ลองออนไลน์!

วิธีไร้เดียงสา

คำอธิบาย:

ＵＴ                                         Set trim option to on, so output won't be a rectangle
    ≔AUOIEAauoieaσ                          Assign "AUIOEAauioea" to s
                   Ｆ¹¹                      For i (ι) from 0 to 10
                       ⊞υ                   Push to u (initially empty list)
                          ➙                 Rule of:
                            §σ⊕ι            S[i + 1]
                                 §σι         to S[i]. This is so a->A gets overwriteen by a->e
                                    ▷SR⟦Ｓυ  Replace input as string using u (now a list of rules)

PHP , 76 ไบต์

$s=strtr($s,array_combine(str_split("aeiouAEIOU"),str_split("eiouaEIOUA")));

ลองดูสิ!

นี่คือสั้นที่สุดที่ฉันสามารถทำได้ใน PHP

$s = //overwrite $s variable ($s should be a defined string or input)
    strtr(  //strtr replaces key => value pairs from arrays in a string
        $s, //the string we are converting
        array_combine( //create an array with key value pairs, key should be original vowel letter and value should be it's replacement
            str_split("aeiouAEIOU") //turn vowels (lower and upper) into an array
            ,str_split("eiouaEIOUA") //turn vowel replacements into an array
        )
    );