teglapakolo.pl

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

#============================================

my $x = 2;
my $tavolsag = 5; # km
my $teglak = 600;

#============================================

sub sebesseg($)
{
  my $tegla = shift;
  my $sebesseg = ( 2 / (1 + $tegla ** $x));
  return $sebesseg;
}

sub egy_ut_ideje($)
{
  my $tegla = shift;
  my $ido = $tavolsag / sebesseg($tegla);
  return $ido
}

#============================================

my ($min, $min_hely);

foreach my $hanyasaval (1 .. $teglak)
{
  my $maradt = $teglak;
  my $ido = 0;

  while ($maradt > 0)
  {
    # oda ut:
    $ido += egy_ut_ideje($hanyasaval);
    # vissza ut:
    $ido += egy_ut_ideje($hanyasaval) if ($maradt > $hanyasaval);

    $maradt -= $hanyasaval;
  }

  if (!defined($min) || ($min > $ido))
  {
    $min_hely = $hanyasaval;
    $min = $ido;
  }

  print "hanyasaval = $hanyasaval  \t ido = $ido\n";
}

print "\nlegjobb, ha $min_hely -val visszuk a teglat, ekkor az ido: $min\n";



=pod
legjobb, ha 1 -val visszuk a teglat, ekkor az ido: 5995

=cut