<?php 
error_reporting(-1); 
function credit($percent, $commission, $moneyOwed, $monthPayment) {
global $i;
for ($i=-1; $moneyOwed>0; $i++) { 
$moneyOwed=$moneyOwed*(1+$percent)+$commission-$monthPayment; 
if (($moneyOwed*(1+$percent)+$commission)<=$monthPayment) { 
$monthPayment=$moneyOwed*(1+$percent)+$commission;} 
$totalPayment=$totalPayment+$monthPayment;
};
return $totalPayment; }; 
echo "Bank HomoCredit\n"; 
$homoCredit=array(0.04, 500); 
$softBank=array(0.03, 1000);
$strawberryBank=array(0.02, 0);
$percent=0.04; $commission=500; 
$moneyOwed=39999; 
$monthPayment=5000; 
$HomoCreditPayment=credit($homoCredit[0], $homoCredit[1], $moneyOwed, $monthPayment); 
echo "{$i} months, total payment {$HomoCreditPayment}\n"; 
echo "Bank SoftBank\n";
$softBankPayment=credit($softBank[0], $softBank[1], $moneyOwed, $monthPayment);
echo "{$i} months, total payment {$softBankPayment}\n";
echo "Strawberry Bank\n";
$moneyOwed=39999+7777; 
$strawberryBankPayment=credit($strawberryBank[0], $strawberryBank[1], $moneyOwed, $monthPayment);
echo "{$i} months, total payment {$strawberryBankPayment}\n";
?>

PD9waHAgCmVycm9yX3JlcG9ydGluZygtMSk7IApmdW5jdGlvbiBjcmVkaXQoJHBlcmNlbnQsICRjb21taXNzaW9uLCAkbW9uZXlPd2VkLCAkbW9udGhQYXltZW50KSB7Cmdsb2JhbCAkaTsKZm9yICgkaT0tMTsgJG1vbmV5T3dlZD4wOyAkaSsrKSB7IAokbW9uZXlPd2VkPSRtb25leU93ZWQqKDErJHBlcmNlbnQpKyRjb21taXNzaW9uLSRtb250aFBheW1lbnQ7IAppZiAoKCRtb25leU93ZWQqKDErJHBlcmNlbnQpKyRjb21taXNzaW9uKTw9JG1vbnRoUGF5bWVudCkgeyAKJG1vbnRoUGF5bWVudD0kbW9uZXlPd2VkKigxKyRwZXJjZW50KSskY29tbWlzc2lvbjt9IAokdG90YWxQYXltZW50PSR0b3RhbFBheW1lbnQrJG1vbnRoUGF5bWVudDsKfTsKcmV0dXJuICR0b3RhbFBheW1lbnQ7IH07IAplY2hvICJCYW5rIEhvbW9DcmVkaXRcbiI7IAokaG9tb0NyZWRpdD1hcnJheSgwLjA0LCA1MDApOyAKJHNvZnRCYW5rPWFycmF5KDAuMDMsIDEwMDApOwokc3RyYXdiZXJyeUJhbms9YXJyYXkoMC4wMiwgMCk7CiRwZXJjZW50PTAuMDQ7ICRjb21taXNzaW9uPTUwMDsgCiRtb25leU93ZWQ9Mzk5OTk7IAokbW9udGhQYXltZW50PTUwMDA7IAokSG9tb0NyZWRpdFBheW1lbnQ9Y3JlZGl0KCRob21vQ3JlZGl0WzBdLCAkaG9tb0NyZWRpdFsxXSwgJG1vbmV5T3dlZCwgJG1vbnRoUGF5bWVudCk7IAplY2hvICJ7JGl9IG1vbnRocywgdG90YWwgcGF5bWVudCB7JEhvbW9DcmVkaXRQYXltZW50fVxuIjsgCmVjaG8gIkJhbmsgU29mdEJhbmtcbiI7CiRzb2Z0QmFua1BheW1lbnQ9Y3JlZGl0KCRzb2Z0QmFua1swXSwgJHNvZnRCYW5rWzFdLCAkbW9uZXlPd2VkLCAkbW9udGhQYXltZW50KTsKZWNobyAieyRpfSBtb250aHMsIHRvdGFsIHBheW1lbnQgeyRzb2Z0QmFua1BheW1lbnR9XG4iOwplY2hvICJTdHJhd2JlcnJ5IEJhbmtcbiI7CiRtb25leU93ZWQ9Mzk5OTkrNzc3NzsgCiRzdHJhd2JlcnJ5QmFua1BheW1lbnQ9Y3JlZGl0KCRzdHJhd2JlcnJ5QmFua1swXSwgJHN0cmF3YmVycnlCYW5rWzFdLCAkbW9uZXlPd2VkLCAkbW9udGhQYXltZW50KTsKZWNobyAieyRpfSBtb250aHMsIHRvdGFsIHBheW1lbnQgeyRzdHJhd2JlcnJ5QmFua1BheW1lbnR9XG4iOwo/Pg==