ACHTUNG! BlinkenLights

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
import Data.Time.Clock
import Data.Time.LocalTime

{--

So, now we can count by unary numbers and also by binary numbers. We are living
the high life! What more could we ask for?

Well, mo' time, of course!

Given the current input UTC time, output, however you see fit, the current
time as a binary string of 'digits.' ... whatever 'digits' mean to you, including,
possibly, the meaning of the word 'BlinkenLights.'

https://en.wikipedia.org/wiki/Blinkenlights

 --}

blinkenLights :: Show a => UTCTime -> a
blinkenLights theTime = undefined

-- A solution is available at http://lpaste.net/108429