sequences-contrib fix
parent
2f43d58a47
commit
5bb503f4ac
|
@ -1,4 +1,4 @@
|
||||||
|
USING: kernel math sequences ;
|
||||||
IN: sequences-contrib
|
IN: sequences-contrib
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
@ -16,3 +16,5 @@ IN: sequences-contrib
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
: last ( seq -- elt ) dup length 1- swap nth ;
|
: last ( seq -- elt ) dup length 1- swap nth ;
|
||||||
|
|
||||||
|
PROVIDE: contrib/sequences ;
|
Loading…
Reference in New Issue