Ask me anything

[abecx]

#!/usr/local/bin/perl
# WLPH TRAIN CHAT SIMULATOR
# Cruz Cranford

use strict;
use warnings;
use Math::Round;

my $first_train_speed = 1.166666666666667;
my $second_train_speed = 1;
my $total_distance = 260;
my $ft_total_miles = $total_distance;
my $st_total_miles = 0;
my $ft_traveled = 0;


while( $st_total_miles ne round($ft_total_miles)){
$ft_total_miles = ($ft_total_miles - $first_train_speed);
$st_total_miles = $st_total_miles + $second_train_speed;
$ft_traveled = ($total_distance - $ft_total_miles);
}
print "Train 1 travelled " . round($ft_traveled) ." miles\n";
print "Train 2 travelled $st_total_miles miles\n\n";