fork download
copy 
  1. @c=qw(January February March April May June July August September October November December);$j=<>,print 31&$j," $c[((480&$j)>>5)-1] ",(8388096&$j)>>9,"\n" for(1..<>);
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
5
1024275
1029012
1017036
903863
802507
stdout
copy 
19 August 2000
20 December 2009
12 June 1986
23 May 1765
11 June 1567
https://ideone.com/EIkoL
language:
Perl (perl 5.28.1)
created:
14 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!