Tạo đồng hồ nhị phân BCD trong ASCII. Theo ngụ ý, nó sẽ hiển thị thời gian trong sáu cột dấu chấm:

_{(nguồn: Wikimedia Commons )}

Mỗi cột là một chữ số được mã hóa nhị phân, đọc giờ, phút và giây từ trái sang phải. Giờ được đưa ra trong định dạng 24 giờ.

Thời gian để hiển thị được đọc từ dòng lệnh hoặc từ stdin (tùy theo điều kiện nào phù hợp hơn). Nếu trống, thời gian hiện tại nên được sử dụng thay thế.

Kích thước đầu ra là một chút hạn chế ở đây và chúng tôi chỉ có thể phù hợp với hai dòng văn bản. Vì vậy, bạn được yêu cầu đặt các dấu chấm chỉ trong hai dòng. Các nhân vật ., :và 'có ích ở đây.

Đầu vào

Thời gian để hiển thị ở định dạng ISO-8601, tức là HH:MM:SSkhông có giây. Định dạng bắt buộc 24 giờ. Đầu vào có thể trống trong trường hợp thời gian hiện tại sẽ được sử dụng.

Đầu ra

Hai dòng đại diện cho đồng hồ nhị phân BCD như trong hình trên. Mỗi dòng dài chính xác sáu ký tự và các ký tự được phép duy nhất là không gian, dấu chấm, dấu hai chấm và dấu nháy đơn.

Người chiến thắng

Mã ngắn nhất bằng số byte thắng. Trong một tie, giải pháp đăng đầu tiên chiến thắng.

Mẫu đầu vào 1

(trống)

Sản lượng mẫu 1

     .
''. ::

Mẫu đầu vào 2

17:59:20

Sản lượng mẫu 2

 ..'  
.:..' 

Mẫu đầu vào 3

01:08:01

Sản lượng mẫu 3

   '  
 .   .

Golfscript (+ ruby ​​/ ngày) - 46 ký tự

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

Bạn có thể thay thế `date`bằng Time.nownếu cần thiết (+2 ký tự).

Hồng ngọc 107 103 99 94 90 ký tự

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

Lưu ý rằng đầu vào không nên chứa ngắt dòng, vì vậy để kiểm tra giải pháp sử dụng một cái gì đó như echo -n "01:08:01" | ruby1.9 bcd.rb.

Để kiểm tra hành vi mặc định, hãy chạy nó ruby1.9 bcd.rbvà nhập ^D(tức là EOF theo nghĩa đen).

Windows PowerShell, 81

Vì tôi đã không tạo ra một triển khai khi viết tác vụ, tôi cảm thấy bản thân đủ điều kiện để chơi nó ngay từ đầu :-)

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

Lịch sử:

• 2011 / 02-26 23:50 (119) Nỗ lực đầu tiên.
• 2011 / 02-26 23:55 (108) Vui chơi nội tuyến.
• 2011 / 02-27 00:03 (102) Tối ưu hóa chọn dòng đầu tiên. [Math]::FloorLà waaaayy quá lâu. Tôi ghét điều đó.
• 2011 / 02-27 02:22 (101) Tôi không cần :cho dòng đầu tiên.
• 2011 / 02-27 02:53    (95) Tối ưu hóa nhận đầu vào hoặc thời gian hiện tại.
• 2011/03/04 20:36    (88) Chỉ còn một lần tham gia. Lập chỉ mục cho mỗi ký tự cần thiết (bao gồm cả ngắt dòng) từ một chuỗi.
• 2011/03/04 20:39    (83) Sử dụng 58thay vì :tự động chuyển thành số nguyên - không cần thêm $_vào dấu ngoặc kép :-)
• 2011/03/04 20:42    (81) Dấu ngoặc sau -joinkhông còn cần thiết.

Ruby - 124 ký tự

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 ký tự

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

Có thể đọc được

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

Golf (+ Ruby), 63

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

Vẫn là người mới bắt đầu với Golfscript. Đừng đánh tôi.

Perl (84)

#! perl -pl
$ _ || = giờ địa phương; y /: // d; / \ d {6} /; $ _ = $ &; y / 0-9 / .... '' /; $ _. = "\ n $ & "; y / 0-9 /. ':.': ./

Python 3, 136 ký tự

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 ký tự

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 Chars

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 byte

Sử dụng ngay lập tức Window và Cell [A1]làm đầu vào.

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 ký tự

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