fork(1) download
  1. my $t = 0;
  2. my $c = 0;
  3. my $w = 0;
  4. my $k = 0;
  5.  
  6.  
  7. sub main(){
  8.  
  9. if ($ARGV[0] > 100) { die; }
  10. else { $t = shift @ARGV; }
  11.  
  12. for (my $i = 0; $i < $t; $i++) {
  13. if ($ARGV[0] < 0) { die; }
  14. else { $c = shift @ARGV; }
  15.  
  16. $k = shift @ARGV;
  17.  
  18. if ($ARGV[0] > 100) { die; }
  19. else { $w = shift @ARGV; }
  20.  
  21. if ( $c * $w <= $k ) { print "yes\n"; }
  22. else { print "no\n";}
  23. }
  24. }
  25. main();
Success #stdin #stdout 0s 18256KB
stdin
3
5 15 3
1 5 4
13 25 2
stdout
Standard output is empty