home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT3.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  393 b   |  26 lines
  1.                        TABLES Da
  2.    prices=. 3 1 4 2
  3.    orders=. 2 0 2 1
  4.    prices * orders
  5. 6 0 8 2
  6.    prices */ orders
  7. 6 0 6 3
  8. 2 0 2 1
  9. 8 0 8 4
  10. 4 0 4 2
  11.  
  12.    TO READ A TABLE,
  13.    BORDER IT BY ITS ARGUMENTS:
  14.  
  15.    over=.({.,.@;}.)&":@,
  16.    by=.(,~"_1 ' '&;&,.)~
  17.    prices by orders over prices */ orders
  18. +-+-------+
  19. | |2 0 2 1|
  20. +-+-------+
  21. |3|6 0 6 3|
  22. |1|2 0 2 1|
  23. |4|8 0 8 4|
  24. |2|4 0 4 2|
  25. +-+-------+
  26.