Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
good chemistry is complicated,
and a little bit messy -LW

Re: (Golf) Next second Tuesday

by linuxer (Deacon)
on Apr 08, 2009 at 00:22 UTC ( #756193=note: print w/ replies, xml ) Need Help??

in reply to (Golf) Next second Tuesday

I parsed the output of the cal command for my solution:

cal 3 2009 | perl -anle '$.==1&&do{print};@F=unpack"A3"x7,$_;$.>2&&$F[ +2]=~m/^\s*\d+$/&&++$a==2&&print$F[2];'

If you want to specify the day's shortname (like 'Tu' for Tuesday) I had the slightly longer version:

cal 4 2009 | perl -anle '$.==1&&do{print};@F=unpack"A3"x7,$_;$.==2&&do +{@i{@F}=0..$#F};$.>2&&$F[$i{"Tu"}]=~m/^\s*\d+$/&&++$a==2&&print$F[$i{ +"Tu"}];'

First one counts 82 and the second 121 characters (not counted cal [arguments] | perl -anle and the surrounding single quotes.

Comment on Re: (Golf) Next second Tuesday
Select or Download Code
Re^2: (Golf) Next second Tuesday
by shmem (Canon) on Apr 09, 2009 at 21:08 UTC

    well, for that matter, 69 chars not counting 'date '...

    date "+%Y-%m-$(env LC_ALL=C cal|sed 1,2d|cut -c7-8|grep '[0-9]'|sed -n + 2p)"

    ...but the rules say

    if the second Tuesday of the current month has passed, give the second Tuesday of the next month

    so that doesn't qualify either ;-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://756193]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2014-04-21 08:46 GMT
Find Nodes?
    Voting Booth?

    April first is:

    Results (492 votes), past polls