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. Beautiful Days at the Movies
  5. Discussions

Beautiful Days at the Movies

  • highsoft_soi
     + 0 comments

    Perl (super short):

    sub beautifulDays {
    my ($i, $j, $k) = @_;
    
    return scalar(grep { ($_ - reverse($_)) % $k == 0 } ($i..$j));
}