ASCII 로 BCD 이진 시계 를 만듭니다 . 묵시적으로, 그것은 6 개의 열로 된 시간으로 표시되어야한다 :

_{(출처 : Wikimedia Commons )}

각 열은 왼쪽에서 오른쪽으로 시간, 분 및 초를 읽는 이진 코드 숫자입니다. 시간은 24 시간 형식으로 제공됩니다.

표시 할 시간은 명령 행 또는 stdin (둘 중 더 적합한 것)에서 읽습니다. 비어 있으면 현재 시간을 대신 사용해야합니다.

출력 크기는 여기에 약간 제한되어 있으며 두 줄의 텍스트에만 적합합니다. 따라서 점을 두 줄에만 배치해야합니다. 문자는 ., :그리고 '여기에 편리.

입력

ISO-8601 형식으로 표시하는 시간, 즉 HH:MM:SS소수 초없이 표시됩니다 . 필수 24 시간 형식. 입력이 비어 있으면 현재 시간이 사용됩니다.

산출

위의 이미지에서와 같이 두 줄은 BCD 이진 시계를 나타냅니다. 각 줄은 정확히 6 자이며 공백, 마침표, 콜론 및 아포스트로피 만 허용됩니다.

우승자

바이트 수로 가장 짧은 코드가 이깁니다. 동점으로 솔루션이 첫 승리를 거두었습니다.

샘플 입력 1

(빈)

샘플 출력 1

     .
''. ::

샘플 입력 2

17:59:20

샘플 출력 2

 ..'  
.:..' 

샘플 입력 3

01:08:01

샘플 출력 3

   '  
 .   .

골프 스크립트 (+ 루비 / 날짜)-46 자

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

당신은 대체 할 수 `date`와 Time.now필요한 경우 (2 개 문자).

루비, 107 103 99 94 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).

윈도우 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]}*''}

씨#

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

골프 스크립트 (+ Ruby), 63

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

아직 Golfscript 초보자입니다. 날 때리지 마

펄 (84)

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

파이썬 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'))]))

파이썬 -201 172 자

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 (엑셀) 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

스칼라, 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