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
-- -- -- -- --
| | | | | | | | | | |
| | | | | | | | | | |
--
| | | | | | | | | | |
| | | | | | | | | | |
-- -- -- --
____________________________________________________________________________________
Do you Yahoo!?
Everyone is raving about the all-new Yahoo! Mail beta.
http://new.mail.yahoo.com
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
