fork download
copy 
  1. use strict;
  2. use warnings FATAL => 'all';
  3.  
  4. my $input = <STDIN>;
  5.  
  6. chomp $input;
  7.  
  8. if($input =~ #(\d+?)\/(\d+?)\/(\d+)#){
  9. 	for(my $i = $1;$i<=$1+1;$i++){
  10. 		for(my $j = $2;$j<=12;$j++){
  11. 			for(my $k = $3;$k<=31;$k++){
  12. 				if($j==4 || $j==6
  13. 					|| $j==9 || $j == 11){
  14. 						next if($k>30);
  15. 				}
  16. 				else if($k==2){
  17. 					next if(isLeap($i) && $k > 29);
  18. 					next elsif(!isLeap($i) && $k > 28);
  19. 				}
  20.  
  21. 				if($i % ($j*$k)==0) {
  22. 					printf("%04d/%02d/%02d\n",$i,$j,$k);
  23. 					goto found;
  24. 				}
  25. 			}
  26. 		}
  27. 	}
  28.  
  29. }
  30.  
  31. found:;
  32.  
  33. sub isLeap {
  34. 	my $i = shift;
  35. 	return $i % 400 == 0 
  36. 			? 1 : $i % 100 == 0
  37. 			? 0 : $i % 4 == 0
  38. 			? 1 : 0;
  39. }
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
2012/11/22
compilation info 
===SORRY!===
Unable to find module 'strict' in the @*INC directories.
(@*INC contains:
  /home/r3Q4xi/.perl6/lib
  /usr/lib/parrot/2.7.0/languages/perl6/lib
  .)
stdout
copy 
Standard output is empty
https://ideone.com/eaC57
language:
Perl (perl 2018.12)
created:
14 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!