10 lines
199 B
Factor
10 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
|
||
|
|
.
|