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.  
  22. cell(0,1,0);
  23.  
  24. # Печать результирующей матрицы и расчет объема воды
  25. my $summ=0;
  26. my $y=0;
  27. for(@W) {
  28.   $,=" ";
  29.   print "@$_\n";
  30.   for my $x(0..$MX) { $summ+=$W[$y][$x]-$I[$y][$x]; }
  31.   $y++;
  32. }
  33.  
  34. print "RESULT = $summ\n";
  35.  
  36. # Основная рабочая, рекурсивная функция
  37. sub cell {
  38.   my($x, $y, $lev)=@_;
  39.   return if($x<0 || $y<0 || $x>$MX || $y>$MY);  # Проверяем выход за пределы поля
  40.   return if($W[$y][$x]<=$lev);    # Максимум клетки ниже или равен - мы тут были
  41.   if($lev < $I[$y][$x] ||    # Повышаем текущий уровень, если ниже изначального для клетки
  42.      ($x==0 || $y==0 || $x==$MX || $y==$MY) # Или если выше, но это граничная клетка
  43.     ) {
  44.     $lev=$I[$y][$x]
  45.   }
  46.   $W[$y][$x]=$lev;    # Устанавливаем текущий максимум
  47.   cell($x-1,$y,$lev); # И обходим всех 4х соседей рекурсивно
  48.   cell($x+1,$y,$lev);
  49.   cell($x,$y-1,$lev);
  50.   cell($x,$y+1,$lev);
  51. }
  52.  
  53. __DATA__
  54. 5 3 4 5
  55. 6 2 1 4
  56. 3 1 1 4
  57. 8 5 5 3
  58. 8 3 1 6
  59. 8 4 5 8
  60.  
Success #stdin #stdout 0s 18248KB
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/ks1KA2
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!