We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Algorithms
  3. Implementation
  4. Jumping on the Clouds: Revisited
  5. Discussions

Jumping on the Clouds: Revisited

  • highsoft_soi
     + 0 comments

    Perl solution:

    sub jumpingOnClouds {
    my ($c, $k) = @_;
    
    my $energy = 100;
    my $ind = 0;
    for (my $i = 0; $i < scalar(@$c); $i++) {
        $ind = ($k + $ind) % scalar(@$c);
        $energy--;
        $energy -= 2 if ($c->[$ind] == 1);
        last if ($ind == 0);
    }
    return $energy;
}