view release on metacpan or  search on metacpan

README  view on Meta::CPAN

SYNOPSIS
      use Encode::Float;
      my $encoder = Encode::Float->new();
      my @list;
      for (my $i = 0 ; $i < 10 ; $i++)
      {
        my $float = (.5 - rand) * 10**int(10 - 20 * rand);
        $float = 0 if $i == 0;
        my $encoded = $encoder->encode($float);
        my $decoded = $encoder->decode($encoded);
        my $error   = $encoder->getRelativeDifference($float, $decoded);
        push @list, [ $encoded, $float, $decoded, $error ];
      }
      @list = sort { $a->[0] cmp $b->[0] } @list;
      foreach (@list)
      {
        print join(',', @$_) . "\n";
      }

DESCRIPTION
    "Encode::Float" encodes and decodes floating point numbers as fixed
    length positive decimal integers that preserve their order (less

lib/Encode/Float.pm  view on Meta::CPAN

=head1 SYNOPSIS

  use Encode::Float;
  my $encoder = Encode::Float->new();
  my @list;
  for (my $i = 0 ; $i < 10 ; $i++)
  {
    my $float = (.5 - rand) * 10**int(10 - 20 * rand);
    $float = 0 if $i == 0;
    my $encoded = $encoder->encode($float);
    my $decoded = $encoder->decode($encoded);
    my $error   = $encoder->getRelativeDifference($float, $decoded);
    push @list, [ $encoded, $float, $decoded, $error ];
  }
  @list = sort { $a->[0] cmp $b->[0] } @list;
  foreach (@list)
  {
    print join(',', @$_) . "\n";
  }

=head1 DESCRIPTION

C<Encode::Float> encodes and decodes floating point numbers