fork(1) download
copy 
  1. $ARGV[0]=~/^( *)/;my@a=(7,8,3..5,0,6);my$b=($a[length$1]+2006);print"Your calendar is for $b.\nIt's almost 2015.\n".($b-2014?"You're ".2014-$b." years behind.\nGo buy a new calendar!":"")
Success #stdin #stdout 0s 3564KB
comments (?)
stdin
copy 
 ######
#######
#######
#######
####
stdout
copy 
Your calendar is for 2013.
It's almost 2015.
-2013 years behind.
Go buy a new calendar!
https://ideone.com/scoya2
language:
Perl (perl 5.28.1)
created:
9 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!