home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT28.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  383 b   |  26 lines
  1.        CONNECTIONS: adjacency Ie
  2.    a=. 0 0 0 0 1 1 1 1
  3.    b=. 0 0 1 1 0 0 1 1
  4.    c=. 0 1 0 1 0 1 0 1
  5.    $d=. a,b,,:c
  6. 3 8
  7.    adj=. '1=y. +/ . ~: |: y.':''
  8.    [ e=. adj |: d
  9. 0 1 1 0 1 0 0 0
  10. 1 0 0 1 0 1 0 0
  11. 1 0 0 1 0 0 1 0
  12. 0 1 1 0 0 0 0 1
  13. 1 0 0 0 0 1 1 0
  14. 0 1 0 0 1 0 0 1
  15. 0 0 1 0 1 0 0 1
  16. 0 0 0 1 0 1 1 0
  17.    e{' *'
  18.  ** *   
  19. *  * *  
  20. *  *  * 
  21.  **    *
  22. *    ** 
  23.  *  *  *
  24.   * *  *
  25.    * ** 
  26.