fork download 
  1. use bignum;
  2.  
  3. $e=0;
  4.  
  5. while(<>){
  6.  
  7. 	($n,$m)=split/ /;
  8. 	($n or $m) or last; # break if 0 0
  9.  
  10. 	$f=0;
  11. 	for $i(1..$n){
  12. 		$_=<>;
  13. 		chomp;
  14. 		/ (\d+) (\d+)$/;  # read two numbers to $1 and $2
  15. 		$m-=$1;
  16. 		if ($m<0){ $f=1 }
  17. 		$m+=$2;
  18. 		}
  19.  
  20. 	$e++>0 and 
  21. 	print "\n";
  22.  
  23. 	print $f ? "Fail":"Success";
  24.  
  25. 	}
Success #stdin #stdout 0.07s 6788KB
comments (?)
stdin 
5 10000
Darth Vader: 7500 6000
Ganon: 7500 6000
Goku: 9001 6000
Napoleon: 4000 4000
The Batman: 6000 8000
3 0
Santa Claus: 0 25
Mrs Claus: 0 25
Kris Kringle: 30 10
0 0
stdout 
Fail
Success
https://ideone.com/Y5Ba5a
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!