Set: Difference between revisions

[ join --duplicates ] is symmdiff ( { { --> { )

 

 

[ over intersection = ] is subset ( { { --> b )

 

( ------------------------------ demo ------------------------------ )

 

set{ red orange green blue

purple apricot peach }set is colours ( --> { )

 

 

colours dup echoset say " are colours" cr

2dup intersection echoset say " are both fruits and colours" cr

2dup union echoset say " are fruits or colours" cr

2dup symmdiff echoset say " are fruits or colours but not both" cr

difference echoset say " are fruits that are not colours" cr

set{ red green blue }set dup echoset say " are"

colours subset not if [ say " not" ] say " all colours" cr

say "fruits and colours are" fruits colours = not if [ say " not" ]

say " exactly the same" cr

$ "orange" dup echo$ say " is"

fruits element not if [ say " not" ] say " a fruit" cr

set{ orange }set dup echoset say " is"

fruits propersubset dup if [ say " not" ] say " the only fruit"

{{out}}

 

{ apricot orange peach } are both fruits and colours

{ apple apricot banana blue green melon orange peach pear purple red } are fruits or colours

[ ^ ] is symmdiff ( { { --> { )

 

 

[ over intersection = ] is subset ( { { --> b )

 

( ----------------------------- demo ---------------------------- )

 

set{ red orange green blue

purple apricot peach }set is colours ( --> { )

 

 

colours dup echoset say " are colours" cr

2dup intersection echoset say " are both fruits and colours" cr

{{out}}

 

{ banana melon pear apple } are fruits that are not colours

{ blue green red } are all colours