Program gry w łaskę

65

Richard Dawkins w swojej książce The Blind Watchmaker opisuje program łasicy . Algorytm można opisać następująco:

  1. Zacznij od losowego ciągu 28 znaków. Prawidłowe znaki to wielkie litery i spacja.

  2. Wykonaj 100 kopii tego ciągu, z 5% szansą na znak tej postaci zamienioną na postać losową.

  3. Porównaj każdy nowy ciąg znaków z celem „METHINKS IT JEST JAK WEASEL” i nadaj każdemu wynik według liczby liter w ciągu, które są prawidłowe i znajdują się we właściwej pozycji.

  4. Jeśli którykolwiek z nowych ciągów ma doskonały wynik (28), zatrzymaj się.

  5. Wybierz strunę o najwyższym wyniku z kroku 3. To, jak wypracujesz remis, zależy od Ciebie, ale możesz wybrać tylko jeden ciąg. Weź wybrany ciąg i przejdź do kroku 2.

Zwycięzca zostanie najkrótszym fragmentem kodu, aby uzyskać poprawną odpowiedź podczas drukowania ciągu o najwyższym wyniku każdego pokolenia w następującym formacie:

proszę odpowiedzi w tym formacie

Gdyby ludzie mogli pomóc poprzez sprawdzenie innych ludzi, odpowiedzi byłyby bardzo pomocne!

Noelkd
źródło
4
Które postacie są dozwolone? Unicode? Małe litery?
Oriol
4
Ach, kocham Dawkinsa. Piękno i wykonalność ewolucji pokazane w prostym algorytmie.
Cruncher
Czy krok 4 można lepiej zastąpić słowem „krok 1.5) Jeśli nowe ciągi mają doskonały wynik (28), zatrzymaj” i „krok 4) Weź ciąg o najwyższym wyniku i przejdź do kroku 1.5.”? To znaczy, jeśli początkowy losowy ciąg znaków jest zwycięzcą, to czy powinniśmy się rozłożyć?
Rob Starling
1
Jestem trochę zdezorientowany co do kolejności operacji tutaj. Czy zamierzamy stworzyć 100 nowych ciągów w oparciu o ciąg oryginalny? Czy też jest to 100 nowych ciągów, przy czym pierwszy ciąg opiera się na oryginale, a każdy kolejny ciąg opiera się na poprzednim ciągu? Opis algorytmu wydaje się sugerować to pierwsze, podczas gdy próbka wydaje się być drugim.
Iszi
2
Instrukcje są dość jasne, ale co jeśli oryginalny ciąg jest celem?
Christian Palmstierna

Odpowiedzi:

27

APL (143)

0{⍵≢T←'METHINKS IT IS LIKE A WEASEL':c∇⍨1+⍺⊣⎕←(⍕⍺),':'c'-- score:',s⊣c←⊃c/⍨G=s←⌈/G←{+/⍵=T}¨c←{⍵{⍵:⍺⋄C[?27]}¨9≠?28/20}¨100⍴⊂⍵}⊃∘(C←27↑⎕A)¨?28/27

Wyjaśnienie:

  • 0{... }⊃∘(C←27↑⎕A)¨?28/27: ustaw Cna pierwsze 27 wielkich liter. Jest tylko 26, więc 27 element będzie przestrzenią. Wybierz 28 losowych elementów z C. To będzie pierwszy . Pierwsza (generacja) będzie 0.

  • ⍵≢T←'METHINKS IT IS LIKE A WEASEL: ustawiony Tna ciąg 'METHINKS IT IS LIKE A WEASEL'. Dopóki nie jest równy T:

    • {... }¨100⍴⊂⍵: Wykonaj 100 kopii . Dla każdego z tych ...
      • 9≠?28/20: wybierz 28 liczb losowych od 1 do 20. Utwórz maskę bitową, gdzie każda 1oznacza, że ​​liczba losowa nie była równa 9. (Oznacza to 5% szansy na a 0).
      • ⍵{⍵:⍺⋄C[?27]}¨: dla każdej litery w , jeśli odpowiedni bit był 1, zachowaj tę literę, w przeciwnym razie zastąp ją losowo wybranym elementem z C.
    • c←: przechowuj 100 zmutowanych ciągów w c.
    • G←{+/⍵=T}¨c: dla każdego elementu w coblicz wynik (liczbę pasujących znaków T) i zapisz wyniki w G.
    • s←⌈/G: znajdź maksymalny wynik i zapisz go w s.
    • c←⊃c/⍨G=s: wybierz pierwszy element, cktórego wynik jest równy s(maksimum), i zapisz go cponownie.
    • ⎕←(⍕⍺),':'c'-- score:',s: wydrukuj generację w podanym formacie ( jest bieżącą generacją, cjest bieżącym najlepszym ciągiem, sjest wynikiem)
    • c∇⍨1+⍺: Zwiększ generowanie i ponownie uruchom mutację, używając bieżącego najlepszego ciągu ( c) jako danych wejściowych.
marinus
źródło
5
Wyjaśnienie? To wygląda jak zupa alfabetyczna! :)
ToastyMallows
2
@ToastyMallows: dodano wyjaśnienie
marinus
1
Najlepsza jak dotąd odpowiedź, wspaniale jest ją wyjaśnić.
Noelkd
1
@marinus Czy jesteś czarodziejem?
ToastyMallows
3
Bullcrap, właśnie otworzyłeś MS Word i użyłeś czcionki WingDings
Swag
11

Mathematica - 238 236 225

c:="@"~CharacterRange~"Z"~RandomChoice~28/."@"->" "
For[s=""<>c;i=0,{d,s}=Sort[{#~HammingDistance~"METHINKS IT IS LIKE A WEASEL",#}&@
StringReplace[s,_/;20Random[]<1:>c〚1〛]&~Array~100]〚1〛;
d>0Print[i++,":"s," -- score: ",28-d],]

Przykładowe dane wyjściowe

0:  CYPMEIHADXRXVTFHERYOZNRVFCSQ  -- score: 0
1:  CYPMEIHADIRXVTFBERYOZNRVFCSQ  -- score: 1
2:  CYPMEIHA IRXVTFBIRYOZNRVFCSQ  -- score: 3
...
50:  METHINKS IT IS LIKE A WEASEL  -- score: 28
Ybeltukov
źródło
9

Python (273)

from random import choice as c
n=range
a=map(chr,n(65,91)+[32])
s=map(c,[a]*28)
p=x=0
while p<28:
 p,s=max((sum(g==r for g,r in zip(y,'METHINKS IT IS LIKE A WEASEL')),y)for y in ([c(a+[x]*513)for x in s]for _ in n(100)));print '%d: %s -- score: %d' % (x,''.join(s),p);x+=1
tecywiz121
źródło
6

K 173 167

o:"METHINKS IT IS LIKE A WEASEL"
i:0;{~x~o}{-1($i),": ",(r:a@*&b=c)," -- score: ",$c:max@b:+/'o=/:a:{x{if[0~*1?20;x[y]:*1?s];x}/!#x}'100#,x;i+:1;r}/28?s:"c"$32,65+!26;

/

0: FQRZPHACDIBHZOUUCYKKFBJWVNVI -- score: 1
1: FQRZP ACDITHCOUUCYKKFBJWVNVI -- score: 2
2: FQRZP AFDIT COUUCYKKFBJWVNVI -- score: 3
...
51: METHINKS IT IS LIKECA WEASEL -- score: 27
52: METHINKS IT IS LIKECA WEASEL -- score: 27
53: METHINKS IT IS LIKE A WEASEL -- score: 28
tartin
źródło
6

Python: 282 znaków bez średników

from random import*
g,r,l,c=0,0,"ABCDEFGHIJKLMNOPQRSTUVWXYZ ",choice
k=map(c,[l]*28)
while(r!=28):
 r,k=max((sum(i==j for i,j in zip(t,"METHINKS IT IS LIKE A WEASEL")),t)for t in[[c(l)if random()<.05 else i for i in k]for i in[1]*100])
 print`g`+":","".join(k),"-- score:",`r`
 g+=1

278 z:

from random import*;g,r,l,c=0,0,"ABCDEFGHIJKLMNOPQRSTUVWXYZ ",choice;k=map(c,[l]*28)
while(r!=28):r,k=max((sum(i==j for i,j in zip(t,"METHINKS IT IS LIKE A WEASEL")),t)for t in[[c(l)if random()<.05 else i for i in k]for i in[1]*100]);print`g`+":","".join(k),"-- score:",`r`;g+=1
Noelkd
źródło
4
Należy wyraźnie podać język, a ponieważ pytanie jest oznaczone kodem golfowym, należy podać liczbę znaków.
Tim Seguine
Zrobi, dzięki za wskazówki tim.
Noelkd
Ponadto należy użyć wszystkich nazw zmiennych o jednej literze, aby jeszcze bardziej zmniejszyć liczbę znaków.
Klamka
Czekałem później na grę w golfa, wciąż mam łatwe wygrane. Dzięki.
Noelkd
1
Czy to naprawdę powinno zaczynać się od tych samych liter? :)
Joachim Isaksson
5

JavaScript, 277 246

c=m=>" ABCDEFGHIJKLMNOPQRSTUVWXYZ"[0|Math.random()*m];for(s=[k=28];e=k;s[--k]=c(27));for(;alert(k+++": "+s.join("")+" -- score: "+e),e<28;s=t)for(z=100;f=0,z--;f>e&&(t=n,e=f))n=s.map((h,p)=>(h=c(540)||h,f+=h=="METHINKS IT IS LIKE A WEASEL"[p],h))

(wymaga obsługi funkcji strzałek; dodawanie wcięć tylko dla czytelności)

// c() returns a random char using `m` as an index max
c=m=>" ABCDEFGHIJKLMNOPQRSTUVWXYZ"[0|Math.random()*m];

// generate base string `s`
for(s=[k=28];e=k;s[--k]=c(27));

// while score `e` is < 28
for(;alert(k+++": "+s.join("")+" -- score: "+e),e<28;s=t)
    for(z=100;f=0,z--;f>e&&(t=n,e=f))            // do 100 mutations; keep best score
        n=s.map((h,p)=>(                         // map `s` to `n` with 5% mutation
            h=c(540)||h,                         // change the char in 5% of cases
            f+=h=="METHINKS IT IS LIKE A WEASEL"[p],  // score++ if char matches
            h                                    // arrow function return character
        ))

Krępuj się zmienić alert, aby console.logjeśli chcesz bardziej przyjemne doświadczenie wykonania.

Jest tu kilka fajnych golfowych kawałków:

  • Funkcja czwraca losowy znak z ciągu alfabetu " ABC...". Funkcja przyjmuje argument, aby użyć jej jako górnej granicy losowego wyboru indeksu. Podczas generowania ciągu podstawowego używamy 27, więc funkcja zachowuje się normalnie.

    Jednak nadużywamy tego zachowania, prosząc o losową górną granicę 540 cali h = c(540) || h. Tylko 5% czasu cfaktycznie zwraca ciąg znaków (ponieważ 540 * .05 = 27); w pozostałych 95% przypadków losowo wybrany indeks wykracza poza długość łańcucha, więc funkcja powraca undefined. Ta wartość falsey powoduje logiczną kaskadę OR c(540) || h, więc używana jest pierwotna mapwartość h(tzn. Nie występuje zamiana).

  • Czy operacja wynik-zsumowanie f+=h=="METHINKS IT IS LIKE A WEASEL"[p], który mówi „dodaj truedo fjeżeli obecny mapcharakter hodpowiada pth znak łańcucha Weasel”. Dodanie liczby plus wartość logiczna wymusza wynik boolowski na jeden 0lub 1, co oznacza, że fjest zwiększany tylko wtedy, gdy występuje dopasowanie do docelowego ciągu WEASEL.

apsillery
źródło
Dlaczego vpodano w kodzie? Nigdzie indziej tam nie ma wzmianki. Możesz zapisać sobie 2 znaki.
WallyWest,
1
@ Eliseod'Annunzio vjest argument do funkcji strzałki przechowywanej w c: c = (v => ...). Jeśli chcesz zdefiniować funkcję strzałki bez argumentów, kosztuje ona dwa znaki ()=>...zamiast jednego v=>..., więc lepiej po prostu mieć nieużywany argument.
apsillers
Sprytne użycie kodu!
WallyWest,
Niezła sztuczka z, k=s=[28]i ++nie miałem pojęcia!
Dom Hastings
5

R ( 245 239 238 znaków)

t=strsplit("METHINKS IT IS LIKE A WEASEL","")[[1]]
h=sample
s=h(f<-c(LETTERS," "),28,T)
c=0
while(!all(s==t)){for(i in 1:100){z=ifelse(runif(28)<.05,h(f,1),s)
y=sum(s==t)
if(sum(z==t)>y)s=z}
cat(c<-c+1,": ",s," -- score: ",y,"\n",sep="")}

Daje:

1: HSSSIMJM ETJISGBSCIELUYPLSED -- score: 7
2: HSSSIMJM ETJISGBSKIELUYPLSED -- score: 8
3: EETLITLM ETJISTBSKIELUYLLSEL -- score: 11

...

78: METHINKS IT IS LIKEEA WEASEL -- score: 27
79: METHINKS IT IS LIKEEA WEASEL -- score: 27
80: METHINKS IT IS LIKEEA WEASEL -- score: 27
81: METHINKS IT IS LIKE A WEASEL -- score: 28
Henrik
źródło
jak zdobyć pierwszą linię, 0: ...jeśli przy pierwszym wywołaniu catzwiększasz ją cdo 1? (+1 jednak próbuję od godziny zrobić coś krótszego, a ja wciąż nie mogę :))
plannapus
@plannapus To prawda, pochodzi ze starej wersji (która była nieco dłuższa). Albo zmień go na -1 na początku, albo użyj 1 w pierwszym wierszu ...
Henrik
Widzę dwa problemy z twoim kodem. Po pierwsze, ifelse(…,h(f,1),…)zastępuje wszystkie wybrane pozycje tym samym losowym char. Możesz interpretować reguły w tym kierunku, ale wydaje mi się, że je zginasz, więc przynajmniej o tym wspomnę. Po drugie, zamieniasz s=zw 1:100pętli, więc nie tworzysz 100 kopii tego samego łańcucha, ale czasami kopiujesz kopię. Wydaje mi się, że to łamanie reguły, a nie tylko jej naginanie.
MvG
5

C 256

char c[101][29],s,n,z,b,j,i,w;g;main(){for(;w<28;printf("%d: %s -- score: %d\n",g++,c[b=n],w))for(i=w=0;i<101;i++)for(s=j=0;j<28&&!(i==b&&g);j++)(s+=(c[i][j]=g&&rand()%20?c[b][j]:(z=rand()%27)?'A'+z-1:' ')=="METHINKS IT IS LIKE A WEASEL"[j])>w?n=i,w=s:0;}

Proste trzy pętle, inicjalizacja, generowanie nowych ciągów od rodzica i wynik obliczony na podstawie tej samej instrukcji. Nie jest to zbyt czytelne nawet przy wcięciach.

C 252

i,g,n,b,o,s,w,z;char c[2929];main(){for(;(o=i%29)|i|w<28;(i=(i+1)%2929)||printf("%d: %s -- score: %d\n",g++,&c[b=n],w))(s+=o>27?-s:((i-o!=b||!g)&&(c[i]=g&&rand()%20?c[b+o]:(z=rand()%27)?'A'+z-1:' ')=="METHINKS IT IS LIKE A WEASEL"[o]))>w?n=i-o,w=s:0;}

Jedna pętla, z jedną tablicą zawierającą wszystkie 101 ciągów.

Ta druga wersja łamie reguły, ponieważ drukuje ciąg z (odpowiednik) kroku 1, ale to był ten ostatni wydruk lub nie. Jestem zaskoczony, jak to naprawić bez eksplozji wielkości. Mimo to wysyłam to dla inspiracji.

C 256

struct{char d[29];}p,t,n;i,j=-1,z,s,w,g;main(){for(;w<28;j>1&&printf("%d: %s -- score: %d\n",g++,(p=n).d,w))for(;j++%100;p=j?p:t)for(s=0,i=28;i--;)(s+=(t.d[i]=j&&rand()%20?p.d[i]:(z=rand()%27)?'A'+z-1:' ')=="METHINKS IT IS LIKE A WEASEL"[i])>w?n=t,w=s:0;}

Inne podejście, zamiast tworzenia tablicy do przechowywania 101 łańcuchów, wystarczy zregenerować łańcuch 100 razy i użyć przypisania struktury dla łatwego kopiowania. Inicjalizacja odbywa się poprzez uruchomienie licznika „powtórz 100 razy” przy -1 i ostrożne obchodzenie się z nim poprzez strategicznie wybrany przyrost. Pomimo zupełnie innego podejścia kończy się dokładnie tak samo jak pierwsza próba - 256 znaków.

Sztuka
źródło
4

C # - 436

namespace System.Linq{class W{static void Main(){var r=new Random();
Func<char>c=()=>(char)(r.Next(33,60)%59+32);var s="";
while(s.Length<28)s+=c();var a="METHINKS IT IS LIKE A WEASEL";int b=0;
while (s!=a){int m=-1;var f=s;for(int i=0;i<100;i++){
var l=string.Join("",s.Select(j=>(r.Next(20)!=0?j:c()).ToString()));
int o=Enumerable.Range(0,28).Sum(j=>l[j]==a[j]?1:0);if(o>m){f=l;m=o;}}
Console.WriteLine(b+++": "+(s=f)+" -- score: "+m);}}}}
tia
źródło
To jest zepsute. Potrzebujesz systemu; lub system kwalifikacji ręcznej.
It'sNotALie.
Nie, ty nie. ideone.com/4alNSi .
tia
Ach miło. Spojrzał na deklarację NS jako użycie przepraszam.
It'sNotALie.
3

Lua 5.1 (502)

Wersja zminimalizowana:

s,t,b,c,i,q,a,d,f="ABCDFGHJYUEGKSHNCOLPQIEJUSNC","METHINKS IT IS LIKE A WEASEL",1,math.random,table.insert,1,string.sub,100,28 while q~=f do r,p={},{} for x=1,d do i(r,s) i(p,0) e="" for o=1,f do if c(1,20)==1 then if c(1,27)==1 then e=e.." " else e=e..string.char(c(65,90)) end else e=e..a(r[x],o,o) end end r[x]=e for y=1,f do if a(r[x],y,y)==a(t,y,y) then p[x]=p[x]+1 end end if p[x]==f then s=r[x] end end for x=1,d do if p[x]>=q then s,q=r[x],p[x] end end print(b..":",s,"-- score: "..q) b=b+1 end

i łatwiejsza do odczytania wersja (z komentarzami!):

s,t,b,c,i,q,a,d,f="ABCDFGHJYUEGKSHNCOLPQIEJUSNC","METHINKS IT IS LIKE A WEASEL",1,math.random,table.insert,1,string.sub,100,28
--s=random string, t=target, b=counter, c=reference to math.random, i=reference to table.insert, q=top score,a=reference to string.sub, d=constant (100), f=constant (28)
while q~=f do
    r,p={},{}
    for x=1,d do  --add 100 copies to the table of strings
        i(r,s)
        i(p,0)
        e=""
        for o=1,f do  --for each character in string
            if c(1,20)==1 then  -- 5% chance
                if c(1,27)==1 then e=e.." " else e=e..string.char(c(65,90)) end  --set it to an ASCII char between 65 and 90 (A-Z) or a space character
            else
                e=e..a(r[x],o,o)
            end
        end
        r[x]=e  --current string = mutations
        for y=1,f do
            if a(r[x],y,y)==a(t,y,y) then p[x]=p[x]+1 end
        end  --for each char increment score if it is correct
        if p[x]==f then
            s=r[x]
        end  --if 28 then final string is this!
    end
    for x=1,d do
        if p[x]>=q then s,q=r[x],p[x] end  --if this is the highest score so far, then make the string equal to this
    end
    print(b..":",s,"-- score: "..q)  --print it!
    b=b+1  --add one to the counter!
end

Szczerze mówiąc, nawet jeśli to na pewno nie wygra, cieszyłem się, że udało mi się znaleźć i zminimalizować dość krótkie rozwiązanie tego problemu! (nacisk na racjonalnie): s

finnbar
źródło
3

SAS - 374

%macro r;ranuni(7)%mend;%macro s;r=int(%r*27);substr(x,t,1)=byte(ifn(r,64+r,32));%mend;%macro y;char(y,t)=char(x,t)%mend;options nonotes nosource;data x;length x$28;do t=1to 28;%s;end;y="METHINKS IT IS LIKE A WEASEL";do z=1by 1;o=x;do i=1to 100;c=0;x=o;do t=1to 28;if %r<=.05then do;%s;end;c+%y;end;if c>m then do;m=c;v=x;end;end;x=v;put z":" x"-- score:" m;if m<28;end;run;

->

1 :GUUVLNUSILSRZLRBXVVCWXX HXKC -- score:2
2 :MUUVLNUSILSRZLRBXVMCWXX HXKC -- score:3
3 :MUUVLNESILSRILRBXVMCWXX HXKC -- score:4
4 :MEUVLNESILSRIRRBXVMCWXX HXKC -- score:5
....
95 :METHINKS IT IS LIKE A XEASEL -- score:27
96 :METHINKS IT IS LIKE A XEASEL -- score:27
97 :METHINKS IT IS LIKE A XEASEL -- score:27
98 :METHINKS IT IS LIKE A WEASEL -- score:28

Ze znakami podziału / wcięcia / komentarzy:

%macro r;
 ranuni(7)   /* seed 0 will make new each time (seed=clock), otherwise fixed results */
%mend;
%macro s;  /* does the rand char, used both to initialize and replace; */
 r=int(%r*27); 
 substr(x,t,1)=byte(ifn(r,64+r,32)); *r=0 becomes space otherwise upper char;
%mend;
%macro y;  /*compares using new to 9.2 CHAR function which is equivalent to substr(str,start,1) */
 char(y,t)=char(x,t)
%mend;
options nonotes nosource; /*cheapest way to get clean log */
data x;
 length x$28; /*annoyingly necessary*/
 do t=1to 28;%s;end; /*initialize string*/
 y="METHINKS IT IS LIKE A WEASEL"; /*compare string */
 do z=1by 1; /*start iterating */
  o=x; /*save this iteration's string */
  do i=1to 100;
   c=0; /*score for this iteration*/
   x=o; /*string to fudge about start out clean, reusing x so no params to macro*/
   do t=1to 28;
    if %r<=.05then do;%s;end; /*if 5% then change the char out */
    c+%y; /*score that character*/
   end;
   if c>m then do; /*if on better scoring line, save it */
    m=c;
    v=x;
   end;
  end;
  x=v; *for next iter - this is cheaper than other options involving o=v due to first iter;
  put z":" x"-- score:" m;
  if m<28; *quit at 28;
 end;
run;
Joe
źródło
3

C 361 331

Nie tak dobre jak rozwiązanie Art, ale oto moja (nowa) próba rozwiązania C. 361 znaków, jeśli usuniesz znaki nowej linii i tabulatory.

char*w="METHINKS IT IS LIKE A WEASEL";char b[101][29];t,s,n,i,j,x,a;main(){for(;i<28;i++)b[0][i]=w[rand()%28];while(s<28){for(j=1;j<101;j++){x=0;for(i=0;i<28;i++){if(!(rand()%20))b[j][i]=w[rand()%28];else b[j][i]=b[0][i];if(b[j][i]==w[i])x++;}if(x>s){s=x;t=j;}}printf("%d: %s -- score %d\n",n++,b[t],s);for(;i>=0;--i){a=b[0][i];b[0][i]=b[t][i];b[t][i]=a;}t=0;}}

Edycja: Pozbyłem się zagnieżdżonej pętli i użyłem tablicy 1D. Miałem nadzieję, że zrobi to większą różnicę, ale uratowało mi to tylko 30 postaci. Oto kod:

char*w="METHINKS IT IS LIKE A WEASEL";char b[2929];t,s,n,i,x;main(){for(;i<28;i++)b[i]=w[rand()%28];while(s<28){for(;i<2929;i++){if((i+1)%29){if(!(i%29))x=0;b[i]=rand()%20?b[i%29]:w[rand()%28]; x+=b[i]==w[i%29];if(x>s){s=x;t=i/29;}}}for(i=0;i<29;i++){x=b[i+t*29];b[i+t*29]=b[i];b[i]=x;}printf("%d: %s -- score %d\n",n++,b,s);t=0;}}

Edycja: Jest to oryginalny, nie golfowy kod, dla tych, którzy są zainteresowani wiedzą, w jaki sposób „golf” został zrobiony. Kod nie generuje ostrzeżeń po kompilacji z GCC z włączoną opcją -Wall i C99. Może jesteś początkującym golfistą, takim jak ja, lub początkującym C, jak ja, a może jesteś po prostu ciekawy. :) https://gist.github.com/cpx/97edbce4db3cb30c306a

Christian Palmstierna
źródło
3

Scala, 347 341 337 znaków:

import util.Random.{nextInt=>r}
val t="METHINKS IT IS LIKE A WEASEL"
def c="ABCDEFGHIJKLMNOPQRSTUVWXYZ "(r(27))
def s(a:String)=t.zip(a).map{x=>if(x._1==x._2) 1 else 0}.sum
def w(a:String,i:Int=0){println(f"$i%2d: $a -- score: ${s(a)}")
if(s(a)!=28){w((0 to 99).map{_=>a.map(o=>if(r(20)<1) c else o)}.sortBy(s).last,i+1)}}
w(t.map(_=>c))

=>

 0: PGSHWAEPALQFTCORUKANPNUTRVXH -- score: 2
 1: PGSHWAEPALQ TCOQUKANPNUTRVXH -- score: 3
...
47: METHINKS WT IS LIKE A WEASEL -- score: 27
48: METHINKS IT IS LIKE A WEASEL -- score: 28
Rob Starling
źródło
ups. źle odczytałem algorytm i zamiast „5% szansy na znak tej postaci zastąpiono losową postacią”, permutowałem pojedynczy losowy znak. naprawi.
Rob Starling
naprawione i nieco przycięte!
Rob Starling
w scala 2.10 println("%2d: %s -- score: %d".format(i,a,s(a))można zmienić na println(f"$i%2d: $a%s -- score: ${s(a)}%d"), zapisując 4 znaki!
Rob Starling
((('A'to'Z') toSeq): + '') == "ABCDEFGHIJKLMNOPQRSTUVWXYZ", a 2% s nie jest konieczne do wydrukowania łańcucha, zapisując 9 znaków
Chris
@Chris, w jakiej wersji Scali uruchomiłeś to? def c=(' '+:('A'to'Z'))(r(27))daje mierror: type mismatch; found : Int required: scala.collection.generic.CanBuildFrom[scala.collection.immutable.IndexedSeq[Char],Char,?]
Rob Starling
2

PHP 442

<? function r(){$n=rand(65,91);if($n==91) return ' ';else return chr($n);}function s($s){$c=0;$t='METHINKS IT IS LIKE A WEASEL';for($i=0;$i<28;$i++) if($s[$i]==$t[$i]) $c++;return $c;}function m($s){for($i=0;$i<28;$i++) if(rand(0,99)<5) $s[$i]=r();return $s;}$s='';for($i=0;$i<28;$i++) $s.=r();for($i=0;;$i++){$l=s($s);printf("%2d: %s -- score: %d\n",$i,$s,$l);if($l==28) break;$x=$s;for($j=0;$j<100;$j++){$t=m($s);if(s($t)>$l) $x=$t;}$s=$x;}

Readbly:

<?
//random char
function r(){
    $n=rand(65,91);
    if($n==91) return ' ';
    else return chr($n);
}
//score
function s($s){
    $c=0;
    $t='METHINKS IT IS LIKE A WEASEL';
    for($i=0;$i<28;$i++)
        if($s[$i]==$t[$i]) $c++;
    return $c;
}
//mutate
function m($s){
    for($i=0;$i<28;$i++)
    if(rand(0,99)<5) $s[$i]=r();
    return $s;
}
$s='';
for($i=0;$i<28;$i++) $s.=r();
for($i=0;;$i++){
    $l=s($s);
    printf("%2d: %s -- score: %d\n",$i,$s,$l);
    if($l==28) break;
    $x=$s;
    for($j=0;$j<100;$j++){
        $t=m($s);
        if(s($t)>$l) $x=$t;
    }
    $s=$x;
}
Sammitch
źródło
usuwając dodatkowe białe znaki po if\for, jest na 436. można również sprawdzić $n>90inny znak
Einacio
Podoba mi się, w rzeczywistości jest czytelny. Znalazłem kilka możliwych ulepszeń twojego r()i s()funkcji. Oto zmiany z komentarzami: ideone.com/4ecZQc
Pan Llama,
Aha, a twoja instrukcja printf może zostać skrócona. Długość %sjest zawsze tej samej długości i %djest wyrównana do lewej, dlatego można zamiast tego użyć następujących opcji:printf("%2d: $s -- score: $l\n",$i);
Pan Llama,
2

Java (632)

class C {public static void main(String[] a){String b="AAAAAAAAAAAAAAAAAAAAAAAAAAAA";for(int i=1;;i++){String c=w(b);int s=s(c);if(s==28)break;if(s(b)<s){b=c;System.out.println(i+": "+c+" -- score: "+s);}}}public static String w(String b) {StringBuffer c = new StringBuffer(b);int max = 0;for (int i=0;i<100;i++){for(int j=0;j<28;j++)if(Math.random()<.06){double d=Math.random();c.setCharAt(j,(char)(d==1?32:d*26+65));}String d=c.toString();int s=s(d);if(s>max){max=s;b=d;}}return b;}public static int s(String s){String b="METHINKS IT IS LIKE A WEASEL";int sum=0;for(int j=0;j<28;j++)sum+=s.charAt(j)==b.charAt(j)?1:0;return sum;}}

Java to taki pełny język ... :(

javatarz
źródło
2

Python ( 330 321)

def b(i,s):print i,':',''.join(s),'-- score:',p(s)
from random import*;a=" ABCDEFGHIJKLMNOPQRSTUVWXYZ";i,s,t=0,choice(a)*28,"METHINKS IT IS LIKE A WEASEL";p=lambda n:sum(n[c]==t[c]for c in range(28))
while p(s)<28:b(i,s);s=sorted([[(c,choice(a))[random()<.05]for c in s]for k in[1]*100],key=lambda n:p(n))[-1];i+=1
b(i,s)

Wersja do odczytu:

def b(i,s):
    print i,':',''.join(s),'-- score:',p(s)

import random as r
a=" ABCDEFGHIJKLMNOPQRSTUVWXYZ"
i,s,t=0,r.choice(a)*28,"METHINKS IT IS LIKE A WEASEL"
p=lambda n:sum(1for c in range(28)if n[c]==t[c])
while p(s)<28:
    b(i,s)
    s=sorted([[(c,r.choice(a))[r.random()<.05]for c in s]for k in[1]*100],key=lambda n:p(n))[-1];i+=1
b(i,s)

Przykładowe dane wyjściowe:

0 : SSSSSSSSSSSSSSSSSSSSSSSSSSSS -- score: 3
1 : SSSQSSSSSSSSSSSSISSSSSSSSSSS -- score: 4
2 : SSSQISSSSSSSSSSSISSSSSSSSSSS -- score: 5
3 : SSSQISSSSSSSSSSSIKSSSSSSSSSS -- score: 6
4 : SMSQISSSSSSSISSSIKSSSSGSSSSS -- score: 7
...
53 : METHINKS IT IS UIKE A WEASEL -- score: 27
54 : METHINKS IT IS UIKE A WEASEL -- score: 27
55 : METHINKS IT IS LIKE A WEASEL -- score: 28

edycja: usunięto kilka znaków na podstawie odpowiedzi AMK i Timtechs

PsHegger
źródło
2
sum(1for c in range(28)if n[c]==t[c])może zostać skrócony do sum(n[c]==t[c] for c in range(28))(-3 znaków)
AMK
1
Zaoszczędzić 5 znaków, należy zmienić import random as rw celu from random import*, a następnie usunąć trzech wystąpieńr.
Timtech
1
Przepraszam, nie mówię w języku Python. Czy linia zero w przykładowym wyjściu jest dziwnym zbiegiem okoliczności, czy też skrypt zawsze zaczyna się od wszystkich S? Wyzwanie wymaga rozpoczęcia od ciągu losowych postaci.
Iszi
Zaczyna się od 28 losowych postaci, ale zawsze są takie same.
PsHegger
@Iszi Lol, nigdy nie mówiono, że każda postać musi być losowa! PsHegger: lol zaczynający się od wszystkich liter S pasuje do nazwy twojego języka;)
Klamka
2

PHP ( 381 397 323 319 312):

<? function s(&$s,&$i=0){$t='METHINKS IT IS LIKE A WEASEL';$i=0;$c=$s;$f=28;while($f--){$n=rand(0,26);$i+=($s[$f]=($c=='_'||!rand(0,19)?chr($n?$n+64:32):$s[$f]))==$t[$f];}}$s='_';s($s);$x=$y=0;do{$f=100;while($f--){$m=$s;s($m,$i);if($i>$y){$y=$i;$l=$m;}}printf("%2d: %s -- score: $y\n",$x++,$s=$l);}while($y<28);

Wersja do odczytu:

<?
function s(&$s, &$i = 0) {
    $t = 'METHINKS IT IS LIKE A WEASEL';
    $i = 0;
    $c = $s;
    $f = 28; while ($f--) {
        $n = rand(0, 26);
        $i += ($s[$f] = ($c == '_' || !rand(0, 19) ? chr($n ? $n + 64 : 32) : $s[$f])) == $t[$f];
    }
}

$s = '_';
s($s);
$x = $y = 0;

do {
    $f = 100; while ($f--) {
        $m = $s;
        s($m, $i);

        if ($i > $y) {
            $y = $i;
            $l = $m;
        }
    }

    printf("%2d: %s -- score: $y\n", $x++, $s = $l);
} while ($y < 28);

Kredyty optymalizacyjne (319):

Kredyty optymalizacyjne (312):

  • Komentarze Einacio
brat Filip
źródło
Lubię wspólny generator + randomizator
Einacio
można zmieniać zarówno forw $f=N;while($f--){ciągu 3 char każdego. i dla innego char:$n=rand(0,26);[...]chr($n?$n+64:32)
Einacio
Generator + randomizator + obliczanie wyniku. :) Dzięki, zastosowałem twoje optymalizacje.
brat Filip
2

Ruby, 218

g,s,p,t=-1,'',1;while t!=28;t,b=-1;100.times{|i|m,n='',0
28.times{|j|n+=1if(m[j]=(rand<p ?[*?A..?Z,' '].sample: s[j]))=="METHINKS IT IS LIKE A WEASEL"[j]}
b,t=m,n if n>t};puts"#{g+=1}: #{s=b} -- score: #{t}";p=0.05;end

przykładowy bieg

0: LRAZZMKL IKUOGEHLKPWEVNEAZWX -- score: 6
1: LRAZZMKL IKUIGEALKMWEVNEAZWX -- score: 7
2: HRAGZMKL IKUIGEALKMWEVNEAZWX -- score: 7
3: HVAGZMKL IKUISAALKYWEVNEAZWX -- score: 8
                  ...
48: METHIUKS IT IS LIKEIA WEASEL -- score: 26
49: METHINKS IT IS LIKEIA WEASEL -- score: 27
50: METHINKS IT IS LIKEIA WEASEL -- score: 27
51: METHINKS IT IS LIKE A WEASEL -- score: 28
Darren Stone
źródło
2

Ruby - 225 202 203 198 znaków

Ruby wydaje się być niedostatecznie reprezentowana w tym wyzwaniu, więc pomyślałem, że spróbuję! Ulepszenia mile widziane.

g=-1
s=[]
puts"#{g+=1}: #{$.,s=(0..99).map{n=(r=0..27).map{|i|x=[' ',*?A..?Z].sample;rand<0.05?x:s[i]||=x};[r.count{|i|n[i]=='METHINKS IT IS LIKE A WEASEL'[i]},n*'']}.max;s} -- score: #$."until$.>27
Paul Prestidge
źródło
W twoich wynikach „generacja #” zaczyna się od, 1ale pytanie określa 0. Jeśli inicjujesz, g=-1to jest w porządku. Może być mądrzejszy sposób, ale zrobiłem to w ten sposób. Pozdrawiam, RubyGolfer.
Darren Stone
@DarrenStone Dobre połączenie, dzięki! Kosztuje postać, ale nie mogłem wymyślić lepszego sposobu.
Paul Prestidge
1
Przenosząc kod do łańcucha, możesz uzyskać 198 znaków: (te same pierwsze dwie linie, potem pozostałe)puts"#{g+=1}: #{$.,s=(0..99).map{n=(r=0..27).map{|i|x=[' ',*?A..?Z].sample;rand<0.05?x:s[i]||=x};[r.count{|i|n[i]=='METHINKS IT IS LIKE A WEASEL'[i]},n*'']}.max;s} -- score: #$."until$.>27
Justin
Dobra decyzja! Zmienię to.
Paul Prestidge
2

Ruby, 206 200 199

q,i,*R=*-2..27
puts"#{i+=1}: #{$.,s=(-2..q).map{x=R.map{|j|!s||rand<0.05?[*?A..?Z,' '].sample: s[j]};[R.count{|i|x[i]=='METHINKS IT IS LIKE A WEASEL'[i]},x]}.max;q=97;s.join} -- score: #$."until$.>27

Pierwszy wiersz jest po prostu fantazyjny sposób zdefiniować q=-2, i=-1i R=(0..27).to_a. Cała praca odbywa się w 2. linii:

puts"..."until$.>27 # Prints the string in quotes until we reach the desired score
     ^
     |
 +---+
 |
"#{i+=1}: #{...} -- score: #$."
   ^        ^               ^  
   +--------|---------------|-- Generation counter
 +----------+---------------|-- Current string
 |                          +-- Score of current string (interpolates the `$.` variable)
 |   
 #{$.,s=(-2..q).map{...}.max;q=97;s.join} # Generate the score & string
   ^         ^  ^   ^    ^   ^    ^
   +---------|--|---|----|---|----|------ Store the score; this variable makes
             |  |   |    |   |    |       string interpolation shorter.
             +--|---|----|---+----|------ `q` automatically takes care of generating
                |   |    |        |        the string vs randomizing the string.
                +---|----|--------|------  Make 100 (or 1 the first time) strings,
                    |    |        |        and compute their score.
                    |    +--------|------- Take the string with the max score.
 +------------------+             +------- `s` is stored as an array
 |
 x=R.map{...};[R.count{...},x] # Compute string and its score, store in array
   ^     ^    ^^       ^
   +-----|----|+-------|------ `R` is 0..27, we use the constant to save chars.
         |    +--------|------ `max` orders by first element, then second. We clearly want
         |             |       the highest score, so make the score first.
 +-------+-------------|------ Generate the string, store in `x`.
 |                     +------ Count the number of chars that overlap with 'METHINKS...'
 |                     |
 |                    {|i|x[i]=='METHINKS IT IS LIKE A WEASEL'[i]}
{|j|!s||rand<0.05?[*?A..?Z,' '].sample: s[j]}
    ^   ^         ^             ^       ^
    +---+---------|-------------|-------|---- 5% chance of randomizing, or 100% for
                  |             |       |     first string.
                  +-------------+-------|---- Sample from alphabet + ' '.
                                        +---- Don't alter the string 95% of the time
Justin
źródło
@ZachGates Cieszę się, że podoba Ci się styl komentowania
Justin
2

Japt v2.0a0, 112 108 bajtów

ª(T=Si26õdI q¹ö28
_¬í¥`Ú0ˆks Š ‰ ¦ke a Øâel`u q)x
(OpW+`: {U} -- sÖ: `+(K=[U]xV¹WÄ
K<28©ßLÆ®p513 iT ö}ÃñV o

Wypróbuj online!

-4 bajty dzięki produktom @ETH.

Rozpakowane i jak to działa

U||(T=Si26õdI q) ö28  Initialize primary input
U||                   If U is not initialized...
        26õdI           Generate uppercase alphabets
              q         Convert to string
      Si                Add space
   (T=         )        Assign to variable T
                 ö28    Sample 28 random chars from T and form a string
                        Implicitly assign to U

_q í==`Ú0ˆks Š ‰ ¦ke a Øâel`u q)x  Match counting function
_                                  Declare a function...
 q í==                         )     Convert to array of chars and pair with the next,
                                     and map with equality...
      `Ú0ˆks Š ‰ ¦ke a Øâel`u q        "methinks it is like a weasel" to uppercase
                                        split into chars
                                x    Sum (true == 1, false == 0)
                                   Implicitly assign to V

(OpW+`: {U} -- sÖ: `+(K=[U]xV) W+1  Output and increment counter
(Op                           )      Output with newline...
   W+`: {U} -- sÖ: `+                 `{W}: {U} -- score: `
                         [U]xV         Call V on [U] and force cast to number
                      (K=     )        Assign to K
                                W+1  Add 1 to W and implicitly assign to W

K<28&&ßLo@Um_p513 iT ö}} ñV o  Termination check and recursion
K<28&&                         If the match count is less than 28...
      ß                          Recurse the program with...
          Um_                      Map over chars of U...
             p513 iT                 The char repeated 513 times plus T
                     ö}              Sample a char from it
       Lo@             }           Generate array of 100 of the above
                         ñV o      Sort by V, pop the largest, pass it as U
Bubbler
źródło
106 bajtów , z przełącznikiem do wersji 1.4.5.
Kudłaty
2

Japt -R , 94 bajty

Inne podejście, ale z niewielką inspiracją od rozwiązania Bubblera .

;C±S ö28
ȶ`Ú0ks   ¦ke a Øâel`gY
@=#dÆ£20ö ?X:CöÃÃñ_¬xVÃo)ʶG}a@Np[X+':Uu '-²`sÖ:`G=U¬xV]¸

Przetestuj (lub wypróbuj online )


Wyjaśnienie

Linia 1

Wynik zostaje przypisany do zmiennej U.

;C±S ö28
;C           :The lower case alphabet
  ±S         :Append a space and reassign result to C
     ö28     :Generate a string of 28 random characters

Linia 2

Wynik zostaje przypisany do zmiennej V.

ȶ`Ú...l`gY
È               :A function that takes 2 arguments; a string (X) and an integer (Y)
  `Ú...l`       :  The compressed string "methinks it is like a weasel"
         gY     :  Get the character at index Y
 ¶              :  Test for equality with X

Linia 3

Wynik tego wiersza jest domyślnie połączony z nowymi liniami i danymi wyjściowymi.

@=#dÆ£20ö ?X:CöÃÃñ_¬xVÃo)Ê¥G}a@Np[X+':Uu '-²`sÖ:`G=U¬xV]¸
@                           }a@                            :Repeat until true
                                 [                     ]   :Build an array containing ...
                                  X+':                     :  A colon appended to the number of the current iteration
                                      Uu                   :  The current value of U uppercased
                                         '-²               :  A hyphen repeated twice
                                            `sÖ:`          :  The compressed string "score: "
                                                   U¬      :  Split U to an array of characters
                                                      V    :   Pass each character X at index Y through function V
                                                     x     :   Reduce by addition
                                                 G=        :   Assign the result to variable G
                                                        ¸  :Join with spaces
                               Np                          :Push to N (initially an empty array)
  #d                                                       :100
    Æ                                                      :Generate the range [0,100) and pass each through a function
     £                                                     :  Map over each character X in U
      20ö                                                  :    Generate a random number in the range [0,20), which has a 5% chance of being 0 (falsey)
          ?X                                               :    If thruthy, return X
            :Cö                                            :    Else return a random character from C
               Ã                                           :  End mapping
                Ã                                          :End function
                 ñ_                                        :Sort by passing each through a function
                   ¬                                       :  Split to an array of characters
                     V                                     :  Pass each character X at index Y through function V
                    x                                      :  Reduce by addition
                      Ã                                    :End sorting
                       o                                   :Pop the last element
 =                      )                                  :Reassign to U
                         Ê                                 :Length
                          ¶G                               :Equal to G
Kudłaty
źródło
2

Perl 5 , 219 bajtów

$_="METHINKS IT IS LIKE A WEASEL";sub r{(A..Z,$")[rand 27]};sub t{~~grep/$t[$-++%28]/,pop=~/./g}$}.=r for@t=/./g;printf"%3d: %s -- score: %d
",$i++,(($})=sort{t($b)<=>t$a}map s/./rand>.05?$&:r/ger,($})x100),t$}until/$}/

Wypróbuj online!

Dom Hastings
źródło
1

Rubin - 410

#!/usr/bin/env ruby
C,RC=[32]+(65..90).to_a,->{C[rand(27)].chr}
T,CO,CH,OU,s,sc,a,aa,z,TR="METHINKS IT IS LIKE A WEASEL",->x{a=0;(0...28).each{|z|a+=1 if x[z]==T[z]};a},->{a[aa.rindex(sc)]},->x,y{print x;print " Score: ";puts y},(0...28).map{RC[]}.join,0,[0],[0],0,->{rand(20)==0}
until sc==28
a=[s]*100;aa=[0]*100;(0...100).each{|x|(0...28).each{|y|a[x][y]=RC[] if TR[]};z=CO[a[x]];aa[x]=CO[a[x]];OU[a[x],z]};sc=aa.max;s=CH[] end

Edycja * Obecnie nie działa (z jakiegoś powodu ustawiono [dowolny] na 0 (type => fixnum)). Jednak rzeczywisty projekt jest prawidłowy, muszę tylko znaleźć błąd, który to spowodował (to bardzo tajemnicze)


źródło
1

Python 284

from random import*
C=choice
A=map(chr,range(65,91)+[32])
s=[C(A)for i in[0]*28]
N=x=0
while N!=28:N,s=max((len([i for i,j in zip(X,"METHINKS IT IS LIKE A WEASEL")if i==j]),X)for X in[[c if random()<.95 else C(A)for c in s]for i in[0]*100]);print`x`+":",''.join(s),"-- score:",N;x+=1
Sudharsan Mohan
źródło
1

JavaScript - 312

Powyżej jest już krótsze rozwiązanie JS, ale wykorzystuje ono eksperymentalne funkcje wskaźnika, więc pomyślałem, że wrzucę inne rozwiązanie, które działa w dowolnym środowisku JS:

for(r=Math.random,R=function(){return'METHINKS CODZAWFLBUGYQRXVJP'[~~(r()*27)]},_=[],_.$=n=0,D=function(s){for(c=[],c.$=i=0;i<28;){c[i]=s&&r()<.95?s[i]:R();_=(c.$+=c[i]=='METHINKS IT IS LIKE A WEASEL'[i++])>_.$?c:_};return c},D();_.$<28;){for(j=0;j++<1e2;)D(_);console.log(n+++': '+_.join('')+' -- score: '+_.$)}
rory
źródło
1

Java: 557 534

enum W{W;public static void main(String[]a){char[]c=new char[28],h,d[];int i,k,e,s=W.s(c);for(i=0;i<28;i++)c[i]=W.r();for(i=0;;){W.p(i++,h=c,s);if(s>27)break;d=new char[100][28];for(char[]b:d){for(k=0;k<28;k++)b[k]=Math.random()<.05?W.r():h[k];if((e=W.s(b))>s){s=e;c=b;}}}}int s(char[]c){int s=0,k;for(k=0;k<28;k++)if(c[k]=="METHINKS IT IS LIKE A WEASEL".charAt(k))s++;return s;}void p(int i,char[]c,int s){System.out.println(i+": "+new String(c)+" -- score: "+s);}char r(){int i=(int)(Math.random()*27);return(char)(i==26?32:i+65);}}

Nieopakowane:

enum W {
    W;

    public static void main(String[] a) {
        char[] c = new char[28], h, d[];

        int i, k, e, s = W.s(c);

        for(i = 0; i < 28; i++)
            c[i] = W.r();

        for(i = 0;;) {
            W.p(i++, h = c, s);

            if(s > 27)
                break;

            d = new char[100][28];

            for(char[] b : d) {
                for(k = 0; k < 28; k++)
                    b[k] = Math.random() < .05 ? W.r() : h[k];

                if((e = W.s(b)) > s) {
                    s = e;
                    c = b;
                }
            }
        }
    }

    int s(char[] c) {
        int s = 0, k;
        for(k = 0; k < 28; k++)
            if(c[k] == "METHINKS IT IS LIKE A WEASEL".charAt(k))
                s++;

        return s;
    }

    void p(int i, char[] c, int s) {
        System.out.println(i + ": " + new String(c) + " -- score: " + s);
    }

    char r() {
        int i = (int)(Math.random() * 27);
        return (char)(i == 26 ? 32 : i + 65);
    }
}
Radiodef
źródło
1

PHP 429 426 421 415

<? function t(){$a="ABCDEFGHIJKLMNOPQRSTUVWXYZ ";return $a{rand(0,26)};}$c='';$j=$g=0;$i=28;while($i--)$c.=t();function r($s){$i=28;while($i--)!rand(0,19)&&$s{$i}=t();return $s;}function s($s,&$r){$c="METHINKS IT IS LIKE A WEASEL";$i=28;$r=0;while($i--)$r+=$s{$i}==$c{$i};}while($g<28){$n='';$v=0;$i=100;while($i--){s($t=r($c),$a);($a>$v)&&($v=$a)&($n=$t);}($v>$g)&&($g=$v)&($c=$n);echo $j++.": $c -- score: $g\n";}

ładny druk

<?php 
function t(){
    $a="ABCDEFGHIJKLMNOPQRSTUVWXYZ ";
    return $a{rand(0,26)};
}
$c='';
$j=$g=0;
$i=28;
while($i--)
    $c.=t();
function r($s){
    $i=28;
    while($i--)
        !rand(0,19)&&$s{$i}=t();
    return $s;
}
function s($s,&$r){
    $c="METHINKS IT IS LIKE A WEASEL";
    $i=28;
    $r=0;
    while($i--)
        $r+=+($s{$i}==$c{$i});
}
while($g<28){
    $n='';
    $v=0;
    $i=100;
    while($i--){
        s($t=r($c),$a);
        ($a>$v)&&($v=$a)&($n=$t);
    }
    ($v>$g)&&($g=$v)&($c=$n);
    echo $j++.": $c -- score: $g\n";
}

Następnym razem będę potrzebować mniej pełnego języka

Einacio
źródło
najkrótsza jak dotąd odpowiedź php!
Noelkd
mogłoby być lepiej, ale powinienem pracować
Einacio
zawsze możesz wrócić i zaktualizować swoją odpowiedź
Noelkd
1

Python 2.7 - 319 bajtów

Pewnie nie jest to najmniejsze, ale programowanie było fajne.

from random import*
a=map(chr,range(65,91))+[' ']
c,i,y=choice,0,{}
s=[c(a)for i in[0]*28]
while 1:
 for j in[0]*100:v=[c(a)if .05>random()else x for x in s];y[sum(1if'METHINKS IT IS LIKE A WEASEL'[k]==v[k]else 0for k in range(28))]=v
 v=max(y.keys());s=y[v];print"%d: %s -- score: %d"%(i,''.join(y[v]),v);i+=1
 if v==28:break

Używa funkcji rekurencji, więc może osiągnąć maksymalną głębokość rekurencji, jeśli istnieje jakiś dziwny dewolucja z łańcuchem.

ubuntu@ubuntu-OptiPlex-980:~$ python weasel.py
0: VPBHBSPWFTOG HAXSESCDNFPKWYE -- score: 1
1: VABHBSPWFTOG HAXSESCDNWPKWYE -- score: 2
2: VAWHBSPWFTOGIHAXSESSDNWPKWYE -- score: 3
3: VAWHBSPWFTOGIHAXSEFSGNWPKWYL -- score: 4
4: XAWHBSPYFTOGIHAXSEFSGNWPKWYL -- score: 4
5: XAWHBSKYFTOGIHAXSEFSGNWPKWYL -- score: 5
6: XAWHBSKYFTOGIHAXSEF GNWPKWYL -- score: 6
7: XAWHBSKYFTOGIHALSEF ANWPKWYL -- score: 8
8: XAKHBSKYFTTGIHALSEY ANWPKWYL -- score: 9
9: XAKHISKYFTTGIHALSEE ANWPKWYL -- score: 11
10: XAKHISKSFTTGIHALSEE ANWPKWYL -- score: 12
11: XAKHISKSFTTGIHALSBE ANWPKWKL -- score: 12
12: XAQHISKSFRT IHALSBE ANWPKWKL -- score: 13
13: XAQHISKSFIT IHALSBE ANWPKWKL -- score: 14
14: XAQHISKSFIT IHALSBE ANWPKWKL -- score: 14
15: XAQHISKSFIT IHALSBE ANWPKWKL -- score: 14
16: XALHISKSFIT ISALSBE ANWPKWKL -- score: 15
17: JALHISKSFIT ISALSBE ANWPAWKL -- score: 16
18: JALHISKSFIT ISALIBE ANWPAWKL -- score: 17
19: JALHISKSFIT ISALIBE ANWPAWKL -- score: 17
20: JALHISKSFIT ISALIBE ANWPAWKL -- score: 17
21: JALHISKSFIT ISALIKE ANWPAWYL -- score: 18
22: JALHISKSFIT IS LIKE ANWPAWYL -- score: 19
23: JALHISKSFIT IS LIKE ANWEAWYL -- score: 20
24: JALHISKSFIT IS LIKE ANWEAWYL -- score: 20
25: JALHISKSFIT IS LIKE ANWEAWZL -- score: 20
26: JALHISKS IT IS LIKE ANWEAAZL -- score: 21
27: JACHISKS IT IS LIKE ANWEASZL -- score: 22
28: JACHISKS IT IS LIKE ANWEASZL -- score: 22
29: MACHISKS IT IS LIKE ANWEASZL -- score: 23
30: MACHISKS IT IS LIKE ANWEASZL -- score: 23
31: MACHISKS IT IS LIKE AUWEASZL -- score: 23
32: MACHISKS IT IS LIKE AUWEASZL -- score: 23
33: MACHISKS IT IS LIKE AJWEASZL -- score: 23
34: MACHISKS IT IS LIKE A WEASZL -- score: 24
35: MACHISKS IT IS LIKE A WEASZL -- score: 24
36: MACHINKS IT IS LIKE A WEASZL -- score: 25
37: MACHINKS IT IS LIKE A WEASZL -- score: 25
38: MACHINKS IT IS LIKE A WEASZL -- score: 25
39: MBCHINKS IT IS LIKE A WEASZL -- score: 25
40: MBCHINKS IT IS LIKE A WEASZL -- score: 25
41: MBCHINKS IT IS LIKE A WEASZL -- score: 25
42: MBCHINKS IT IS LIKE A WEASZL -- score: 25
43: MBCHINKS IT IS LIKE A WEASZL -- score: 25
44: MBCHINKS IT IS LIKE A WEASZL -- score: 25
45: MECHINKS IT IS LIKE A WEASCL -- score: 26
46: MECHINKS IT IS LIKE A WEASCL -- score: 26
47: MECHINKS IT IS LIKE A WEASCL -- score: 26
48: MECHINKS IT IS LIKE A WEASCL -- score: 26
49: MECHINKS IT IS LIKE A WEASCL -- score: 26
50: MECHINKS IT IS LIKE A WEASCL -- score: 26
51: MEQHINKS IT IS LIKE A WEASCL -- score: 26
52: MEQHINKS IT IS LIKE A WEASCL -- score: 26
53: MEQHINKS IT IS LIKE A WEASCL -- score: 26
54: MEQHINKS IT IS LIKE A WEASCL -- score: 26
55: MEQHINKS IT IS LIKE A WEASCL -- score: 26
56: MEQHINKS IT IS LIKE A WEASCL -- score: 26
57: METHINKS IT IS LIKE A WEASCL -- score: 27
58: METHINKS IT IS LIKE A WEASCL -- score: 27
59: METHINKS IT IS LIKE A WEASCL -- score: 27
60: METHINKS IT IS LIKE A WEASCL -- score: 27
61: METHINKS IT IS LIKE A WEASCL -- score: 27
62: METHINKS IT IS LIKE A WEASCL -- score: 27
63: METHINKS IT IS LIKE A WEASCL -- score: 27
64: METHINKS IT IS LIKE A WEASCL -- score: 27
65: METHINKS IT IS LIKE A WEASEL -- score: 28

Ogromne podziękowania dla Sp3000 za pomoc w grze w golfa.

Rozpad beta
źródło
1

Julia, 281 bajtów

Gra w golfa:

r=n->['A':'Z',' '][rand(1:27,n)]
s=a->sum(a.=="METHINKS IT IS LIKE A WEASEL".data)
p=(z,a,s)->println(z,": ",join(a)," -- score: ",s)
a = r(28)
b = s(a)
z = 0
p(z,a,b)
while b<28
c=b
d=a
for i=1:100
e=[rand()<.95?i:r(1)[1]for i=a]
f=s(e)
if(f>c)
c=f
d=e
end
end
a=d
b=c
p(z,a,b)
z+=1
end

Sam algorytm nie jest zbyt sprytny, ale jest tu kilka fajnych elementów. Łącząc szereg znaków z inną postać, a następnie indeksowanie do niego: ['A':'Z',' '][rand(1:27,n)]a biorąc suma tablicę wartości logiczne (wspólne, ale wciąż kocham ten pomysł) sum(a.=="METHINKS IT IS LIKE A WEASEL".data). Cieszę się, że mam mniej niż 300!

Nie golfowany:

randchar = n -> ['A':'Z',' '][rand(1:27,n)]
score = a -> sum(a.=="METHINKS IT IS LIKE A WEASEL".data)
myprint = (z,a,s) -> println(z,": ",join(a)," -- score: ",s)
currentarray = randchar(28)
currentscore = score(currentarray)
z = 0
myprint(z,currentarray,currentscore)
while currentscore < 28
    bestscore = currentscore
    bestarray = currentarray
    for i = 1:100
        temparray = [rand()<.95?i:randchar(1)[1]for i=currentarray]
        tempscore = score(temparray)
        if(tempscore > bestscore)
            bestscore = tempscore
            bestarray = temparray
        end
    end
    currentarray = bestarray
    currentscore = bestscore
    myprint(z,currentarray,currentscore)
    z+=1
end
kevinsa5
źródło