fork download
copy 
  1. use integer;
  2. while(<>){
  3.  
  4. 	($n,$m)=split/ /;
  5. 	for $i(1..$n){
  6. 		$_=<>;
  7. 		chomp;
  8. 		@_=/\d/g;
  9. 		$j=0;
  10. 		$b[++$j][$i]=$_ for @_;
  11. 		}
  12.  
  13. 	$_=<>;
  14.  
  15. 	@a=(1, 0, -1, 0);
  16. 	$d=0;
  17. 	$x = $y = 0;
  18. 	$ans=0;
  19.  
  20. 	while (/\w/g){
  21.  
  22. 		$d += $inc = $& cmp M;
  23. 		$inc and next;
  24. #		print "up/left:$b[$x][$y]|up/rigth:$b[$x+1][$y]|down/left:$b[$x][$y+1]|down/right:$b[$x+1][$y+1]\n";
  25. 		print "$b[$x][$y]|$b[$x+1][$y]|$b[$x][$y+1]|$b[$x+1][$y+1]\n";
  26.  
  27. 		if ($a[ $d % 4 ] == 1){
  28. 			$ans += $b[$x+1][$y+1] + $b[$x+1][$y];
  29. 			$b[$x+1][$y+1] /= 2; 
  30. 			$b[$x+1][$y] /= 2;
  31. 			}
  32. 		if ($a[ $d % 4 ] == -1){
  33. 			$ans += $b[$x][$y+1] + $b[$x][$y];
  34. 			$b[$x][$y+1] /= 2; 
  35. 			$b[$x][$y] /= 2;
  36. 			}
  37. 		if ($a[ ($d-1) % 4 ] == -1){
  38. 			$ans += $b[$x+1][$y] + $b[$x][$y];
  39. 			$b[$x+1][$y] /= 2; 
  40. 			$b[$x][$y] /= 2;
  41. 			}
  42. 		if ($a[ ($d-1) % 4 ] == 1){
  43. 			$ans += $b[$x+1][$y+1] + $b[$x][$y+1];
  44. 			$b[$x+1][$y+1] /= 2; 
  45. 			$b[$x][$y+1] /= 2;
  46. 			}
  47.  
  48. 		$x += $a[ $d % 4 ];
  49. 		$y += $a[ ($d-1) % 4 ];
  50.  
  51.  
  52. 		}
  53. 	print "ans: $ans\n";
  54.  
  55. 	}
Success #stdin #stdout 0s 3688KB
comments (?)
stdin
copy 
3 6
000123
456456
789789
RRLLRRRRMMMMMMRMMMRM
stdout
copy 
|||0
0||0|0
0||0|0
0||0|1
0||0|2
0||1|3
0||1|
0|0|6|
3|0|9|
4|0||
ans: 26
https://ideone.com/wN8bcY
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
secret

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!