Comparer le texte

Trouver la différence entre deux fichiers texte

Éditeur live

Masquer les espaces

Cacher identiques

Sans retour à la ligne

Vue

Niveau de précision

Styles de texte

Coloration syntaxique

Diffchecker Desktop La façon la plus sécurisée d'utiliser Diffchecker. Obtenez l'application Diffchecker Desktop : vos diffs ne quittent jamais votre ordinateur !Obtenir Desktop

Untitled diff

Créé il y a 10 ansLe diff n'expire jamais

3 suppressions

Lignes
Total
Supprimé

Caractères
Total
Supprimé

Pour continuer à utiliser cette fonctionnalité, passez à Diffchecker Pro Voir les prix

38 lignes

5 ajouts

Lignes
Total
Ajouté

Caractères
Total
Ajouté

Pour continuer à utiliser cette fonctionnalité, passez à Diffchecker Pro Voir les prix

39 lignes

Public Sub Flood(value As Int, x As Int, y As Int, grid As Grid)

Public Sub Fill(value As Int, x As Int, y As Int, grid As Grid)

Dim top = y As Int

Dim matrix(,) = grid.matrix As Int

If value = matrix(x, y) Then Return

'--------------------------------------------------------------

stack.Clear

Dim x1 As Int

Dim spanAbove, spanBelow As Boolean

'--------------------------------------------------------------

stack.Add(Array As Int(x, y))

'--------------------------------------------------------------

Dim p() As Int

Do While (stack.Size > 0)

p = stack.Get(stack.Size - 1)

x = p(0) : y = p(1) : stack.RemoveAt(stack.Size - 1)

'----------------------------------------------------------

x1 = x : Do While (x1 >= 0 And matrix(x1, y) == 0) : x1 = x1 - 1 : Loop

'----------------------------------------------------------

x1 = x1 + 1 : spanAbove = False : spanBelow = False

'----------------------------------------------------------

Do While (x1 < grid.sizeX And matrix(x1, y) = 0)

matrix(x1, y) = value

'------------------------------------------------------

If (spanAbove = False And y > 0 And matrix(x1, y - 1) = 0) Then

If (spanAbove = False And y > top And matrix(x1, y - 1) = 0) Then

spanAbove = True : stack.Add(Array As Int(x1, y - 1))

Else If (spanAbove = True And y > 0 And matrix(x1, y - 1) > 0) Then

Else If (spanAbove = True And y > top And matrix(x1, y - 1) > 0) Then

spanAbove = False

End If

'------------------------------------------------------

If (spanBelow = False And y < grid.sizeY - 1 And matrix(x1, y + 1) = 0) Then

spanBelow = True : stack.Add(Array As Int(x1, y + 1))

Else If (spanBelow And y < grid.sizeY - 1 And matrix(x1, y + 1) > 0) Then

spanBelow = False

End If

'------------------------------------------------------

x1 = x1 + 1

Loop

End Sub

Différences enregistrées

Texte d'origine

Ouvrir un fichier

Public Sub Flood(value As Int, x As Int, y As Int, grid As Grid)
	Dim matrix(,) = grid.matrix As Int
	If value = matrix(x, y) Then Return
	'--------------------------------------------------------------
	stack.Clear
	Dim x1 As Int
	Dim spanAbove, spanBelow As Boolean
	'--------------------------------------------------------------
	stack.Add(Array As Int(x, y))
	'--------------------------------------------------------------
	Dim p() As Int
	Do While (stack.Size > 0)
		p = stack.Get(stack.Size - 1)
		x = p(0) : y = p(1) : stack.RemoveAt(stack.Size - 1)
		'----------------------------------------------------------
		x1 = x : Do While (x1 >= 0 And matrix(x1, y) == 0) : x1 = x1 - 1 : Loop
		'----------------------------------------------------------
		x1 = x1 + 1 : spanAbove = False : spanBelow = False
		'----------------------------------------------------------
		Do While (x1 < grid.sizeX And matrix(x1, y) = 0)
			matrix(x1, y) = value
			'------------------------------------------------------
			If (spanAbove = False And y > 0 And matrix(x1, y - 1) = 0) Then
				spanAbove = True : stack.Add(Array As Int(x1, y - 1))
			Else If (spanAbove = True And y > 0 And matrix(x1, y - 1) > 0) Then 
				spanAbove = False
			End If
			'------------------------------------------------------
			If (spanBelow = False And y < grid.sizeY - 1 And matrix(x1, y + 1) = 0) Then
				spanBelow = True : stack.Add(Array As Int(x1, y + 1))
			Else If (spanBelow And y < grid.sizeY - 1 And matrix(x1, y + 1) > 0) Then
				spanBelow = False
			End If
			'------------------------------------------------------
			x1 = x1 + 1
		Loop
	Loop	
End Sub

Texte modifié

Ouvrir un fichier

Public Sub Fill(value As Int, x As Int, y As Int, grid As Grid)
	Dim top = y As Int
	Dim matrix(,) = grid.matrix As Int
	If value = matrix(x, y) Then Return
	'--------------------------------------------------------------
	stack.Clear
	Dim x1 As Int
	Dim spanAbove, spanBelow As Boolean
	'--------------------------------------------------------------
	stack.Add(Array As Int(x, y))
	'--------------------------------------------------------------
	Dim p() As Int
	Do While (stack.Size > 0)
		p = stack.Get(stack.Size - 1)
		x = p(0) : y = p(1) : stack.RemoveAt(stack.Size - 1)
		'----------------------------------------------------------
		x1 = x : Do While (x1 >= 0 And matrix(x1, y) == 0) : x1 = x1 - 1 : Loop
		'----------------------------------------------------------
		x1 = x1 + 1 : spanAbove = False : spanBelow = False
		'----------------------------------------------------------
		Do While (x1 < grid.sizeX And matrix(x1, y) = 0)
			matrix(x1, y) = value
			'------------------------------------------------------
			If (spanAbove = False And y > top And matrix(x1, y - 1) = 0) Then
				spanAbove = True : stack.Add(Array As Int(x1, y - 1))
			Else If (spanAbove = True And y > top And matrix(x1, y - 1) > 0) Then 
				spanAbove = False
			End If
			'------------------------------------------------------
			If (spanBelow = False And y < grid.sizeY - 1 And matrix(x1, y + 1) = 0) Then
				spanBelow = True : stack.Add(Array As Int(x1, y + 1))
			Else If (spanBelow And y < grid.sizeY - 1 And matrix(x1, y + 1) > 0) Then
				spanBelow = False
			End If
			'------------------------------------------------------
			x1 = x1 + 1
		Loop
	Loop	
End Sub