home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT21.JS < prev    next >
Text File  |  1991-06-13  |  391b  |  27 lines
  1.           PROGRAMS: recursive Gf
  2.    [ a=.3 3$'abcdefghi'
  3. abc
  4. def
  5. ghi
  6.    (f=.i.&# -."1 0 i.&#) a
  7. 1 2
  8. 0 2
  9. 0 1
  10.    <"2 (minors=.f { 1&}."1) a
  11. +--+--+--+
  12. |ef|bc|bc|
  13. |hi|hi|ef|
  14. +--+--+--+
  15.    p=.'$.=. 1+1=#y.'
  16.    q=.'(0{"1 y.)-/ . *$:"2 minors y.'
  17.    r=.'0{,y.'
  18.    [ b=.?3 3$9
  19. 1 6 4
  20. 4 1 0
  21. 6 6 8
  22.    (det=.(p;q;r) : '') b
  23. _112
  24.    s=.'(0{"1 y.)+/ . *$:"2 minors y.'
  25.    (permanent=.(p;s;r) : '') b
  26. 320
  27.