Wyzwanie jest proste:

wygenerować słowo.

Dane techniczne:

• Słowo musi być wymawiane.
  • Jest to definiowane jako „na przemian między spółgłoską i samogłoską”.
  • Spółgłoska to jedna z następujących liter: bcdfghjklmnpqrstvwxz
  • Samogłoska to jedna z następujących liter: aeiouy
• Słowo musi być generowane losowo.
• Słowa muszą zawierać każdą spółgłoskę i samogłoskę. (Nie możesz używać tylko bcdfspółgłosek i aeisamogłosek).
• Słowo musi zawierać 10 liter.
• Najkrótszy kod (pod względem liczby znaków) wygrywa.

GolfScript, 32 znaki

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

Uruchom to online .

Rubin: 56 znaków

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

Przykładowe wyniki:

• itopytojog
• umapujojim
• ipagodusas
• yfoqinifyw
• ebylipodiz

Python, 81

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

Powodzenia w ich ogłaszaniu.

COBOL, 255

W tej chwili uczę się języka COBOL. Użyłem tego pytania jako pewnej praktyki. Próbowałem zagrać w golfa.

Jest 255 bez wiodących białych znaków i 286 bajtów z.

Co do tego warte, działa w Microfocus COBOL dla VS2012 i nie mam pojęcia, czy będzie działać gdzie indziej.

       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]

Nie generuje wszystkich kombinacji, ale myślę, że pojawiają się wszystkie spółgłosek i samogłoski.

JavaScript, 79

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

Bardziej „losowa” wersja.

Rubinowy: 70 66 znaków

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

Przykładowy przebieg:

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 znaków

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'

Przetwarzanie, 100 99 93 87

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

Po bliższym zbadaniu pytania widzę, że nie wymaga ono żadnych wyników. Dostosowałem to odpowiednio.

Cel C, 129

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

Z pomocą Daniero

(Uwielbiam używać tendencji do operatora (->)

Java AKA najbardziej szczegółowy język, jaki kiedykolwiek stworzono, 176 z pomocą Doorknob, Daniero i Petera Taylora (dzięki chłopaki!)

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

Nie golfowany:

    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]

W przypadku uruchamiania z konsoli wyświetlane są dane wyjściowe. Jawne wyświetlanie dodałoby alert(s)8 znaków, wciąż krótszych niż inne rozwiązania JS.

Dzięki C5H8NNaO4 i Howard!

JavaScript, 135 122 96 86 znaków

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

PHP, 100 znaków

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

Narzędzia uniksowe: 73 bajty

I nie gwarantujemy czasu działania :)

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

Jedynym problemem jest to, że generowany ciąg zaczyna się od „samogłoski” za każdym razem.

(edycja: zmieniono ' 'na ''w argumentach wklejania) (kolejna edycja: usunięto -P z opcji grep, dzięki manatwork )

Pyth, 26 znaków

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

Możesz spróbować w kompilatorze online tutaj.

Ktoś wysłał bardzo podobne wyzwanie, ale zostało zamknięte po tym, jak opracowałem rozwiązanie. Nie zdawałem sobie z tego sprawy, ale to pytanie faktycznie poprzedza stworzenie Pytha. W każdym razie oto podział:

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

Za każdym razem, gdy pętla jest uruchamiana, J zmienia się z listy spółgłosek na listę samogłosek. W ten sposób możemy za każdym razem wybrać losową literę z litery J.
Może istnieć sposób na zainicjowanie J w pętli lub usunięcie jawnych przypisań z pętli, ale nie udało mi się jeszcze z żadnym powodzeniem.

APL 30 26

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

Wyjaśnienie jest bardzo podobne do poprzedniej wersji poniżej, po prostu zmieniono nieco, aby rozwiązać golfa.

Uwaga: ⎕IO jest ustawione na 0

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

Wyjaśnienie:

'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 bajtów

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

Dość zwięzłe.

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]

grał w golfa wiele prostych, niepotrzebnych rzeczy, wciąż nie tak przyjemnych, jak te z gry Copys

Aha, a ten właśnie wpadł na pomysł podczas gry w golfa: „dydudelidu”

_{Teraz spróbowałem użyć dwóch znaków naraz. Okazuje się, że jest prawie taki sam jak drugi Copys, więc nie mogę go policzyć, również w 79. a="";for(e=5;e--;)a+="bcdfghjklmnpqrstvwxz"[m=0|20*Math.random()]+"aeiouy"[m%6]}

Brachylog , 9 bajtów

Ḍ;Ẉṣᵐzh₅c

Wypróbuj online!

Podaje dane wyjściowe jako listę liter poprzez zmienną wyjściową.

   ṣ         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 znaków

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 bajtów

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

5?"abc" wygeneruje 5 losowych liter z podanego ciągu.

5?/: wygeneruje 5 losowych liter z każdego łańcucha po prawej stronie, tworząc dwie listy.

+ transponuje te dwie listy, dając nam listę krotek z jednym losowym znakiem z pierwszej listy, a następnie jedną z drugiej listy.

,/ jest „raze” - połącz wszystkie te krotki w sekwencji.

K5 może to zrobić w 33 bajtach, budując alfabet bardziej sprytnie, a następnie używając „oprócz” ( ^), aby usunąć samogłoski, ale K5 jest zbyt nowy, aby być legalnym w tym pytaniu:

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

R, 83 bajty

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

Wygeneruj wszystkie możliwe sekwencje samogłoskowo-spółgłoskowe w macierzy, a następnie losowo próbkuj 5 z nich, uzyskując 10-literowe słowo.

05AB1E , 10 bajtów

5FžPΩ?žOΩ?

Wypróbuj online lub wydrukuj$n$ilość losowych słów .

Wyjaśnienie:

Całkiem proste:

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"

Galaretka , 13 bajtów

Øy,ØYẊ€Zs5ḢŒl

Wyjaśnienie:

Ø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.

Wypróbuj online!