ssection

Help Contents logo list as set ssection
sunion sminus

logo.ssection :x :y


Definition:

to logo.ssection :x :y
	local "n "z "r
	make "n 1
	make "r []
	repeat count :x
	[ 
		make "z item :n :x 
		if member? :z :y [ make "r lput :z :r ] 
		make "n :n + 1 
	]
	output :r
end

Example:

References:

sunion sminus