steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sequences: nths should return a sequence of the same type as the original (reported by Jon Harper)

db4
Slava Pestov 2011-01-29 00:18:36 -05:00
parent 09848ab420
commit c2aca44b4a
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sequences/sequences-tests.factor
View File

@ -255,6 +255,8 @@ unit-test
[ { "a" "b" "c" "d" } ] [ { 0 1 2 3 } { "a" "b" "c" "d" } nths ] unit-test
[ { "d" "c" "b" "a" } ] [ { 3 2 1 0 } { "a" "b" "c" "d" } nths ] unit-test
[ { "d" "a" "b" "c" } ] [ { 3 0 1 2 } { "a" "b" "c" "d" } nths ] unit-test
[ "dac" ] [ { 3 0 2 } "abcd" nths ] unit-test
TUPLE: bogus-hashcode ;

4
core/sequences/sequences.factor
View File

@ -1,4 +1,4 @@
! Copyright (C) 2005, 2010 Slava Pestov, Daniel Ehrenberg.
! Copyright (C) 2005, 2011 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel kernel.private slots.private math
math.private math.order ;
@ -559,7 +559,7 @@ PRIVATE>
[ [ (indices) ] 2curry each-index ] keep ;
: nths ( indices seq -- seq' )
[ nth ] curry map ;
[ [ nth ] curry ] keep map-as ;
: any? ( ... seq quot: ( ... elt -- ... ? ) -- ... ? )
find drop >boolean ; inline