งานของคุณคือการเขียนโปรแกรมที่จะส่งออกรายการที่สามารถอ่านได้ของทุกคำห้าตัวอักษรด้วยโครงสร้าง

พยัญชนะ - สระ - พยัญชนะ - สระ - พยัญชนะ

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

babab  
babac  
babad  
...  
zyzyw  
zyzyx  
zyzyz 

เสียงสระคือa - e - i - o - u - yส่วนอีก 20 ตัวอักษรเป็นพยัญชนะ
คำไม่จำเป็นต้องเป็นคำในพจนานุกรมที่แท้จริง
รหัสที่สั้นที่สุดชนะ

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

Mathematica, 72 65 61 ไบต์

Print@@@Tuples@{a=##/(b=#5#9#15#21#25#)&@@Alphabet[],b,a,b,a}

สำหรับการทดสอบผมขอแนะนำให้เปลี่ยนด้วยPrint@@@ ""<>#&/@Mathematica จะแสดงรูปแบบที่ถูกตัดทอนโดยแสดงคำสองสามคำแรกและสองสามคำสุดท้ายแทนที่จะใช้เวลาพิมพ์ 288,000 บรรทัดตลอดไป

คำอธิบาย

ในที่สุดฉันก็พบว่ามีประโยชน์สำหรับการแบ่งสตริง :)

ฉันรู้สึกทึ่งกับความเป็นไปได้ของการเพิ่มหรือเพิ่มจำนวนสตริงในขณะที่ แต่กรณีการใช้งานจริงนั้นค่อนข้าง จำกัด ประเด็นหลักคือสิ่งที่ชอบ"foo"+"bar"หรือ"foo"*"bar"(และดังนั้นรูปแบบสั้น ๆ"foo""bar") มีผลสมบูรณ์ใน Mathematica อย่างไรก็ตามมันไม่รู้จริง ๆ ว่าจะทำอย่างไรกับสตริงในนิพจน์ทางคณิตศาสตร์ดังนั้นสิ่งเหล่านี้จึงไม่ได้รับการประเมิน Mathematica ไม่ใช้ simplifications ทั่วไปบังคับแม้ว่า โดยเฉพาะอย่างยิ่งสตริงจะถูกจัดเรียงตามคำสั่งแบบบัญญัติ (ซึ่งค่อนข้างสับสนใน Mathematica เมื่อคุณเริ่มเรียงลำดับสตริงที่มีตัวอักษรของกรณีต่างๆตัวเลขและไม่ใช่ตัวอักษร) ซึ่งมักจะเป็นตัวหักเห แต่ไม่สำคัญที่นี่ . นอกจากนี้"abc""abc"จะทำให้ง่ายขึ้น"abc"^2(ซึ่งเป็นปัญหาเมื่อคุณมีสตริงซ้ำ แต่เราไม่มีอย่างนั้น) และสิ่งที่ชอบ"abc"/"abc"จะยกเลิกจริง ๆ (ซึ่งเราจะได้ใช้)

ดังนั้นสิ่งที่เราพยายามจะเล่นกอล์ฟที่นี่ เราต้องการรายชื่อของสระและรายการของพยัญชนะดังนั้นเราจึงสามารถป้อนมันTuplesเพื่อสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมด วิธีแรกของฉันคือการแก้ปัญหาไร้เดียงสา:

Characters@{a="bcdfghjklmnpqrstvwxz",b="aeiouy",a,b,a}

รายชื่อพยัญชนะที่ hardcoded เจ็บเล็กน้อย Mathematica มีระบบAlphabetในตัวซึ่งจะทำให้ฉันสามารถหลีกเลี่ยงได้ถ้าฉันสามารถลบเสียงสระได้อย่างถูกวิธี นี่คือสิ่งที่มันยากหาก วิธีที่ง่ายที่สุดในการลบองค์ประกอบคือComplementแต่ท้ายที่สุดจะนานขึ้นโดยใช้หนึ่งในตัวเลือกต่อไปนี้:

{a=Complement[Alphabet[],b=Characters@"aeiouy"],b,a,b,a}
{a=Complement[x=Alphabet[],b=x[[{1,5,9,15,21,25}]]],b,a,b,a}

(โปรดทราบว่าเราไม่จำเป็นต้องนำไปใช้Charactersกับทุกสิ่งอีกต่อไปเพราะAlphabet[]ให้รายการตัวอักษรไม่ใช่สตริง)

ลองทำธุรกิจเลขคณิตกันดู หากเราเป็นตัวแทนของตัวอักษรทั้งหมดเป็นผลิตภัณฑ์ของตัวอักษรแทนที่จะเป็นรายการเราสามารถลบตัวอักษรโดยการแบ่งง่าย ๆ เนื่องจากกฎการยกเลิก Complementที่จะช่วยประหยัดมากของไบต์เพราะเราจะไม่จำเป็นต้อง นอกจากนี้เป็นจริงไบต์สั้นกว่า"a""e""i""o""u""y" Characters@"aeiouy"ดังนั้นเราจึงทำเช่นนี้กับ:

a=##/(b="a""e""i""o""u""y")&@@Alphabet[]

ที่ที่เราจัดเก็บผลิตภัณฑ์พยัญชนะและสระในaและbตามลำดับ มันทำงานได้โดยการเขียนฟังก์ชั่นซึ่งจะเพิ่มการขัดแย้งทั้งหมดด้วย##และหารด้วยผลคูณของสระ ฟังก์ชันนี้ใช้กับรายการตัวอักษรซึ่งส่งผ่านแต่ละตัวอักษรเป็นอาร์กิวเมนต์แยก

จนถึงตอนนี้ดีมาก แต่ตอนนี้เรามี

{a=##/(b="a""e""i""o""u""y")&@@Alphabet[],b,a,b,a}

เป็นข้อโต้แย้งTuplesและสิ่งเหล่านั้นยังคงเป็นผลิตภัณฑ์ไม่ได้แสดงรายการ โดยปกติวิธีที่สั้นที่สุดในการแก้ไขปัญหาคือการวางList@@@ที่ด้านหน้าซึ่งทำให้ผลิตภัณฑ์กลายเป็นรายการอีกครั้ง น่าเสียดายที่การเพิ่ม 7 ไบต์เหล่านั้นทำให้นานกว่าวิธีที่ไร้เดียงสา

อย่างไรก็ตามปรากฎว่าTuplesไม่สนใจหัวของรายการภายในเลย ถ้าคุณทำ

Tuples[{f[1, 2], f[3, 4]}]

(ใช่สำหรับสิ่งที่ไม่ได้กำหนดf) คุณจะได้รับ:

{{1, 3}, {1, 4}, {2, 3}, {2, 4}}

เช่นเดียวกับถ้าคุณใช้แทนList fดังนั้นเราจึงสามารถส่งผ่านผลิตภัณฑ์เหล่านั้นไปยังTuplesและยังได้รับผลลัพธ์ที่ถูกต้อง วิธีนี้จะช่วยประหยัด 5 ไบต์บนวิธีการที่ไร้เดียงสาโดยใช้สตริงที่เข้ารหัสสองครั้ง

ตอนนี้"a""e""i""o""u""y"ก็ยังน่ารำคาญอยู่พอสมควร แต่เดี๋ยวก่อนเราสามารถบันทึกได้ไม่กี่ไบต์ที่นี่เช่นกัน! ข้อโต้แย้งของฟังก์ชั่นของเราคือตัวอักษรแต่ละตัว ดังนั้นหากเราเลือกอาร์กิวเมนต์ที่เหมาะสมเราสามารถนำกลับมาใช้ใหม่แทนที่จะใช้ตัวอักษรสตริงซึ่งสั้นกว่าสำหรับสามตัว เราต้องการให้การขัดแย้ง#(สั้น#1) #5, #9, #15, และ#21 #25หากเราหมด#เวลาแล้วเราก็ไม่จำเป็นต้องเพิ่มสิ่งใด ๆ*เพื่อเพิ่มจำนวนพวกมันเข้าด้วยกันเพราะ (regex) #\d+เป็นโทเค็นที่สมบูรณ์ซึ่งไม่สามารถต่อท้ายด้วยตัวเลขที่ไม่ใช่ตัวเลขได้ ดังนั้นเราจะจบลงด้วย#5#9#15#21#25#การประหยัดอีก 4 ไบต์

Perl, 47 ไบต์

#!perl -l
/((^|[aeiouy])[^aeiouy]){3}/&&print for a..1x5

นับ Shebang เป็นหนึ่งเดียว

ลองออนไลน์!

Python 3 - 110 ไบต์

a,b="bcdfghjklmnpqrstvwxz","aeiouy";print(*(c+d+e+f+g for c in a for d in b for e in a for f in b for g in a))

ความสนุกในการวนรอบตรงไปตรงมา :)

Ruby, 72 71 52 ไบต์

puts (?z..?z*5).grep /#{["[^aeiouy]"]*3*"[aeiouy]"}/

ขอบคุณ Value Ink สำหรับแนวคิดพื้นฐานซึ่งทำให้มีขนาดถึง 60 ไบต์

05AB1E , 18 16 ไบต์

05AB1Eใช้การเข้ารหัสCP-1252

žP3ãžO3ãâ€øJ€¨ê»

คำอธิบาย

žP3ã                # push all combinations of 3 consonants
    žO3ã            # push all combinations of 3 vowels
        â           # cartesian product
         €ø         # zip each pair of [ccc,vvv] (c=consonant,v=vowel)
           J        # join to list of strings ['cvcvcv','cvcvcv' ...]
            ۬      # remove last vowel from each
              ê     # sort and remove duplicates
              »     # join on newlines

เพื่อจุดประสงค์ในการทดสอบฉันขอแนะนำให้แทนที่žPด้วยพยัญชนะสองสามตัวและžOด้วยสระเล็กน้อย

ตัวอย่างการใช้พยัญชนะ 5 ตัวและสระ 3 ตัว

Python 2 , 120 102 94 ไบต์

from itertools import*
lambda:map(''.join,product(*(('AEIOUY','BCDFGHJKLMNPQRSTVWXZ')*3)[1:]))

ลองออนไลน์!

Pure Bash, 74

v={a,e,i,o,u,y}
c={b,c,d,f,g,h,{j..n},{p..t},v,w,x,z}
eval echo $c$v$c$v$c

การยืดรั้งตรงไปตรงมา

ลองมันออนไลน์

หากแต่ละรายการจะต้องอยู่ในสายของตัวเองแล้วเรามี:

Pure Bash, 84

v={a,e,i,o,u,y}
c={b,c,d,f,g,h,{j..n},{p..t},v,w,x,z}
eval printf '%s\\n' $c$v$c$v$c

PHP, 88 86 84 80 ไบต์

การเพิ่มสตริงสวย :)
6 ไบต์บันทึกโดย @Christoph

for($s=$v=aeiouy;++$s<zyzza;preg_match("#[^$v]([$v][^$v]){2}#",$s)&&print"$s
");

วนซ้ำสตริงทั้งหมดจากbababaถึงzyzyzและทดสอบว่าตรงกับรูปแบบหรือไม่ -nrทำงานด้วย

MATL , 21 ไบต์

11Y2'y'h2Y2X~6Myyy&Z*

ลองออนไลน์! (แต่เอาต์พุตถูกตัดทอน)

11Y2   % Push 'aeiou' (predefined literal)
'y'    % Push 'y'
h      % Concatenate: gives 'aeiouy'
2Y2    % Push 'abcdefghijklmnopqrstuvwxyz' (predefined literal)
X~     % Set symmetric difference: gives 'bcdfghjklmnpqrstvwxz'
6M     % Push 'aeiouy' again
yyy    % Duplicate the second-top element three times onto the top. The stack now
       % contains 'bcdfghjklmnpqrstvwxz', 'aeiouy', 'bcdfghjklmnpqrstvwxz',
       % 'aeiouy', 'bcdfghjklmnpqrstvwxz'
&Z*    % Cartesian product of all arrays present in the stack. Implicity display

Python ขนาด 92 ไบต์

f=lambda i=-4,s='':i*[s]or sum([f(i+1,s+c)for c in i%2*'AEIOUY'or'BCDFGHJKLMNPQRSTVWXZ'],[])

ไม่สามารถปล่อยให้itertoolsชนะ ซ้ำได้อีก 1 ไบต์ใน Python 2

W='',
for s in(['AEIOUY','BCDFGHJKLMNPQRSTVWXZ']*3)[1:]:W=[w+c for w in W for c in s]
print W

Haskell, 54 51 ไบต์

l="bcdfghjklmnpqrstvwxz":"aeiouy":l
mapM(l!!)[0..4]

mapM func listfunc (list!!i)สร้างคำทั้งหมดโดยการใช้ตัวละครที่เป็นไปได้สำหรับดัชนีฉันจากรายชื่อที่ส่งกลับโดย

แก้ไข: @xnor พบ 2 ไบต์เพื่อบันทึกและดูวิธีแก้ปัญหาของเขาฉันพบอีกอันหนึ่ง

Brachylogขนาด 18 ไบต์

@W:@Dg:2jcb:eac@w\

ลองออนไลน์!

คำอธิบาย

@W:@D                 The list ["aeiouy", "bcdfghjklmnpqrstvwxz"]
     g:2jcb           The list ["bcdfghjklmnpqrstvwxz", "aeiouy", "bcdfghjklmnpqrstvwxz", "aeiouy", "bcdfghjklmnpqrstvwxz"]
           :ea        Take one character of each string
              c       Concatenate into a single string
               @w     Write to STDOUT followed by a newline
                 \    Backtrack: try other characters of the string

JavaScript (ES6), 91 90 ไบต์

f=(s='',i=4)=>{for(c of i%2?'aeiouy':'bcdfghjklmnpqrstvwxz')i?f(s+c,i-1):console.log(s+c)}

การแก้ไข

• ETHproductions: -1 ไบต์โดยการลบกลุ่มภายนอกรอบผู้ประกอบการที่สามในforงบ

คำอธิบาย

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

ทางเลือก 89 โซลูชันไบต์สมมติว่าการเข้ารหัส ISO8859-1:

f=(s='',i=4)=>{for(c of i%2?'aeiouy':btoa`mÇ_äi骻-¿s`)i?f(s+c,i-1):console.log(s+c)}

โซลูชันทางเลือก 96 ไบต์ที่ส่งคืนเอาต์พุตทั้งหมดเป็นสตริงเดี่ยว:

f=(s='',i=4,o='')=>eval("for(c of i%2?'aeiouy':'bcdfghjklmnpqrstvwxz')o+=i?f(s+c,i-1):s+c+`\n`")

ดำเนินการด้วยความเสี่ยงของคุณเอง สำหรับการแก้ปัญหา 91 ไบต์เพียงแค่ใช้f()และสำหรับ 97 console.log(f())ไบต์ทางเลือกการใช้งาน

C, 201 199 186 184 183 169 163 ไบต์

การทำแตกต่างจากวิธีการนับพื้นฐานก่อนหน้าเล็กน้อย:

f(){for(char*c="bcdfghjklmnpqrstvwxz",*v="aeiouy",i[5]={0},*s[]={c,v,c,v,c},j=0;j<5;puts("")){for(j=5;j--;putchar(s[j][i[j]]));for(;j++<5&&!s[j][++i[j]];i[j]=0);}}

Ungolfed:

f() {
    for(char *c="bcdfghjklmnpqrstvwxz", *v="aeiouy", i[5]={0}, *s[]={c,v,c,v,c}, j=0; j<5; puts("")) {
        for (j=5; j--; putchar(s[j][i[j]])) ;
        for (; j++ < 5 && !s[j][++i[j]]; i[j]=0) ;
    }
}

และเขียนด้วยวิธีทั่วไปมากกว่า:

f() {
    char *c="bcdfghjklmnpqrstvwxz", *v="aeiouy", i[]={0,0,0,0,0}, *s[]={c,v,c,v,c}, j=0;
    while (j>=0) {
        for (j=0; j<5; j++) putchar(s[j][i[j]]); // output the word
        while (--j>=0 && !s[j][++i[j]]) i[j]=0; // increment the counters
        puts("");
    }
}

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

ขอบคุณ Cristoph!

Perl, 71 ไบต์

map{push@{1+/[aeiouy]/},$_}a..z;$"=",";say for glob"{@1}{@2}"x2 ."{@1}"

ลองออนไลน์!

คำอธิบาย

ฉันจะเพิ่มคำอธิบายเพิ่มเติมในภายหลัง

map{push@{1+/[aeiouy]/},$_}a..z;สร้างสองอาร์เรย์: @1ประกอบด้วยพยัญชนะและ@2ประกอบด้วยเสียงสระ
globเมื่อเรียกด้วยอาร์กิวเมนต์เช่น{a,b}{c,d}ส่งคืนการเรียงสับเปลี่ยนทั้งหมดขององค์ประกอบในวงเล็บปีกกา

Befunge, 95 ไบต์

::45*%\45*/:6%\6/:45*%\45*/:6%\6/1g,2g,1g,2g,1g,55+,1+:"}0":**-!#@_
bcdfghjklmnpqrstvwxz
aeiouy

ลองออนไลน์! แม้ว่าโปรดทราบว่าผลลัพธ์จะถูกตัดทอน

นี่เป็นเพียงการวนซ้ำในช่วง 0 ถึง 287999 โดยแสดงดัชนีเป็นตัวเลขผสม 20-6-20-6-20 โดยมี "ตัวเลข" ของตัวเลขที่ดึงมาจากตารางในสองบรรทัดสุดท้าย

Perl 6 , 70 ไบต์

$_=<a e i o u y>;my \c=[grep .none,"a".."z"];.say for [X~] c,$_,c,$_,c

คำอธิบายของส่วนที่น่าสนใจ:

.say for [X~] c, $_, c, $_, c

              c, $_, c, $_, c  # list of five lists
         [X ]                  # lazily generate their Cartesian product
           ~                   # and string-concatenate each result
.say for                       # iterate to print each result

รหัสก่อนหน้านั้นเพิ่งสร้างรายการของสระ ( $_) และรายการของพยัญชนะ ( c) ซึ่ง verbose อย่างน่าเศร้า

Python 2 , 120 117 bytes

ขอบคุณ @WheatWizard สำหรับเคล็ดลับแท็บ

x,y='aeiouy','bcdfghjklmnpqrstvwxz'
for a in x:
 for e in x:
	for b in y:
		for c in y:
			for d in y:print b+a+c+e+d

ลองออนไลน์!

ไม่แน่ใจว่าสามารถเล่นกอล์ฟได้มากแค่ไหน ลองตัดทอนออนไลน์ที่ 128KB แต่แสดงให้เห็นพอที่จะให้ความคิดได้ การรันแบบโลคัลด้วยรหัสการดีบักเพื่อนับจำนวนคำที่ให้รวมทั้งสิ้น 288000 ทำงานในเวลาประมาณ 45 วินาทีหากใครต้องการทดสอบ

zyzyv
zyzyw
zyzyx
zyzyz
Total word count: 288000

ไม่ตรงและไม่ใช่รุ่นแข่งขัน (พิมพ์อาร์เรย์ที่ซ้อนกันแทนรูปแบบที่ระบุ) สำหรับ 110 ไบต์:

x,y='aeiouy','bcdfghjklmnpqrstvwxz'
print[[[[c+a+d+b+e for e in y]for d in y]for c in y]for b in x]for a in x]

Perl 6, 53 Bytes

/<-[aeiouy]>**3%<[aeiouy]>/&&.say for [...] <a z>Xx 5

ใช้เวลาเล็กน้อยในการส่งออกใด ๆ ไม่มีประสิทธิภาพมาก ทำงานหรือไม่

xeger , 49 ไบต์

([bcdfghj-np-tvwxz][aeiouy]){2}[bcdfghj-np-tvwxz]

รับนิพจน์ปกติ, xeger เพียงแค่สร้างสตริงที่ตรงกันทั้งหมด เพื่อที่จะไม่ฆ่าเบราว์เซอร์มันจะหยุดทุก ๆ 1,000 ผลลัพธ์และคุณต้องคลิกเพื่อดำเนินการต่อ แต่มันจะไปถึงที่นั่นในที่สุด

นี่คือรุ่น 23- ไบต์ที่มีจุดบกพร่องในการ^แก้ไข:

([:c^y][:v:y]){2}[:c^y]

เหล่านี้เป็นตัวละครคลาส "ทุกกรณีที่ต่ำกว่าพยัญชนะ ASCII" [:c]ด้วยyการยกเว้น^yและ "ทุกกรณีที่ต่ำกว่าสระ ASCII" [:v:]กับyเพิ่ม

JavaScript (Firefox 30-57), 82 ไบต์

f=(i=5)=>i?[for(s of f(i-1))for(c of i%2?'bcdfghjklmnpqrstvwxz':'aeiouy')s+c]:['']

ส่งคืนอาร์เรย์ของสตริง เวอร์ชันที่เร็วมากสำหรับ102 101 (1 ไบต์ต้องขอบคุณ @ETHproductions) ไบต์:

_=>[for(i of c='bcdfghjklmnpqrstvwxz')for(j of v='aeiouy')for(k of c)for(l of v)for(m of c)i+j+k+l+m]

CJam , 32 31 29 28 bytes

บันทึก 2 ไบต์ขอบคุณ Martin Ender และ 1 ไบต์ขอบคุณ kaine

"aeiouy"_'{,97>^\1$1$1$N]:m*

ลองออนไลน์! (โปรดทราบว่าเอาต์พุตจะถูกตัดบน TIO)

คำอธิบาย

"aeiouy"_ e# Push the six vowels and duplicate
'{,97>    e# Push the whole alphabet
^         e# Symmetric set difference of the alphabet with the vowels, yields the consonants only
\         e# Swap top two elements
1$1$1$    e# Copy the second-from-the-top string to the top three times
          e# This results in the array being consonants-vowels-consonants-vowels-consonants
N         e# Add a newline character to the end of the list
]         e# End an array. Puts everything done so far in an array
          e# since there was no explicit start of the array.
:m*       e# Reduce the array using Cartesian products

สแต็ก, ไม่ใช่การแข่งขัน, 51 ไบต์

(consonants:@c vowels:@v c v c)multicartprod$outmap

ค่อนข้างง่าย ลองที่นี่!

Perl, 63 59 54 ไบต์

$a="aeiouy";$b="[^$a][$a]"x2;for("a"x5.."z"x5){say if/$b[^$a]/}

$a="aeiouy";$b="[^$a][$a]"x2;/$b[^$a]/&&say for"a"x5.."z"x5

$a=aeiouy;$b="[^$a][$a]"x2;/$b[^$a]/&&say for a.."z"x5

พยายาม Perl กอล์ฟสำหรับการเปลี่ยนแปลง
แก้ไข: ดูเหมือนว่าฉันยังมีอะไรอีกมากมายให้เรียนรู้ ... :)

สกาลา, 87 86 ไบต์

val a="aeiouy"
val b='a'to'z'diff a
for(c<-b;d<-a;e<-b;f<-a;g<-b)println(""+c+d+e+f+g)

R, 143 132 ไบต์

q=letters;v=c(1,5,9,15,21,25);x=list(q[-v],q[v],q[-v],q[v],q[-v]);Reduce(paste0,mapply(function(a,b)rep(a,e=b/20),x,cumprod(sapply(x,length))))

q=letters;v=c(1,5,9,15,21,25);x=list(a<-q[-v],b<-q[v],a,b,a);Reduce(paste0,mapply(function(a,b)rep(a,e=b/20),x,cumprod(lengths(x))))

นี่เป็นครั้งแรกที่ฉันเล่นกอล์ฟรหัสดังนั้นฉันยินดีรับข้อเสนอแนะเพื่อสับมันเพิ่มเติม จนถึงตอนนี้มันเป็นมาตรฐาน R สวยทั้งหมด สิ่งที่อาจเป็นไปได้ยากเพียงอย่างเดียวคือ paste0 จะทำการวนกลับไปสู่ความยาวที่ยาวที่สุด

แก้ไข: เคล็ดลับที่ได้รับมอบหมายจากที่ใช้ rturnbull แทนที่ด้วยsapply(x,length)lengths

R, 111 98 ไบต์

เพิ่มyเป็นสระและ golfed off 13 ไบต์ด้วย @Patrick B.

l=letters
v=c(1,5,9,15,21,25)
apply(expand.grid(C<-l[-v],V<-l[v],C,V,C)[,5:1],1,cat,fill=T,sep="")

เราใช้expand.gridเพื่อสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดของVและCในเมทริกซ์ซึ่งเรากำหนดจากตัวแปรที่ตั้งไว้ล่วงหน้าletters(ตัวอักษร) เราย้อนกลับชุดค่าผสม (ตามค่าเริ่มต้นสำหรับตัวแปรแรกที่หมุนเร็วที่สุด) เพื่อให้มั่นใจว่าเรียงตามตัวอักษร จากนั้นเราวนซ้ำในแต่ละแถวของเมทริกซ์พิมพ์ตัวอักษรแต่ละตัวเพื่อ stdout เราใช้fillอาร์กิวเมนต์เพื่อcatให้แน่ใจว่าแต่ละคำเริ่มต้นในบรรทัดใหม่

Clojure 101 ไบต์

(print(apply str(for[V["aeiouy"]C["bcdfghjklmnpqrstvwxz"]a C b V c C d V e C](str a b c d e "\n")))))

ไม่น่าตื่นเต้น ...

Ruby, 65 61 ไบต์

แนวทางที่แตกต่างอย่างสิ้นเชิง:

(b=[*?a..?z]-a="aeiouy".chars).product(a,b,a,b){|x|puts x*""}

สิ่งใหม่ที่ฉันเรียนรู้วันนี้: ฟังก์ชั่นArray # product

C 361 ไบต์

f(){i,j,k,l,m;v[6]={97,101,105,111,117,121};c[25];s=26;for(i=0;i<26;i++)c[i]=97+i;for(i=0;i<26;i++){for(j=0;j<6;j++)if(c[i]==v[j])c[i]+=1;}for(i=0;i<s;i++)for(j=i+1;j<s;){ if(c[i]==c[j]){for(k=j;k<s-1;++k)c[k]=c[k+1];--s;}else ++j;}for(i=0;i<s;i++)for(j=0;j<6;j++)for(k=0;k<s;k++)for(l=0;l<6;l++)for(m=0;m<s;m++)printf("%c%c%c%c%c\n",c[i],v[j],c[k],v[l],c[m]);}

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

void f()
{   
int i,j, k,l,m;
int s=26;
int v[6]={97,101,105,111,117,121};
int c[s];

for(i=0;i<s;i++)
 c[i]=97+i;
for(i=0;i<s;i++)
{     
  for(j=0;j<6;j++)
    if(c[i]==v[j])
      c[i]+=1;
     }
for(i=0;i<s;i++)
 for(j=i+1;j<s;)
 { if(c[i]==c[j])
  {
    for(k=j;k<s-1;++k)
      c[k]=c[k+1];
      --s;  
  }else
   ++j;  
  }
for(i=0;i<s;i++)
  for(j=0;j<6;j++)
       for(k=0;k<s;k++)
        for(l=0;l<6;l++)
         for(m=0;m<s;m++)       
      printf("%c%c%c%c%c\n",c[i],v[j],c[k],v[l],c[m]);
}

จะต้องมีวิธีการสั้นลงอย่างแน่นอน

คำอธิบาย

• เก็บค่าจำนวนเต็มของ a, e, i, o, u, y ในอาร์เรย์ตัวเลข
• เก็บตัวอักษรทั้งหมดในอาร์เรย์ถ้าเป็นเสียงสัมฤทธิ์แทนที่ด้วยพยัญชนะดังนั้นจึงมีค่าพยัญชนะที่ซ้ำกันในอาร์เรย์
• ลบค่าพยัญชนะที่ซ้ำกัน
• พิมพ์ชุดค่าผสมทั้งหมด cvcvc