bl

Help Contents logo Mutators bl
bf first

logo.bl :x {:#1}


Outputs a new list containing all elements of the input list but the last one.

Definition:

to logo.bl :x {:#1} 
	if set? :x
	[ 
		if local? "#1
		[ 
			if :#1<0 [error "'Invalid second argument of "BL"']
			while :#1 >= 1 
			[ 
				if local? word "x.# setmin :x 
				[ 
					delete word "x.# setmin :x
				]
				make "#1 :#1 - 1 
			] 
			while :#1 >= 1 
			[ 
				if local? word "x.# setmax :x
				[
					delete word "x.# setmax :x
				]
				make "#1 :#1 - 1 
			]
		]
		[ 
			delete word "x.# setmax :x 
		]
		output :x
	]
	[ 
		output dll.logo.logobl 
	]
end

Examples:

References:

bf first