Cree un reloj binario BCD en ASCII. Como está implícito, mostrará el tiempo en seis columnas de puntos:

_{(fuente: Wikimedia Commons )}

Cada columna es un dígito codificado en binario, que lee horas, minutos y segundos de izquierda a derecha. Las horas se dan en formato de 24 horas.

El tiempo de visualización se lee desde la línea de comandos o desde la entrada estándar (lo que mejor se ajuste). Si está vacío, se debe utilizar la hora actual.

El tamaño de salida está un poco limitado aquí y solo podemos ajustar dos líneas de texto. Por lo tanto, debe colocar los puntos en solo dos líneas. Los personajes ., :y 'son útiles aquí.

Entrada

El tiempo de visualización en formato ISO-8601, es decir, HH:MM:SSsin segundos fraccionarios. Formato obligatorio de 24 horas. La entrada puede estar vacía, en cuyo caso se utilizará la hora actual.

Salida

Dos líneas con representan el reloj binario BCD como en la imagen de arriba. Cada línea tiene exactamente seis caracteres de longitud y los únicos caracteres permitidos son espacio, punto, dos puntos y apóstrofe.

Ganador

El código más corto por conteo de bytes gana. En un empate, la solución obtuvo las primeras victorias.

Entrada de muestra 1

(vacío)

Salida de muestra 1

     .
''. ::

Entrada de muestra 2

17:59:20

Salida de muestra 2

 ..'  
.:..' 

Entrada de muestra 3

01:08:01

Salida de muestra 3

   '  
 .   .

Golfscript (+ rubí / fecha) - 46 caracteres

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

Puede reemplazar `date`con Time.nowsi es necesario (+2 caracteres).

Rubí, 107 103 99 94 90 caracteres

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

Tenga en cuenta que la entrada no debe contener un salto de línea, por lo que para probar la solución use algo como echo -n "01:08:01" | ruby1.9 bcd.rb.

Para probar el comportamiento predeterminado, ejecútelo ruby1.9 bcd.rbe ingrese ^D(es decir, un EOF literal).

Windows PowerShell, 81

Como no creé una implementación al escribir la tarea, también me siento elegible para jugar golf desde el principio :-)

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

Historia:

• 2011-02-26 23:50 (119) Primer intento.
• 2011-02-26 23:55 (108) Diversión en línea.
• 2011-02-27 00:03 (102) Optimizado seleccionando la primera línea. [Math]::Floores muuuuy largo. Odio eso.
• 2011-02-27 02:22 (101) No necesito :para la primera línea.
• 2011-02-27 02:53    (95) Optimizado obteniendo entrada u hora actual.
• 2011-03-04 20:36    (88) Solo queda una combinación. Indexación de todos los caracteres necesarios (incluido el salto de línea) de una sola cadena.
• 2011-03-04 20:39    (83) Usando en 58lugar de :qué auto-conversiones también a entero - ya no es necesario encerrar $_entre comillas :-)
• 2011-03-04 20:42    (81) Los paréntesis después de la -joinya no son necesarios.

Ruby - 124 caracteres

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 caracteres

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])));}}

Legible:

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 (+ Ruby), 63

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

Todavía un principiante con Golfscript. No me pegues

Perl (84)

#! perl -pl
$ _ || = localtime; y /: // d; / \ d {6} /; $ _ = $ &; y / 0-9 / .... '' /; $ _. = "\ n $ & "; y / 0-9 /. ':.': ./

Python 3, 136 caracteres

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 - 201 172 caracteres

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)

Lua - 163 160 caracteres

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 bytes

Usando Ventana Inmediata y Celda [A1]como entrada.

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 caracteres

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