extra/lcd/lcd.factor

   1 USING: sequences kernel math io ;
   2 IN: lcd
   3
   4 : lcd-digit ( digit row -- str )
   5     {
   6         "  _       _  _       _   _   _   _   _  "
   7         " | |  |   _| _| |_| |_  |_    | |_| |_| "
   8         " |_|  |  |_  _|   |  _| |_|   | |_|   | "
   9     } nth >r 4 * dup 4 + r> subseq ;
  10
  11 : lcd-row ( num row -- )
  12     swap [ CHAR: 0 - swap lcd-digit write ] curry* each ;
  13
  14 : lcd ( digit-str -- )
  15     3 [ lcd-row nl ] curry* each ;
  16
  17 : lcd-demo ( -- ) "31337" lcd ;
  18
  19 MAIN: lcd-demo