Calculadora com Perl com menos de 10 linhas de código

Publicado por Thiago Glauco Sanchez (última atualização em 24/05/2010)

[ Hits: 5.576 ]

Homepage: www.ticursos.net/ambiente_academico

Download calc.pl




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

  



Esconder código-fonte

use Math::Trig;
while(my $expr = <STDIN>){
chomp($expr);
my $result = eval $expr;
print $result, "\n";}'

Scripts recomendados

Hebraic Style

Viva o Linux for Torsmo

Configurar ADB no linux

Índice (Logaritmo Discreto) em Perl

Listar arquivos


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário