fork(1) download
copy 
  1. #!/usr/bin/perl
  2. #!/usr/bin/perl
  3. use strict;
  4. use warnings;
  5.  
  6. my @I;        # Исходная матрица
  7. my @W;        # Рабочая матрица
  8. my ($MX,$MY); # Размеры матрицы
  9. while(<DATA>) {  # Читаем исходую матрицу
  10.   my @row=();
  11.   chomp;
  12.   last if(!$_);
  13.   push @row, $_ for split / +/;
  14.   push @I, \@row;
  15.   $MX=@row; $MY++;  # Запоминаем размеры
  16.   my @row2=();      # И заполняем начальными значениями рабочую
  17.   push @row2,10000 for(1..$MX);
  18.   push @W, \@row2;
  19. }
  20. $MX--; $MY--;
  21. # обходим все 4 стороны прямоугольника
  22. cell(0,$_,0)   for(1..$MY);
  23. cell($MX,$_,0) for(1..$MY);
  24. cell($_,0,0)   for(1..$MX);
  25. cell($_,$MY,0) for(1..$MX);
  26.  
  27. # Печать результирующей матрицы и расчет объема воды
  28. my $summ=0;
  29. my $y=0;
  30. for(@W) {
  31.   $,=" ";
  32.   print "@$_\n";
  33.   for my $x(0..$MX) { $summ+=$W[$y][$x]-$I[$y][$x]; }
  34.   $y++;
  35. }
  36.  
  37. print "RESULT = $summ\n";
  38.  
  39. # Основная рабочая, рекурсивная функция
  40. sub cell {
  41.   my($x, $y, $lev)=@_;
  42.   return if($x<0 || $y<0 || $x>$MX || $y>$MY);  # Проверяем выход за пределы поля
  43.   return if($W[$y][$x]<=$lev);    # Максимум клетки ниже или равен - мы тут были
  44.   $lev=$I[$y][$x] if($lev < $I[$y][$x]);  # Повышаем текущий уровень, если ниже изначального для клетки
  45.   $W[$y][$x]=$lev;    # Устанавливаем текущий максимум
  46.   cell($x-1,$y,$lev); # И обходим всех 4х соседей рекурсивно
  47.   cell($x+1,$y,$lev);
  48.   cell($x,$y-1,$lev);
  49.   cell($x,$y+1,$lev);
  50. }
  51.  
  52. __DATA__
  53. 5 3 4 5
  54. 6 2 1 4
  55. 3 1 1 4
  56. 8 5 5 3
  57. 8 3 1 6
  58. 8 4 5 8
  59.  
Success #stdin #stdout 0s 17768KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
5 3 4 5
6 3 3 4
3 3 3 4
8 5 5 3
8 4 4 6
8 4 5 8
RESULT = 11
https://ideone.com/cJYyvB
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!