|
|
|
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 |
|
|
|