Soient deux chaînes de caractères s1 et s2. On appelle battage de s1 et s2 toute chaîne s composée de tous les caractères de s1 et de s2, 
telle que l'ordre des caractères de s1 et l'ordre des caractères de s2 ne soit pas modifié dans s, et que les caractères de s1
et les caractères de s2 n'apparaissent qu'une fois dans s.

int battage(const char *s1, const char *s2, const char *s, int strlen1, int strlen2, int strlen3)
{
  int i;
  if(strlen1==0) {
    for(i=0; i<strlen2; i++) {
      if(s2[i]!=s[i]) return 0;
    }
    return 1;
  }
  if(strlen2==0) {
    for(i=0; i<strlen1; i++) {
      if(s1[i] != s[i]) return 0;
    }
    return 1;
  }
  if(s[0]==s1[0]) {
    if(battage(s1+1, s2, s+1, strlen1-1, strlen2, strlen3-1)) return 1;
  }
  if(s[0]==s2[0]) {
    if(battage(s1, s2+1, s+1, strlen1, strlen2-1, strlen3-1)) return 1;
  }
  return 0;
}

Function Battage(ByVal S1 As String, ByVal S2  As String, ByVal S As  String) As  Boolean
    Dim i%
    
    If Not (Len(S1) + Len(S2) = Len(S)) Then Battage = False: Exit  Function
    
    If Len(S1) = 0 Then
        For i = 0 To Len(S2) - 1
            If Not (Mid$(S2, i + 1, 1) = Mid$(S,  i + 1, 1)) Then  Battage = False: Exit  Function
        Next i
        Battage = True: Exit Function
    End If
    If Len(S2) = 0 Then
        For i = 0 To Len(S1) - 1
            If Not (Mid$(S1, i + 1, 1) = Mid$(S,  i + 1, 1)) Then  Battage = False: Exit  Function
        Next i
        Battage = True: Exit Function
    End If
    If Mid$(S1, 1, 1) = Mid$(S, 1, 1) Then
        If Battage(Right$(S1, Len(S1) - 1), S2, Right$(S, Len(S) - 1)) Then  Battage = True: Exit Function
    End If
    If Mid$(S2, 1, 1) = Mid$(S, 1, 1) Then
        If Battage(S1, Right$(S2, Len(S2) - 1), Right$(S, Len(S) - 1)) Then  Battage = True: Exit Function
    End If
    Battage = False
End Function

Function Battage(ByVal S1 As String, ByVal S2 As String, ByVal S As String) As Boolean

  Dim i As Integer

  If Not (S1.Length + S2.Length = S.Length) Then Return False

  If S1.Length = 0 Then
    For i = 0 To S2.Length - 1 
      If Not S2.Chars(i) = S.Chars(i) Then Return False
    Next i 
    Return True

  End If

  If S2.Length = 0 Then
    For i = 0 To S1.Length - 1 
      If Not S1.Chars(i) = S.Chars(i) Then Return False
    Next i 
    Return True

  End If

  If S1.Chars(0) = S.Chars(0) Then

    If Battage(S1.Substring(1), S2, S.Substring(1)) Then Return True

  End If

  If S2.Chars(0) = S.Chars(0) Then

    If Battage(S1, S2.Substring(1), S.Substring(1)) Then Return True

  End If

  Return False

End Function

function Battage(const S1, S2, S: string): Boolean;
var
  i: Integer;
  Index1, Index2: Integer;
begin
  Result := False;
  if S1 = '' then
    Result := S = S2;
  if S2 = '' then
    Result := S = S1;
  Index1 := 1;
  Index2 := 1;
  for i := 1 to Length(S) do
  begin    
    if S[i] = S1[Index1] then
      Inc(Index1)
    else
    if S[i] = S2[Index2] then
      Inc(Index2)
    else
      Exit;
  end;
  Result := Length(S) = Length(S1) + Length(S2);
end;