fork download
  1. (defun d2a (digital)
  2. (format t "~9T~[X~:;~[x~:;o~]~:*~]~:*~%~4T~[~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~]~:*~;X~]~:*~14T~[~[o~;x~:;o~]~:*~;X~:;~[o~;x~:;o~]~:*~]~:*~2%~T~[~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~;X~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;o~;x~;o~]~:*~]~:*~17T~[~[o~;o~;x~:;o~]~:*~;~[o~;o~;x~:;o~]~:*~;X~:;~[o~;o~;x~:;o~]~:*~]~:*~2%~[~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;X~:;~[o~;o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~]~:*~18T~[~[o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;x~:;o~]~:*~;X~:;~[o~;o~;o~;x~:;o~]~:*~]~:*~2%~T~[~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;X~:;~[o~;o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~]~:*~17T~[~[o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;x~:;o~]~:*~;X~:;~[o~;o~;o~;o~;x~:;o~]~:*~]~:*~2%~4T~[~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~;X~:;~[o~;o~;o~;o~;o~;o~;o~;x~:;o~]~:*~]~:*~14T~[~[o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;x~:;o~]~:*~;~[o~;o~;o~;o~;o~;x~:;o~]~:*~;X~:;~[o~;o~;o~;o~;o~;x~:;o~]~:*~]~:*~%~9T~[~[o~;o~;o~;o~;o~;o~;x~:;o~]~;~[o~;o~;o~;o~;o~;o~;x~:;o~]~;~[o~;o~;o~;o~;o~;o~;x~:;o~]~;~[o~;o~;o~;o~;o~;o~;x~:;o~]~;~[o~;o~;o~;o~;o~;o~;x~:;o~]~;~[o~;o~;o~;o~;o~;o~;x~:;o~]~;X~:;~[o~;o~;o~;o~;o~;o~;x~:;o~]~]~2%"
  3. (mod (parse-integer (subseq digital 0 2)) 12) (round (parse-integer (subseq digital 3)) 5)))
  4.  
  5. (d2a "18:35")
  6. (d2a "00:00")
  7. (d2a "10:03")
Success #stdin #stdout 0.04s 10824KB
stdin
Standard input is empty
stdout
         o
    o         o

 o               o

o                 o

 o               o

    x         o
         X

         X
    o         o

 o               o

o                 o

 o               o

    o         o
         o

         o
    o         x

 X               o

o                 o

 o               o

    o         o
         o