Código de Perl - Distancia de Hamming en Perl

Imágen de perfil

Distancia de Hamming en Perlgráfica de visualizaciones


Perl

Publicado el 10 de Octubre del 2020 por Administrador (718 códigos)
332 visualizaciones desde el 10 de Octubre del 2020
Este algortimo está definido solamente para cadenas que tienen la misma longitud, es decir que, para dos cadenas de igual longitud "h1" y "h2", su distancia d(h1,h2) es igual al número de posiciones en los cuales ambas cadenas son diferentes entre sí.

Debido a lo mencionado anteriormente, si el algoritmo se aplica a hileras de igual tamaño entonces se utilizan vectores con la misma dimensión. En caso contrario, se rellena la hilera más pequeña hacia la derecha con espacios vacíos.

Entre más cerca de cero se encuentre la distancia, son más parecidas las hileras.

1

Publicado el 10 de Octubre del 2020gráfica de visualizaciones de la versión: 1
333 visualizaciones desde el 10 de Octubre del 2020
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella


Forma parte de Distancia de Hamming
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#!/usr/bin/perl -w
use strict;
use warnings;
 
#Comienza a ejecutarse el programa.
my $continuar = "Si";
while($continuar eq "Si" || $continuar eq "si" || $continuar eq "SI"){
	my $hilera1;
	my $hilera2;
	print "DISTANCIA DE HAMMING\n\n";
 
	print "Digite la hilera 1: ";
	$hilera1 = <STDIN>;
	chop($hilera1);
	print "\nDigite la hilera 2: ";
	$hilera2 = <STDIN>;
	chop($hilera2);
	print "\n";
 
	chomp($hilera1);
	chomp($hilera2);
 
	my $tamH1 = length($hilera1);
	my $tamH2 = length($hilera2);
	my $dif = 0;
	my $tam = length($hilera2);
 
	if($tamH1 < $tamH2){
		$dif = $tamH2 - $tamH1;
		for(my $i = 0; $i < $dif; $i++) {
			$hilera1 = $hilera1." ";
		}
		$tam = $tamH2;
	}
	else{
		if($tamH1 > $tamH2){
			$dif = $tamH1 - $tamH2;
			for(my $i = 0; $i < $dif; $i++) {
				$hilera2 = $hilera2." ";
			}
			$tam = $tamH1;
		}
	}
	my $distHamming = 0;
	my $caracter1 = "";
	my $caracter2 = "";
	my $cadena1 = "";
	my $cadena2 = "";
	my $cadena3 = "";
 
	for(my $i = 0; $i < $tam; $i++) {
		$caracter1 = substr($hilera1,$i,1);
		$caracter2 = substr($hilera2,$i,1);
		$cadena1 = $cadena1.$caracter1." ";
		$cadena2 = $cadena2.$caracter2." ";
 
		if($caracter1 ne $caracter2){
			$distHamming++;
			$cadena3 = $cadena3.("X")." ";
		}
		else{
			$cadena3 = $cadena3.("&")." ";
		}
	}
 
	print "$cadena1\n$cadena2\n$cadena3";
	print "\n\nLa distancia de Hamming es: $distHamming\n\n";
 
	print "\n\nDesea calcular la distancia de Hamming para otras dos hileras(Si/No)? ";
	$continuar = <STDIN>;
	chop($continuar);
}



Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s6531