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