[Jprogramming] LC-Display problem

[Oleg Kobchenko]

NR=: 5#.^:_1]180 1692 395 390 1392 515 505 442 130 140
DL=: NR{' -|'{~3#.^:_1]3 20 0 2 18

expand=: (1>.0 1 0*[) #"1 (1>.0 1 0 1 0*[) #"1 2 ]
extract=: [: (,. ' '&,.)/ {
nums=: (}.@[ extract {.@[ expand ])&DL

   nums 2  0 1,1 1,2 0 0 7
 --                  --   --   --   -- 
|  |    |    |    |    | |  | |  |    |
|  |    |    |    |    | |  | |  |    |
                     --                
|  |    |    |    | |    |  | |  |    |
|  |    |    |    | |    |  | |  |    |
 --                  --   --   --      



 
____________________________________________________________________________________
Do you Yahoo!?
Everyone is raving about the all-new Yahoo! Mail beta.
http://new.mail.yahoo.com