// Wyszukiwanie słów podwójnych
// Data: 23.07.2008
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

program prg;

const M = 20; // długość łańcucha s

var
  s : ansistring;
  i, j, n : integer;

begin

// generujemy łańcuch s

  randomize;
  s := '';
  for i := 1 to M do
    s := s + chr ( 65 + random ( 2 ) );

// wypisujemy łańcuch s

  writeln ( s );

// szukamy słów podwójnych

  for i := 1 to M - 1 do
  begin
    n := 2;
    while i + n <= M + 1 do
    begin
      j := i + n div 2;
      if copy ( s, i, j - i ) = copy ( s, j, j - i ) then
      begin
        for j := 2 to i do write ( ' ' );
        writeln ( copy ( s, i, n ) );
      end;
      inc ( n, 2 );
    end;
  end;
  writeln;
end.

// Wyszukiwanie słów podwójnych
// Data: 23.07.2008
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

#include <iostream>
#include <string>
#include <cstdlib>
#include <time.h>

using namespace std;

int main( )
{
  const int M = 20; // długość łańcucha s
  string s;
  int i, j, n;

// generujemy łańcuch s

  srand ( ( unsigned )time ( NULL ) );
  s = "";
  for( i = 0; i < M; i++ )
    s += char ( 65 + rand( ) % 2 );

// wypisujemy łańcuch s

  cout << s << endl;

// szukamy słów podwójnych

  for( i = 0; i < M - 1; i++ )
    for( n = 2; i + n <= M; n += 2 )
    {
      j = i + n / 2;
      if( s.substr ( i, j-i ) == s.substr ( j, j-i ) )
      {
        for( j = 0; j < i; j++ ) cout << " ";
        cout << s.substr ( i, n ) << endl;
      }
    }
  cout << endl;
  return 0;
}

' Wyszukiwanie słów podwójnych
' Data: 23.07.2008
' (C)2020 mgr Jerzy Wałaszek
'-----------------------------

Const M = 20 ' długość łańcucha s
Dim As String s
Dim As Integer i, j, n

' generujemy łańcuch s

Randomize
s = ""
For i = 1 To M: s += Chr ( 65 + Cint ( Rnd ) ): Next

' wypisujemy łańcuch s

Print s

' szukamy słów podwójnych

For i = 1 To M - 1
  n = 2
  While i + n <= M + 1
    j = i + n \ 2
    If Mid ( s, i, j - i ) = Mid ( s, j, j - i ) Then
      For j = 2 To i: Print " ";: Next
      Print Mid ( s, i, n )
    End If
    n += 2
  Wend
Next
Print
End

// Wyszukiwanie słów podwójnych
// Data: 9.08.2008
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

program prg;

const N = 20; // długość łańcucha s

var
  s : ansistring;
  i, j, k, b, b2 : integer;
  PI : array [ 0..N ] of integer;
  P  : array [ 0..N shr 1 ] of boolean;

begin

// generujemy łańcuch s

  randomize;
  s := '';
  for i := 1 to N do
    s := s + chr ( 65 + random ( 2 ) );

// wypisujemy łańcuch s

  writeln ( s );

// szukamy słów podwójnych

  for j := 1 to N - 1 do
  begin
    PI [ 0 ] := -1; b := -1;
    for i := 1 to N - j + 1 do
    begin
      while( b > -1 ) and ( s [ j+b ] <> s [ j+i-1 ] ) do
        b := PI [ b ];
      inc ( b ); PI [ i ] := b; b2 := b shl 1;
      if i and 1 = 0 then
      begin
        P [ i shr 1 ] := false;
        if( b2 < i ) then continue;
        if( b2 > i ) then
        begin
          if b2 = b < ( i shl 1 ) then continue;
          if not ( P [ ( b2 - i ) shr 1 ] ) then continue;
        end;
        P [ i shr 1 ] := true;
        for k := 2 to j do write ( ' ' );
        writeln ( copy ( s, j, i ) );
      end;
    end;
  end;
  writeln;
end.

// Wyszukiwanie słów podwójnych
// Data: 9.08.2008
// (C)2020 mgr Jerzy Wałaszek
//-----------------------------

#include <iostream>
#include <string>
#include <cstdlib>
#include <time.h>

using namespace std;

const int N = 20; // długość łańcucha s

int main( )
{
  string s;
  int i, j, k, b, b2, PI [ N+1 ];
  bool P [ N >> 1 ];

// generujemy łańcuch s

  srand ( ( unsigned )time ( NULL ) );
  s = "";
  for( i = 0; i < N; i++ )
    s += char ( 65 + rand( ) % 2 );

// wypisujemy łańcuch s

  cout << s << endl;

// szukamy słów podwójnych

  for( j = 0; j < N - 1; j++ )
  {
    PI [ 0 ] = b = -1;
    for( i = 1; i <= N - j; i++ )
    {
      while( ( b > -1 ) && ( s [ j + b ] != s [ j + i - 1 ] ) )
        b = PI [ b ];
      PI [ i ] = ++b; b2 = b << 1;
      if( ! ( i & 1 ) )
      {
        P [ i >> 1 ] = false;
        if( b2 < i ) continue;
        if( b2 > i )
        {
          if( b2 = b < ( i << 1 ) ) continue;
          if( !P [ ( b2 - i ) >> 1 ] ) continue;
        }
        P [ i >> 1 ] = true;
        for( k = 0; k < j; k++ ) cout << " ";
        cout << s.substr ( j, i ) << endl;
      }
    }
  }
  cout << endl;
  return 0;
}

' Wyszukiwanie słów podwójnych
' Data: 9.08.2008
' (C)2020 mgr Jerzy Wałaszek
'-----------------------------

Const N = 20 ' długość łańcucha s

Dim As String s
Dim As Integer i, j, k, b, b2, PI ( N )
Dim As Byte P ( N Shr 1 )

' generujemy łańcuch s

Randomize
s = ""
For i = 1 To N: s += Chr ( 65 + Cint ( Rnd ) ): Next

' wypisujemy łańcuch s

Print s

' szukamy słów podwójnych

For j = 1 To N - 1
  PI ( 0 ) = -1: b = -1
  For i = 1 To N - j + 1
    while( b > -1 ) And ( Mid ( s, j + b, 1 ) <> Mid ( s, j + i - 1, 1 ) ): b = PI ( b ): Wend
    b += 1: PI ( i ) = b: b2 = b Shl 1
    if( i And 1 ) = 0 Then
      P ( i Shr 1 ) = 0
      if( b2 < i ) Then Continue For
      if( b2 > i ) Then
        If b2 = b < ( i Shl 1 ) Then Continue For
        If P ( ( b2 - i ) Shr 1 ) = 0 Then Continue For
      End If
      P ( i Shr 1 ) = 1
      For k = 2 To j: Print " ";: Next
      Print Mid ( s, j, i )
    End If
  Next
Next
Print
End