Re: binary clock from java.dzone.com

Explicit loop and abusing $\ saves a few characters:

#         1         2         3         4         5         
#12345678901234567890123456789012345678901234567890123456789
 $\+=unpack("%32B*",pack"i3",gmtime$_)for(1..86400);print
[download]

Comment on Re: binary clock from java.dzone.com Download Code

Replies are listed 'Best First'.
Re^2: binary clock from java.dzone.com by grizzley (Chaplain) on Apr 05, 2013 at 11:11 UTC
Parens could be ommited twice: `# 1 2 3 4 5 #12345678901234567890123456789012345678901234567890123456789 $\+=unpack"%32B*",pack"i3",gmtime$_ for 1..86400;print` [download] My shortest approach: `# 1 #123456789012345 print 682560` [download]	[reply] [d/l] [select]
Re^3: binary clock from java.dzone.com by wrog (Friar) on May 06, 2013 at 11:44 UTC
which can be further shortened by using `perl -d`. Also, this version doesn't entail knowing the answer in advance: `# 24260(643-20)+6060(82+433) # =2880(443+513) # =2880237 # 1 2 3 #123456789012345678901234567890123456789 p 864079` [download]	[reply] [d/l] [select]