Daily Challenge #30 - What is the price?

#!/usr/bin/perl
use warnings;
use strict;

sub original_price {
    my ($sale_price, $discount) = @_;
    sprintf '%.2f', $sale_price / (1 - $discount / 100)
}

use Test::More tests => 3;

is original_price(75,    25), '100.00';
is original_price(50,    50), '100.00';
is original_price(51.98, 30), '74.26';

def DiscoverOriginalPrice(sale_price, discount)
  sale_percent = sale_price / (100.00 - discount)
  original_price = sale_percent * 100.00
  original_price.round(2)
end

DiscoverOriginalPrice(75,25) => 100.0 # Close, but it should be 100.00
DiscoverOriginalPrice(51.98,30) => 74.26 
DiscoverOriginalPrice(50,50) => 100.0 # Close, but it should be 100.00

DiscoverOriginalPrice = (price, disc) => Math.round(price/((100 - disc)/100) * 100) / 100 

defmodule Price do
  def original(price, discount),
    do: Float.round(price * 100 / (100 - discount), 2)
end

const discoverOriginalPrice = (salePrice, discount) => isFinite(a = (salePrice / ((100 - discount) / 100)).toFixed(2)) ? a : 0;

def DiscoverOriginalPrice(new_price, discount):
    return '%.2fM' %((new_price*100)/(100-discount))