fmle - Challenge 2 - FULL - Perl

1
2
3

#!/usr/bin/perl
@dias = ("Domingo", "Segunda", "Terca", "Quarta", "Quinta", "Sexta", "Sabado"); # Vetor com os dias da semana.
((($dia = substr(<>, 0, -1)) == int($dia)) && ($dia > 0) && ($dia < 8)) ? print "$dias[$dia-1]\n" : print "Numero invalido\n"; # Verifica se o número é inteiro e se há um dia da semana correspondente ao mesmo.

1
2
3
4
5
6

#!/usr/bin/perl
@arr = (0, 32, 0, 13, -1, 10000); # Limite superior de inferior de dia, mês e ano, respectivamente.
die "Formato inválido.\n" if ((@date = split(/\//, <>)) != 3); # Atribui ao vetor @date a data passada e verifica o formato dd/mm/aaaa.
map { $invalid |= !(($arr[0] < $_) & ($_ < $arr[1])), splice(@arr, 0, 2) } @date; # Verifica se é a data válida.
die "Data inválida.\n" if $invalid; # Se não, terminar a execução.
((!($date[2]%4) && ($date[2]%100)) || (!$date[2]%400)) ? print "Ano é bissexto\n" : print "Ano não é bissexto.\n"; # Verifica se o ano é bissexto.

1
2

#!/usr/bin/perl
do { print "Entre com uma nota de 0 a 10\n"; } while( (($input = substr(<>, 0, -1))*1 ne $input) || ($input < 0) || ($input > 10) ); # Imprime uma mensagem enquanto a entrada não for um número, inteiro ou ponto flutuante, entre e incluindo 0 e 10.

1
2

#!/usr/bin/perl
do { print "Entre com usuário e senha diferentes separadas por um espaço.\n"; } while((@auth = split(/ +/, substr(<>, 0, -1))) && ($auth[0] eq $auth[1])) #Imprime uma mensagem até que o usuário($auth[0]) seja diferente da senha($auth[1]).

1
2
3
4

#!/usr/bin/perl
print "Entre com o número de anos que fuma, quantos cigarros fuma por dia e o preço da carteira de cigarro separados por um espaço.\n";
@data = split(/ +/, substr(<>, 0, -1)); # Preenche o vetor @data com os dados do fumante.
print ((int($data[0]*365*$data[1]/20) + ($data[0]*365*$data[1]%20 ? 1 : 0))*$data[2], "\n"); # Imprime o valor gasto, considerando uma carteira de 20 cigarros.

1
2
3
4

#!/usr/bin/perl
%tel = ("Fulano", "334-45566", "Cicrano", "112-23344", "Beltrano", "551-12233", "Zé", "443-34422", "Toinho", "661-12233", "Luizinho", "776-65577"); # Vetor associativo com os nomes e telefones de cada um.
if ($tel_key = $tel{substr(<>, 0, -1)}) { print "$tel_key\n"; } # Imprime o telefone se existir.
else { print "Não consta.\n"; } # Caso o telefone nao exista.

1
2
3

#!/usr/bin/perl
@main = ([split(/ +/, substr(<>, 0, -1))], [split(/ +/, substr(<>, 0, -1))]); # @main será um vetor bidimensional com os dados do dois vetores de entrada.
for (0 .. 20) { print "$main[$_/10][$_%10]\n"; } # Imprime o vetor na ordem correta.

1
2
3
4
5

#!/usr/bin/perl
@class = (("Inocente") x 2, "Suspeita", ("Cúmplicie") x 2, "Assasino"); # Vetor com as classificações da pessoa.
@qs = ("Telefonou para a vitima?", "Esteve no local do crime?", "Mora perto da vitima?", "Devia para a vitima?", "Ja trabalhou com a vitima"); # Vetor com as perguntas.
foreach (@qs) { print "$_ [s/n]\n"; $s++ if (substr(<>, 0, -1) eq "s"); } # Imprime as perguntas e conta em $s quantas respostas foram 's'.
print "$class[$s]\n"; # Imprime a classificação da pessoa.

1
2
3
4
5

#!/usr/bin/perl
@str = (substr(<>, 0, -1), substr(<>, 0, -1)); # Armazena as strings no vetor @str.
map { print "\"$_\". Tamanho: ", length($_), " caracteres.\n" } @str; # Imprime as duas strings e seus respectivos tamanhos.
print "As strings tem tamanhos ", ("diferentes", "iguais")[length($str[0]) == length($str[1])], ".\n"; # Indica se as strings têm os mesmo tamanho.
print "As strings tem conteudos ", ("diferentes", "iguais")[$str[0] eq $str[1]], ".\n" # Indica se as strings são iguais.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

#!/usr/bin/perl
@crivo = grep { $_ % 2 == 1 } 3 .. 2000000; # Vetor com todos os ímpares até 2000000.
$size = @crivo; # Size recebe o tamanho de @crivo.
for ($i = 0; $i < $size; $i++) { # Algoritmo para encontrar os primos.
	if ($crivo[$i]) {
		$count++;
		$sum += $crivo[$i];
		for($j = $i+2*$crivo[$i]; $j < $size; $j+=2*$crivo[$i]) {
			$crivo[$j] = 0;
		}
	}
}
print $count+1, "\n"; # Imprime o número de primos encontrados mais o dois, que ainda não contamos.
print $sum+2, "\n"; # Imprime a soma dos primos encontrados mais dois, que ainda não somamos.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

#!/usr/bin/perl
while(++$x) { # Iterar para todos os x > y > z até achar uma resposta.
	$y = 0;
	while(++$y < $x) {
		$z = 0;
		while(++$z < $y) {
			if( # Testa se as somas e diferenças são quadrados perfeitos.
				(sqrt(($x+$y)) =~ /^\d+$/) &&
				(sqrt(($x-$y)) =~ /^\d+$/) &&
				(sqrt(($x-$z)) =~ /^\d+$/) &&
				(sqrt(($x+$z)) =~ /^\d+$/) &&
				(sqrt(($y+$z)) =~ /^\d+$/) &&
				(sqrt(($y-$z)) =~ /^\d+$/) ) { print "x + y + z = ", $x+$y+$z, "\n"; exit(0); } 
		}
	}
}