Planlos' Perl-Lieblings-Einzeiler

[Vlad T. (vlad_tepesch)]

Beitrag "Re: switch-case Anweisung"

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)?

[Kunstflug (Gast)]

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.

[Planlos (Gast)]

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)".

[Vlad T. (vlad_tepesch)]

ich versuch das mal aufzuschlüsseln:

$_ = 1;

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

Was bleibt ist der unklare regex

[Vlad T. (vlad_tepesch)]

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 :)