Daily Challenge #114 - Speed Control

function gps($s, $x) {
  $hourlySpeed = [];

  $index = 1;
  for (; $index<count($x); $index+=1) {
    $hourlySpeed[] = round(($x[$index] - $x[$index-1]) * 3600 / $s, 1);
  }

  $ans = $hourlySpeed[0];
  $index = 1;
  for (; $index<count($hourlySpeed); $index+=1) {
    if ($hourlySpeed[$index] - $hourlySpeed[$index-1] <= 0) {
      continue;
    }

    if ($ans < $hourlySpeed[$index]) {
      $ans = $hourlySpeed[$index];
    }
  }

  return $ans;
}

import List exposing (map, maximum)


type alias GpsCoordinate =
    Float


type alias GpsSection =
    ( GpsCoordinate, GpsCoordinate )


type alias GpsTime =
    Int


type alias GpsSpeed =
    Float


type alias GpsAverageSpeed =
    Int


toGpsSections : List GpsCoordinate -> List GpsSection
toGpsSections list =
    case list of
        first :: second :: rest ->
            ( first, second ) :: toGpsSections (second :: rest)

        _ ->
            []


toGpsSpeed : GpsTime -> GpsSection -> GpsSpeed
toGpsSpeed gpsTime ( firstCoordinate, secondCoordinate ) =
    (secondCoordinate - firstCoordinate) * 3600.0 / toFloat gpsTime


toGpsAverageSpeed : GpsTime -> List GpsCoordinate -> GpsAverageSpeed
toGpsAverageSpeed gpsTime gpsCoordinates =
    gpsCoordinates
        |> toGpsSections
        |> map (toGpsSpeed gpsTime)
        |> maximum
        |> Maybe.withDefault 0.0
        |> floor

function result(x, s) {
  return Math.floor(
    Math.max(...
      x.reduce((a,b)=>[`${a}-${b}`, b])[0]
      .split(",")
      .map(e=>eval(e))
      .map(e=>Math.abs(e))
      .map(e=>3600*e/s)
    )
  )
}

const bepis = (s, x) => {
  let max = 0
  const lasti = x.length - 1
  let prev = x[0]
  for (let i = 1; i < lasti; i++) {
    const next = x[i]
    const avg = (next - prev) * 3600 / s
    if (avg > max) max = avg
    prev = next
  }
  return Math.floor(max)
}