Planlos' Perl-Lieblings-Einzeiler

Vlad T. (vlad_tepesch) OP 28.10.2015 17:36 #4327135

Lesenswert?

•

Beitrag "Re: switch-case Anweisung"

1	`perl -wle '$_=1;(1x$_)!~/^(11+)\1+$/&&print while++$_'`


Ich kann ja eigentlich ganz gut perl, aber kann das jemand erklären, 
warum es das tut, was es tut (Primzahlen berechnen)?

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Kunstflug Gast 28.10.2015 17:41 #4327139

Lesenswert?

•

▲
▼

Gutes Programm.

String found where operator expected at line 1, near "wle '$_=1;(1x$_)!~/^(11+)\1+$/&&print while++$_'"
  (Do you need to predeclare wle?)
syntax error at line 1, near "wle '$_=1;(1x$_)!~/^(11+)\1+$/&&print while++$_'"
Execution aborted due to compilation errors.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Planlos Gast 28.10.2015 17:43 #4327144

Lesenswert?

•

▲
▼

Der Trick ist, die Zahlen werden der Reihe nach in "Unär"-Schreibweise 
gebracht.
also
1
11
111
1111
usw.

Dann wird per Regex geprüft, ob es einen mindestens zweibuchstabigen 
Teilstring gibt '(11+)', der sich mehrfach wiederholen lässt, um den 
ganzen String zu matchen (\1+).

d.H. 1111 fliegt raus, weil es durch "zwei teilbar" ist: "(11)(11)".

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Vlad T. (vlad_tepesch) OP 28.10.2015 17:43 #4327145

Lesenswert?

•

▲
▼

ich versuch das mal aufzuschlüsseln:

  $str = 1x$_;  # Hänge '1' $_ mal einandander
  $regexMatched = $str =~ /^(11+)\1+$/;
  if(! $regexMatched){
    print $_ .$/;
}while(++$_);


Was bleibt ist der unklare regex

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Vlad T. (vlad_tepesch) OP 28.10.2015 17:48 #4327153

Lesenswert?

•

▲
▼

Planlos schrieb:
> Dann wird per Regex geprüft, ob es einen mindestens zweibuchstabigen
> Teilstring gibt '(11+)', der sich mehrfach wiederholen lässt, um den
> ganzen String zu matchen (\1+).

ahh, ok - verstehe.
Die Anker zwingen, dass der ganze string restlos auf vielfache von 
irgendeinem vielfachen von '1' werden muss.

Und wenn das möglich ist, kann es keine Primzahl an 1en sein,

Danke :)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren