home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT41.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  404 b   |  20 lines
  1.             SETS: union, etc. Nc
  2.    (even=. 0&=&(2&|))a=. i. 16
  3. 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
  4.    prime=.'2=+/0=y.|~1+i.y.':''"0
  5.    prime a
  6. 0 0 1 1 0 1 0 1 0 0 0 1 0 1 0 0
  7.    (prime a) # a
  8. 2 3 5 7 11 13
  9.    a#~(prime*.even)a
  10. 2
  11.    a#~(prime>even)a
  12. 3 5 7 11 13
  13.    triple=.0&=&(3&|)
  14.    q=. even+.triple
  15.    (q a) # a
  16. 0 2 3 4 6 8 9 10 12 14 15
  17.    r=. prime +. even *. triple
  18.    (r a) # a
  19. 0 2 3 5 6 7 11 12 13
  20.