[Rio-pm] Comparação de arquivos

[breno]

2012/11/25 Tiago Peczenyj <tiago.peczenyj em gmail.com>:
> nem perl. senão ele saberia que o correto é
>
> $E = m*c**2
>

ou, para cobrir todos os casos,

-------------8<-------------
use bignum;
use constant c => 299_792_458;
my $m = massa();
my $p = momentum();

my $E = sqrt( ($m * c**2)**2 + ($p * c)**2 );
------------->8-------------

=P

[]s

-b