2016-03-29 23:43:46 -04:00
|
|
|
USING: assocs graphs kernel namespaces sorting tools.test ;
|
|
|
|
QUALIFIED: sets
|
2016-03-21 13:17:29 -04:00
|
|
|
|
|
|
|
H{ } "g" set
|
|
|
|
{ 1 2 3 } "v" set
|
|
|
|
|
|
|
|
{ } [ "v" dup get "g" get add-vertex ] unit-test
|
|
|
|
|
2016-03-29 23:43:46 -04:00
|
|
|
{ { "v" } } [ 1 "g" get at sets:members ] unit-test
|
2016-03-21 13:17:29 -04:00
|
|
|
|
|
|
|
H{
|
|
|
|
{ 1 HS{ 1 2 } }
|
|
|
|
{ 2 HS{ 3 4 } }
|
|
|
|
{ 4 HS{ 4 5 } }
|
|
|
|
} "g" set
|
|
|
|
|
|
|
|
{ { 2 3 4 5 } } [
|
2016-03-29 23:43:46 -04:00
|
|
|
2 [ "g" get at sets:members ] closure sets:members natural-sort
|
2016-03-21 13:17:29 -04:00
|
|
|
] unit-test
|