home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BURKS 2
/
BURKS_AUG97.ISO
/
BURKS
/
SOFTWARE
/
LIBS
/
NIHCL1.ZIP
/
NIHCL-3.0
/
TEST
/
BAG.V
(
.txt
)
< prev
next >
Wrap
Text File
|
1990-05-20
|
482b
|
43 lines
Test class Bag
b = Bag[AssocInt[Point[(1,1)]
=>Integer[1]
]
AssocInt[Point[(1,3)]
=>Integer[2]
]
AssocInt[Point[(1,2)]
=>Integer[1]
]
]
b.asArrayOb: (1,1)
(1,3)
(1,3)
(1,2)
c = Bag[AssocInt[Point[(1,1)]
=>Integer[1]
]
AssocInt[Point[(1,3)]
=>Integer[2]
]
AssocInt[Point[(1,2)]
=>Integer[1]
]
]
c = Bag[]
b.includes(C): 1
c == b: 1
b.includes(C): 1
b = (1,1)
(1,3)
(1,2)
b.includes(C): 0
b = Bag[AssocInt[Point[(1,1)]
=>Integer[1]
]
AssocInt[Point[(1,2)]
=>Integer[1]
]
]
c == b: 0