สร้างนาฬิกาไบนารี BCD ใน ASCII โดยนัยแล้วมันจะแสดงเวลาในคอลัมน์หกจุด:

_{(ที่มา: Wikimedia Commons )}

แต่ละคอลัมน์เป็นตัวเลขไบนารีรหัสอ่านชั่วโมงนาทีและวินาทีจากซ้ายไปขวา ชั่วโมงถูกกำหนดในรูปแบบ 24 ชั่วโมง

เวลาในการแสดงถูกอ่านจากบรรทัดคำสั่งหรือจาก stdin (แล้วแต่ว่าจะดีกว่า) หากไม่มีข้อมูลควรใช้เวลาปัจจุบันแทน

ขนาดเอาต์พุตมีข้อ จำกัด เล็กน้อยที่นี่และเราสามารถใส่ข้อความสองบรรทัดเท่านั้น ดังนั้นคุณจะต้องใส่จุดลงในสองบรรทัดเท่านั้น ตัวละคร., :และ'เข้ามามีประโยชน์ที่นี่

อินพุต

เวลาที่จะแสดงในรูปแบบ ISO-8601 คือHH:MM:SSไม่เสี้ยววินาที รูปแบบบังคับ 24 ชั่วโมง อินพุตอาจว่างเปล่าซึ่งในกรณีนี้จะใช้เวลาปัจจุบัน

เอาท์พุต

มีสองเส้นที่แสดงถึงนาฬิกาไบนารี BCD ดังภาพด้านบน แต่ละบรรทัดมีความยาวหกตัวอักษรและอักขระที่อนุญาตเท่านั้นคือช่องว่างช่วงเวลาเครื่องหมายจุดคู่และเครื่องหมายอะโพสโทรฟี

ผู้ชนะ

รหัสที่สั้นที่สุดนับเป็นไบต์ชนะ ในวิธีการแก้ปัญหาการโพสต์ชนะครั้งแรก

ตัวอย่างอินพุต 1

(ว่าง)

ตัวอย่างผลลัพธ์ 1

     .
''. ::

ตัวอย่างอินพุต 2

17:59:20

ตัวอย่างผลลัพธ์ 2

 ..'  
.:..' 

ตัวอย่างอินพุต 3

01:08:01

ตัวอย่างผลลัพธ์ 3

   '  
 .   .

Golfscript (+ ruby ​​/ date) - 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]}]*""

โปรดทราบว่าการป้อนข้อมูลที่ไม่ควรมี LINEBREAK 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ไม่จำเป็นอีกต่อไป

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

Golfscript (+ Ruby), 63

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

ยังเป็นผู้เริ่มต้นกับ Golfscript อย่าตีฉัน

Perl (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 - 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)

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 ไบต์

ใช้หน้าต่างและเซลล์ทันที[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