#!/usr/bin/perl

# Konwersja liczby miedzy dwoma podstawami logarytmicznymi.
#
# Przyklad: konwersja_log(8, 2, 5) daje w wyniku 125, poniewaz
# logarytm 8 o podstawie 2 jest rowny logarytmowi 125 o podstawie 5.

sub konwersja_log {
my ($liczba, $podstawa_wej, $podstawa_wyj) = @_;
return $podstawa_wyj ** podstawa_log($liczba, $podstawa_wej);
}

print konwersja_log(8, 2, 5),    "\n"; logarytm 8 o podstawie 2 po konwersji do logarytmu o podstawie 5
print konwersja_log(10, 2, 4),   "\n"; logarytm 8 o podstawie 2 po konwersji do logarytmu 2 o podstawie 4
print konwersja_log(2, 10, 100), "\n"; logarytm 2 o podstawie 10 po konwersji do logarytmu o podstawie 100


