Comparar texto

Encontre a diferença entre dois arquivos de texto

Editor live

Ocultar espaços em branco

Recolher inalteradas

Sem quebra de linha

Layout

Nível de detalhe

Estilos de texto

Realce de sintaxe

Diffchecker Desktop A maneira mais segura de usar o Diffchecker. Obtenha o aplicativo Diffchecker Desktop: seus diffs nunca saem do seu computador!Obter Desktop

Untitled diff

Criado há 10 anosO diff nunca expira

3 remoções

Linhas
Total
Removido

Caracteres
Total
Removido

Para continuar usando este recurso, atualize para Diffchecker Pro Ver preços

38 linhas

5 adições

Linhas
Total
Adicionado

Caracteres
Total
Adicionado

Para continuar usando este recurso, atualize para Diffchecker Pro Ver preços

39 linhas

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

Diferenças salvas

Texto original

Abrir arquivo

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

Texto alterado

Abrir arquivo

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