9 lines
199 B
Factor
9 lines
199 B
Factor
: list-append ( previous new -- )
|
|
[ swap next>> >>next drop ] [ >>next drop ] 2bi ;
|
|
|
|
SYMBOLS: A B C ;
|
|
|
|
A <linked-list>
|
|
[ C <linked-list> list-append ] keep
|
|
[ B <linked-list> list-append ] keep
|
|
.
|