Zorluk basit:

sözcük oluşturmak.

Özellikler:

• Kelime belirgin olmalıdır.
  • Bu, "ünsüz ve sesli harf arasında geçiş yapma" olarak tanımlanır.
  • Bir ünsüz aşağıdaki harflerden biridir: bcdfghjklmnpqrstvwxz
  • Sesli harf aşağıdaki harflerden biridir: aeiouy
• Word rastgele oluşturulmalıdır.
• Kelimeler her ünsüz ve sesli harfleri içerebilmelidir. (Sadece bcdfünsüzler ve aeiünlüler için kullanamazsınız .)
• Word 10 harf içermelidir.
• En kısa kod (karakter sayısında) kazanır.

GolfScript, 32 karakter

['aeiouy'.123,97>^]5*{.,rand=}%+

Çevrimiçi çalıştırın .

Ruby: 56 karakter

([v=%w(a e i o u y),[*?a..?z]-v]*5).map{|a|$><<a.sample}

Örnek çıktılar:

• itopytojog
• umapujojim
• ipagodusas
• yfoqinifyw
• ebylipodiz

Python, 81

from random import*
print''.join(map(choice,["bcdfghjklmnpqrstvwxz","aeiouy"]*5))

Onları telaffuz etmede iyi şanslar.

COBOL, 255

Şu anda COBOL öğreniyorum. Bu soruyu biraz pratik olarak kullandık. Golf yapmaya çalıştı.

Önde gelen boşluk olmadan 255 ve ile 286 bayt.

Değer için, bu VS2012 için Microfocus COBOL'de çalışıyor ve başka bir yerde çalışıp çalışmadığına dair hiçbir fikrim yok.

       1 l pic 99 1 s pic x(26) value'aeiouybcdfghjklmnpqrstvwxz' 1 r
       pic 99 1 v pic 9 1 q pic 99. accept q perform test after varying
       l from 1 by 1 until l>9 compute v=function mod(l,2) compute r=1+
       function random(q*l)*5+v*15+v*5 display s(r:1)end-perform exit

APL (34)

,⍉↑(V[5?6])((⎕A~V←'AEIOUY')[5?20])

JavaScript, 74

for(a=b=[];a++-5;)b+="bcdfghjklmnpqrstvwxz"[c=new Date*a%20]+"aeiouy"[c%6]

Tüm kombinasyonları oluşturmaz, ancak tüm ünsüzlerin ve sesli harflerin ortaya çıktığını düşünüyorum.

JavaScript, 79

for(a=b=[];a--+5;)b+="bcdfghjklmnpqrstvwxz"[c=Math.random()*20^0]+"aeiouy"[c%6]

Daha fazla "rastgele" versiyonu.

Yakut: 70 66 karakter

10.times{|i|$><<["aeiouy"*4,"bcdfghjklmnpqrstvwxz"][i%2][rand 20]}

Örnek çalışma:

bash-4.1$ ruby -e '10.times{|i|$><<["aeiouy"*4,"bcdfghjklmnpqrstvwxz"][i%2][rand 20]}'
izogoreroz

bash-4.1$ ruby -e '10.times{|i|$><<["aeiouy"*4,"bcdfghjklmnpqrstvwxz"][i%2][rand 20]}'
onewijolen

bash-4.1$ ruby -e '10.times{|i|$><<["aeiouy"*4,"bcdfghjklmnpqrstvwxz"][i%2][rand 20]}'
amilyfilil

R: 105 karakter

a=c(1,5,9,15,21,25)
l=letters
s=sample
cat(apply(cbind(s(l[-a],5),s(l[a],5)),1,paste,collapse=""),sep="")

J (51)

,|:>(<"1[5?6 20){&.>'aeiouy';'bcdfghjklmnpqrstvwxz'

İşleme, 100 99 93 87

int i=10;while(i-->0)"aeiouybcdfghjklmnpqrstvwxz".charAt((int)random(i%2*6,6+i%2*i*2));

Soruyu daha yakından inceledikten sonra herhangi bir çıktı gerektirmediğini görüyorum. Bunu buna göre ayarladım.

Hedef-C, 129

main(){int i=10;while(i-->0)printf("%c",[(i%2==0)?@"aeiouy":@"bcdfghjklmnpqrstvwxz"characterAtIndex:arc4random()%(6+(i%2)*14)]);}

Daniero yardımıyla

(Ben eğilimi operatöre kullanmayı seviyorum (->)

Java AKA şimdiye kadar yaratılmış en ayrıntılı dil, 176 Doorknob, Daniero ve Peter Taylor'ın yardımıyla (teşekkürler çocuklar!)

class w{public static void main(String[]a){int i=11;while(--i>0)System.out.print((i%2==0?"aeiouy":"bcdfghjklmnpqrstvwxz").charAt(new java.util.Random().nextInt(6+(i%2)*14)));}}

Ungolfed:

    class w {

        public static void main(String[] a) {
            int i = 11;
            while (--i > 0) {
                System.out.print((i % 2 == 0 ? "aeiouy" : "bcdfghjklmnpqrstvwxz").charAt(new java.util.Random().nextInt(6 + (i % 2) * 14)));
            }
     }

}

Javascript, 85

for(r=Math.random,s="",i=5;i--;)s+="bcdfghjklmnpqrstvwxz"[20*r()|0]+"aeiouy"[6*r()|0]

Konsoldan çalıştırılırsa çıkış gösterilir. Açık görüntü alert(s), diğer JS çözümlerinden daha kısa olan 8 karakter ekleyecektir .

Teşekkürler C5H8NNaO4 ve Howard!

JavaScript, 135 122 96 86 karakter

s='';c=5;r=Math.random;while(c--)s+='bcdfghjklmnpqrstvwxz'[r()*20|0]+'aeiouy'[r()*6|0]

PHP, 100 Karakter

<?while($i<6){echo substr('bcdfghjklmnpqrstvwxz',rand(0,20),1).substr('aeiouy',rand(0,5),1);$i++;}?>

Unix araçları: 73 bayt

Ve garanti edilmeyen çalışma süresi :)

</dev/urandom grep -ao '[aeiouy][bcdfghjklmnpqrstvwxz]'|head -5|paste -sd ''

Tek sorun üretilen dize her seferinde bir "sesli harf" ile başlayacaktır.

(düzenleme: değişmiş ' 'için ''macunun args) (başka düzenleme: grep seçenekler arasından kaldırılan -P, sayesinde manatwork )

Pyth, 26 karakter

J-G"aeiouy"VT=k+kOJ=J-GJ;k

Buradaki çevrimiçi derleyicide deneyebilirsiniz.

Birisi çok benzer bir meydan okuma yayınladı ama bir çözüm yaptıktan sonra kapatıldı. Farkında değildim, ama bu soru aslında Pyth'in yaratılmasından önce. Her neyse, işte döküm:

J                             Set string J equal to:
  G                            the entire alphabet (lowercase, in order)
 - "aeiouy"                    minus the vowels
           VT                 For n in range(1, 10):
             =k                   Set string k to:
                k                  k (defaults to empty string)
               + OJ                plus a random character from J
                   =J             Set J to:
                      G            the entire alphabet
                     - J           minus J
                        ;     End of loop
                         k    print k

Döngü her çalıştırıldığında, J ünsüzlerin listesi olmaktan ünlüler listesine geçer. Bu şekilde her seferinde J'den rastgele bir harf seçebiliriz.
Döngüde J başlatmak veya döngüdeki açık atamaları kaldırmak için bir yol olabilir, ama ben de henüz başarılı olmadım.

APL 30 26

,('EIOUY'∪⎕A)[6(|,+)⍪5?20]

Açıklama, aşağıdaki geçmiş sürüme çok benzer, sadece çözümü golf için biraz yeniden sıraladı.

Not: ⎕IO 0 olarak ayarlanmıştır

('EIOUY'∪⎕A)[,6(|,(⍪+))5?20]

Açıklama:

'EIOUY'∪⎕A    puts vowels in front of all letters.
5?20            for the indexes we start choosing 5 random numbers between 0 and 19
6(|,(⍪+))        then we sum 6 and the random numbers, convert to 5x1 matrix (⍪), add a column before this one containing 6 modulo the random numbers. 
                [[[ this one can be rewritten as: (6|n) , ⍪(6+n)  for easier understanding]]]
,6(|,(⍪+))5?20  the leading comma just converts the matrix to a vector, mixing the vowel and consonants indexes.

Tryapl.org

PHP 79 bayt

<?for($c=bcdfghjklmnpqrstvwxz,$v=aeiouy;5>$i++;)echo$c[rand()%20],$v[rand()%6];

Oldukça özlü.

C: 101

main(){int x=5;while(x-->0){putchar("bcdfghjklmnpqrstvwxyz"[rand()%21]);putchar("aeiou"[rand()%5]);}}

JavaScript, 104 87

a="";for(e=10;e--;)a+=(b=e&1?"bcdfghjklmnpqrstvwxz":"aeiouy")[0|Math.random()*b.length]

bir sürü basit gereksiz şeyleri golf etti, hala copys kadar hoş değil

Oh, ve bu sadece golf sırasında karşı çıktı: "dydudelidu"

_{Şimdi bir kerede 2 karakteri kullanarak birini denedim. Görünüşe göre, copys'in ikincisi ile neredeyse aynı, bu yüzden 79'da da sayamam. a="";for(e=5;e--;)a+="bcdfghjklmnpqrstvwxz"[m=0|20*Math.random()]+"aeiouy"[m%6]}

Brachylog , 9 bayt

Ḍ;Ẉṣᵐzh₅c

Çevrimiçi deneyin!

Çıktıyı, çıktı değişkeni yoluyla bir harf listesi olarak verir.

   ṣ         Randomly shuffle
 ;  ᵐ        both
Ḍ            the consonants without y
  Ẉ          and the vowels with y,
     z       zip them into pairs,
      h₅     take the first five pairs,
             and output
        c    their concatenation.

F # , 166 karakter

open System;String.Join("",(Random(),"aeiouybcdfghjklmnpqrstvwxz")|>(fun(r,s)->[0..5]|>List.collect(fun t->[s.Substring(6+r.Next()%20,1);s.Substring(r.Next()%6,1)])))

K, 40 bayt

,/+5?/:("bcdfghjklmnpqrstvwxz";"aeiouy")

5?"abc" verilen dizeden 5 rastgele harf oluşturur.

5?/: sağdaki dizelerin her birinden 5 rastgele harf üreterek iki liste oluşturur.

+ bize ilk listeden rastgele bir karakter ve sonra ikinci listeden bir rastgele karakter içeren tuples listesini veren bu iki listeyi aktarır.

,/ "pus" - tüm bu tuplleri sırayla birleştirin.

K5, alfabeyi daha akıllıca oluşturarak ve sonra ^ünlüleri kaldırmak için "hariç" ( ) kullanarak 33 baytta bunu yapabilir , ancak K5 bu soruda yasal olamayacak kadar yeni:

,/+5?/:((`c$97+!26)^v;v:"aeiouy")

R, 83 bayt

cat(outer((l<-letters)[a<-c(1,5,9,15,21,25)],l[-a],paste0)[sample(1:120,5)],sep="")

Bir matristeki tüm ünlü sesli harf-ünsüz dizileri oluşturun, sonra rastgele 5 örnek, 10 harfli bir kelime verir.

05AB1E , 10 bayt

5FžPΩ?žOΩ?

$n$ rastgele miktarda kelime .

Açıklama:

Oldukça basit:

5F      # Loop 5 times:
  žP    #  Push string "bcdfghjklmnpqrstvwxz"
    Ω   #  Pop and push a random character from this string
     ?  #  Output it without newline
  žOΩ?  #  Do the same with string "aeiouy"

Jöle , 13 bayt

Øy,ØYẊ€Zs5ḢŒl

Açıklama:

Øy,ØYẊ€Zs5ḢŒl
Øy,ØY         Makes a list of two lists of characters: [[list-of-vowels-with-y], [list-of-consonants-without-y]]
     Ẋ€       Shuffle €ach.
       Z      Zip those two lists together. [[random-vowel, random-consonant],...]
        s5    Split them into chunks of five (because each pair contains two letters, this splits them into chunks of 10 letters)
          Ḣ   Take the list of 5 pairs.
           Œl Make each of the characters in it lowercase
              Implicit concatenation and print.

Çevrimiçi deneyin!