用ASCII 创建一个BCD 二进制时钟。如所暗示的，它将以六点点显示时间：

_{（来源：Wikimedia Commons）}

每列都是二进制编码的数字，从左到右读取小时，分钟和秒。小时以24小时格式给出。

显示时间是从命令行或从stdin（以更合适的为准）中读取的。如果为空，则应使用当前时间。

这里的输出大小受到一些限制，我们只能容纳两行文本。因此，您需要将点仅放入两行。字符.，:并'在方便的来到这里。

输入值

以ISO-8601格式显示的时间，即HH:MM:SS无小数秒。强制性的24小时制。输入可以为空，在这种情况下将使用当前时间。

输出量

上图的两行代表BCD二进制时钟。每行正好是六个字符长，并且只能使用空格，句点，冒号和撇号。

优胜者

以字节数为单位的最短代码获胜。在平局中，解决方案取得了第一个胜利。

样品输入1

（空）

样品输出1

     .
''. ::

样品输入2

17:59:20

样品输出2

 ..'  
.:..' 

样品输入3

01:08:01

样品输出3

   '  
 .   .

Golfscript（+红宝石/日期）-46个字符

"#{`date`}"10>+9<" .':":S-.{4/12-S=}%n@{4%S=}%

您可以根据需要替换`date`为Time.now（+2个字符）。

红宝石， 1071039994 90个字符

$><<[$/,(gets||Time.now.to_s[11,8]).tr(z=" .':","").bytes.map{|a|$><<z[a/4-12];z[a%4]}]*""

请注意，输入内容不应包含换行符，因此要使用来测试解决方案echo -n "01:08:01" | ruby1.9 bcd.rb。

要测试默认行为，请运行ruby1.9 bcd.rb并输入^D（即，文字EOF）。

Windows PowerShell，81

因为我在编写任务时没有创建实现，所以我也从一开始就觉得自己有资格打高尔夫球：-)

-join" .':
"[(($d="$(date)$args"[-8..-1]-ne58)|%{($_-band12)/4})+,4+($d|%{$_%4})]

历史：

• 2011-02-26 23:50 （119）第一次尝试。
• 2011-02-26 23:55 （108）内联的乐趣。
• 2011-02-27 00:03 （102）优化选择第一行。[Math]::Floorwaaaayy太长了。我讨厌那个。
• 2011-02-27 02:22 （101）我不需要:第一行。
• 2011-02-27 02:53    （95）优化获取输入或当前时间。
• 2011-03-04 20:36 （88）仅保留一个联接    。从单个字符串索引所需的每个字符（包括换行符）。
• 2011-03-04 20:39    （83）也可以使用自动广播58代替:整数，也不再需要$_用引号引起来:-)
• 2011-03-04 20:42    （81）-join不再需要后面的括号。

红宝石-124个字符

t=*((i=gets)=="
"? Time.now.strftime('%H%M%S'):i).tr(':
','').bytes
puts (0..1).map{|i|t.map{|_|" .':"[i<1? _/4-12:_%4]}*''}

C＃

236个字符

using System;using System.Linq;class X{static void Main(){var d=Console.In.ReadToEnd().Replace(":","");for(int i=0;i<2;i++)Console.WriteLine(string.Join("",(d==""?DateTime.Now.ToString("HHmmss"):d).Select(c=>" .':"[i<1?c/4-12:c%4])));}}

可读性：

using System;
using System.Linq;
class X
{
    static void Main()
    {
        var d = Console.In.ReadToEnd().Replace(":", "");
        for (int i = 0; i < 2; i++)
            Console.WriteLine(string.Join("",
                (d == "" ? DateTime.Now.ToString("HHmmss") : d)
                .Select(c => " .':"[i < 1 ? c / 4 - 12 : c % 4])));
    }
}

Golfscript（+红宝石），63岁

."#{Time.now.strftime'%T'}"if':'-:|{4/12-" .':":@\=}%n|{4%@\=}%

还是Golfscript的初学者。别打我

佩尔（84）

＃！perl -pl
$ _ || = localtime; y /：// d; / \ d {6} /; $ _ = $＆; y / 0-9 / ....''/; $ _。=“ \ n $ ＆“; y / 0-9 /。'：。'：./

Python 3，136个字符

import time
d=input()
for i in(0,1):print(''.join([" .':"[[c>>2,c&3][i]]for c in map(int,d.replace(':','')or time.strftime('%H%M%S'))]))

Python- 201172个字符

from time import*
t=raw_input()
if not t:t=strftime('%H:%M:%S')
t=t.replace(':','')
for i in(0,2):print''.join(" .':"[int(bin(int(d))[2:].rjust(4,'0')[i:i+2],2)]for d in t)

卢阿- 163 160个字符

s=io.read():match"(%S+)"or os.date("%X",os.time())t=" .':"w=io.write for l=1,2 do for k in s:gmatch"(%d)"do y=1+select(l,(k-k%4)/4,k%4)w(t:sub(y,y))end w"\n"end

VBA（Excel）中，150个 148 132字节

使用立即窗口和单元格[A1]作为输入。

a=Format(IIf([a1]="",Now,[a1]),"hhmmss"):b=Split(" ,.,',:",","):For c=1To Len(a):d=Mid(a,c,1):e=e &b(d\4):f=f &b(d Mod 4):Next:?e:?f

斯卡拉（Scala），222：

object C{def main(a:Array[String]){
val t=if(a.length==0)new java.text.SimpleDateFormat("HHmmss").format(new java.util.Date)else a(0).replaceAll(":","")
t.map(c=>print(" ,'"(c/4%4)));println;t.map(c=>print(" ,':"(c%4)))}}

VimScript，143个字符

if getline(1)==''
norm"=strftime("%T")^Mp
en
nm- "ax"=@a/4^MgP
nm, "ax"=@a%4^MgP
norm0YP--x--x--xP^M,,x,,x,,xP
%s/0/ /g
%s/1/./g
%s/2/'/g
%s/3/:/g