Eine Zeichenfolge ist quadratfrei, wenn sie zweimal hintereinander keine Teilzeichenfolge enthält.
Es ist möglich, ein beliebig langes quadratfreies Wort mit einem 3-Buchstaben-Alphabet zu haben.
Ein Programm schreiben , das eine positive ganze Zahl n von stdin nimmt und druckt jedes quadrat Wort der Länge n, unter Verwendung von Zeichen A, Bund C.
Der kürzeste Code gewinnt.
Antworten:
~1,{.{!}%+}2$*1,/<{,65+}%n+
Der Ansatz ist eine triviale Variante einer der in Wikipedia beschriebenen: die Lauflängen von 1s in der Thue-Morse-Sequenz.
Wenn die zusätzliche nachfolgende Newline nicht akzeptabel ist, kann sie auf Kosten eines Zeichens durch Ersetzen ndurch entfernt werden ''.
n=input()
x=[0]
exec"x+=[1-y for y in x];"*n
print''.join('ABC'[x[i+1]-x[i]]for i in range(n))
Es verwendet die Thue-Morse-Sequenzmethode aus Wikipedia.
Effiziente Version (100 Zeichen):
n=input()
x=[0]
while x==x[:n]:x+=[1-y for y in x]
print''.join('ABC'[x[i+1]-x[i]]for i in range(n))
Verwenden Sie die Methode von John Leech, wie auf der verlinkten Wiki-Seite beschrieben.
s='A'
n=input()
while len(s)<=n:s=''.join('ABCBCACABBCAABCCABBCACABABCBCACABBCAABC'[ord(t)%5::3]for t in s)
print s[:n]
'ABCBCACABBCAABCCABBCACABABCBCACABBCAABC'[ord(t)%5::3]
while s[:n]==s:spart 1 mehr
Das ist ziemlich ineffizient. Es generiert eine viel, viel längere Zeichenfolge als erforderlich und schneidet sie dann ab. Das Zwischenprodukt sfür n=7ist beispielsweise 62748517 (13 n ) Zeichen lang
s='A'
n=input()
exec"s=''.join('ABCBCACABBCAABCCABBCACABABCBCACABBCAABC'[ord(t)%5::3]for t in s);"*n
print s[:n]
Bearbeiten : Ein vollständiges Umschreiben mit Rekursion ( NestWhile). Viel schneller und ohne unnötigen Aufwand.
Code
g@n_:=StringTake[NestWhile[#~StringReplace~{"A"-> "ABCBACBCABCBA","B"-> "BCACBACABCACB",
"C"->"CABACBABCABAC"}&,"ABC",StringLength[#]<n&],n]
Verwendungszweck
Es dauert ungefähr 1/40 Sek., Um ein ternäres quadratfreies Wort mit einer Million Zeichen zu erzeugen.
g[10]
g[53]
g[506]
AbsoluteTiming[g[10^6];]
Überprüfen
f testet, ob eine Zeichenfolge quadratfrei ist.
f[s_]:=StringFreeQ[s, x__~~x__]
Überprüfen Sie die obigen Ausgänge und einen Fall, in dem die Zeichenfolge "CC" angezeigt wird.
f@Out[336]
f@Out[337]
f@Out[338]
f["ABCBACBCABCBABCACBACCABCACBCABACBABCABACBCACBACABCACBA"]
Richtig
Richtig
Richtig
Falsch
exec"x+=[1-y for y in x];"*nspart 6 Zeichen auf Kosten der Effizienz - aber hey, das ist Golf!