バイナリクロック

http://ja.doukaku.org/275/

時刻を二進数相当の表現で出力する時計アプリケーションを書いてください。
20:18の場合，例えば以下の様な出力をするイメージです。

出力例:
■□■□□
□■□□■□

グラフィックウインドウに描くことにしよう

func <- function(a, s, e, y)
{
    text(1, y, paste(ifelse(rev(rawToBits(as.raw(substr(a, s, e)))), "x", "o"), collapse=""))
}
plot(c(0, 2), c(0, 5), type="n", xlab="", ylab="", xaxt="n", yaxt="n", bty="n")
repeat {
    a <- Sys.time()
    rect(0.5, 0.5, 1.5, 4.5, col="white")
    text(1, 4, substr(a, 12, 19))
    func(a, 12, 13, 3)
    func(a, 15, 16, 2)
    func(a, 18, 19, 1)
    repeat {
        if (substr(a, 18, 19) != substr(Sys.time(), 18, 19)) break
    }
}