Help for this page

Select Code to Download


  1. or download this
    $s = 'aaaabaaaabaaaaabaaaab';;
$s =~ m[(.+).*\1] and print $1;;
aaaabaaaab
  2. or download this
    aaaabaaaabaaaaabaaaab
aaaabaaaab aaaabaaaab
1         ^2
  3. or download this
    $s = 'aaaabaaaabaaaaabaaaab';;
$s =~ m[(.+)\1] and print $1;;
aaaab
  4. or download this
    aaaabaaaabaaaaabaaaab
aaaabaaaab aaaabaaaab
1    2    ^3    4