A little shorter nums:
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) {.
--- Oleg Kobchenko <[EMAIL PROTECTED]> wrote:
> 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=: ([EMAIL PROTECTED] extract [EMAIL PROTECTED] expand ])&DL
>
> nums 2 0 1,1 1,2 0 0 7
> -- -- -- -- --
> | | | | | | | | | | |
> | | | | | | | | | | |
> --
> | | | | | | | | | | |
> | | | | | | | | | | |
> -- -- -- --
____________________________________________________________________________________
Want to start your own business?
Learn how on Yahoo! Small Business.
http://smallbusiness.yahoo.com/r-index
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
