Comparar texto

Encuentra la diferencia entre dos archivos de texto

Editor live

Ocultar espacios en blanco

Ocultar sin cambios

Sin ajuste de línea

Vista

Nivel de detalle

Estilos de texto

Resaltado de sintaxis

Diffchecker Desktop La forma más segura de usar Diffchecker. ¡Obtén la app de Diffchecker Desktop: tus diffs nunca salen de tu computadora!Obtener Desktop

Untitled diff

Creado hace 10 añosEl diff nunca expira

3 eliminaciones

Líneas
Total
Eliminado

Caracteres
Total
Eliminado

Para continuar usando esta función, actualice a Diffchecker Pro Ver precios

38 líneas

5 adiciones

Líneas
Total
Añadido

Caracteres
Total
Añadido

Para continuar usando esta función, actualice a Diffchecker Pro Ver precios

39 líneas

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

Diferencias guardadas

Texto original

Abrir archivo

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 modificado

Abrir archivo

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