fork download
copy 
  1. #!/usr/bin/perl
  2. # 3 Zhivo Barmo
  3.  
  4. <>;
  5. $b=$z=0;
  6. while ($eil=<>) {
  7.  
  8.     print ($eil," :Perskaityta eilute\n");
  9.  
  10. chomp($eil);
  11. $eil.="\x20";
  12.  
  13. $eil=~s/-1\x20//g;
  14.  
  15. 	print ($eil," :Eilute, gale pridejus tarpa, ir istrynus visus -1\n");
  16.  
  17.  
  18. while ($eil=~/\b(\d*[13579])\x20(\d*[02468])\b/){
  19. 	$eil=~s/\b(\d*[13579])\x20(\d*[02468])\b/$1>$2?$1:$2/ge;
  20. 	print ($eil, " :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)\n");
  21. }
  22.  
  23. while ($eil=~/\b(\d*[13579]\x20)/){
  24. $eil=~s/\b(\d*[13579]\x20)//;
  25.     print ($eil, " :Eilute, istrynus viena NELYGINI skaiciu\n");
  26. $z++;
  27. }
  28. while ($eil=~/(\d*[02468]\x20)/){
  29. $eil=~s/\b(\d*[02468]\x20)//;
  30.     print ($eil, " :Eilute, istrynus viena LYGINI skaiciu\n");
  31. $b++;
  32. }
  33.  print "z: ",$z,"\n";
  34.  print "b: ",$b,"\n";	
  35.  print "\n";
  36. }
  37.  
  38. print $b," ",$z," :Atsakymas\n";
  39.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
4
5 -1 4 -1
3 -1 1 -1
-1 2 -1 4
-1 -1 -1 -1
5 -1 -1 -1 6 3 -1 2
3 5 2 6
1 -1 8 5 -1 8
-1 20 5 10 6 3 8 15 -1
-1 5 -1 8 -1 14 19 -1 5
99 188 33 12
1 101011 200000 2 2
stdout
copy 
5 -1 4 -1
 :Perskaityta eilute
5 4  :Eilute, gale pridejus tarpa, ir istrynus visus -1
5  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
 :Eilute, istrynus viena NELYGINI skaiciu
z: 1
b: 0

3 -1 1 -1
 :Perskaityta eilute
3 1  :Eilute, gale pridejus tarpa, ir istrynus visus -1
1  :Eilute, istrynus viena NELYGINI skaiciu
 :Eilute, istrynus viena NELYGINI skaiciu
z: 3
b: 0

-1 2 -1 4
 :Perskaityta eilute
2 4  :Eilute, gale pridejus tarpa, ir istrynus visus -1
4  :Eilute, istrynus viena LYGINI skaiciu
 :Eilute, istrynus viena LYGINI skaiciu
z: 3
b: 2

-1 -1 -1 -1
 :Perskaityta eilute
 :Eilute, gale pridejus tarpa, ir istrynus visus -1
z: 3
b: 2

5 -1 -1 -1 6 3 -1 2
 :Perskaityta eilute
5 6 3 2  :Eilute, gale pridejus tarpa, ir istrynus visus -1
6 3  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
6  :Eilute, istrynus viena NELYGINI skaiciu
 :Eilute, istrynus viena LYGINI skaiciu
z: 4
b: 3

3 5 2 6
 :Perskaityta eilute
3 5 2 6  :Eilute, gale pridejus tarpa, ir istrynus visus -1
3 5 6  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
3 6  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
6  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
 :Eilute, istrynus viena LYGINI skaiciu
z: 4
b: 4

1 -1 8 5 -1 8
 :Perskaityta eilute
1 8 5 8  :Eilute, gale pridejus tarpa, ir istrynus visus -1
8 8  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
8  :Eilute, istrynus viena LYGINI skaiciu
 :Eilute, istrynus viena LYGINI skaiciu
z: 4
b: 6

-1 20 5 10 6 3 8 15 -1
 :Perskaityta eilute
20 5 10 6 3 8 15  :Eilute, gale pridejus tarpa, ir istrynus visus -1
20 10 6 8 15  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
20 10 6 8  :Eilute, istrynus viena NELYGINI skaiciu
10 6 8  :Eilute, istrynus viena LYGINI skaiciu
6 8  :Eilute, istrynus viena LYGINI skaiciu
8  :Eilute, istrynus viena LYGINI skaiciu
 :Eilute, istrynus viena LYGINI skaiciu
z: 5
b: 10

-1 5 -1 8 -1 14 19 -1 5
 :Perskaityta eilute
5 8 14 19 5  :Eilute, gale pridejus tarpa, ir istrynus visus -1
8 14 19 5  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
8 14 5  :Eilute, istrynus viena NELYGINI skaiciu
8 14  :Eilute, istrynus viena NELYGINI skaiciu
14  :Eilute, istrynus viena LYGINI skaiciu
 :Eilute, istrynus viena LYGINI skaiciu
z: 7
b: 12

99 188 33 12
 :Perskaityta eilute
99 188 33 12  :Eilute, gale pridejus tarpa, ir istrynus visus -1
188 33  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
188  :Eilute, istrynus viena NELYGINI skaiciu
 :Eilute, istrynus viena LYGINI skaiciu
z: 8
b: 13

1 101011 200000 2 2 :Perskaityta eilute
1 101011 200000 2 2  :Eilute, gale pridejus tarpa, ir istrynus visus -1
1 200000 2 2  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
200000 2 2  :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)
2 2  :Eilute, istrynus viena LYGINI skaiciu
2  :Eilute, istrynus viena LYGINI skaiciu
 :Eilute, istrynus viena LYGINI skaiciu
z: 8
b: 16

16 8 :Atsakymas
https://ideone.com/GBk0YD
language:
Perl (perl 5.28.1)
created:
11 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!