Calculadora com Perl com menos de 10 linhas de código
Um script simples que calcula expressões matemáticas inteiras, como 5 + 5 ou 10 * 3 ou 2*(3+10/5). Mostra como este tipo de coisa é mais simples em Peerl que em C ou outras linguagens. O script todo tem 5 linhas.
Ex.:
5 + 3 *(25/5)
20
tan deg2rad 45
1
sin 90
0.893996663600558
sin 0
0
cos 45
0.52532198881773
sin 45
0.850903524534118
2**2
4
5 + 3**3
32
Funções:
sin cos e tan, que recebem dados em radianos. Para converter graus em radianos use deg2rad como nos exemplos.
Para sair digite: ctrl + c
Ex.:
5 + 3 *(25/5)
20
tan deg2rad 45
1
sin 90
0.893996663600558
sin 0
0
cos 45
0.52532198881773
sin 45
0.850903524534118
2**2
4
5 + 3**3
32
Funções:
sin cos e tan, que recebem dados em radianos. Para converter graus em radianos use deg2rad como nos exemplos.
Para sair digite: ctrl + c
Descrição
Um script simples que calcula expressões matemáticas inteiras, como 5 + 5 ou 10 * 3 ou 2*(3+10/5). Mostra como este tipo de coisa é mais simples em Peerl que em C ou outras linguagens. O script todo tem 5 linhas.
Ex.:
5 + 3 *(25/5)
20
tan deg2rad 45
1
sin 90
0.893996663600558
sin 0
0
cos 45
0.52532198881773
sin 45
0.850903524534118
2**2
4
5 + 3**3
32
Funções:
sin cos e tan, que recebem dados em radianos. Para converter graus em radianos use deg2rad como nos exemplos.
Para sair digite: ctrl + c
Ex.:
5 + 3 *(25/5)
20
tan deg2rad 45
1
sin 90
0.893996663600558
sin 0
0
cos 45
0.52532198881773
sin 45
0.850903524534118
2**2
4
5 + 3**3
32
Funções:
sin cos e tan, que recebem dados em radianos. Para converter graus em radianos use deg2rad como nos exemplos.
Para sair digite: ctrl + c
use Math::Trig;
while(my $expr = <STDIN>){
chomp($expr);
my $result = eval $expr;
print $result, "\n";}'