home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tut / TUT40.JS < prev    next >
Encoding:
Text File  |  1991-06-13  |  301 b   |  16 lines
  1.               SETS: relations Nb
  2.    i=.i.8  [  p=. 2 3 5 7 11
  3.    belongsto=. +./"1 @ (=/)
  4.    i belongsto p
  5. 0 0 1 1 0 1 0 1
  6.    e=. belongsto
  7.    p e i
  8. 1 1 1 1 0
  9.    c=. -.@v=. e&'aeiou'
  10.    alph=.  'abcdefghijklmno'
  11.    alph=. alph,'pqrstuvwxyz'
  12.    (v alph)#alph
  13. aeiou
  14.    (#~ c) alph
  15. bcdfghjklmnpqrstvwxyz
  16.