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

sequences: faster "flip", looks at each element only once.

db4
John Benediktsson 2012-09-05 16:02:20 -07:00
parent c86b2d2161
commit 6f66173784
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/sequences/sequences.factor
View File

@ -1010,7 +1010,10 @@ M: object sum 0 [ + ] binary-reduce ; inline
<PRIVATE <PRIVATE
: generic-flip ( matrix -- newmatrix ) : generic-flip ( matrix -- newmatrix )
[ dup first length [ length min ] reduce iota ] keep [
[ first-unsafe length 1 ] keep
[ length min ] (each) (each-integer) iota
] keep
[ [ nth-unsafe ] with { } map-as ] curry { } map-as ; inline [ [ nth-unsafe ] with { } map-as ] curry { } map-as ; inline
USE: arrays USE: arrays
@ -1020,7 +1023,10 @@ USE: arrays
: array-flip ( matrix -- newmatrix ) : array-flip ( matrix -- newmatrix )
{ array } declare { array } declare
[ dup first array-length [ array-length min ] reduce iota ] keep [
[ first-unsafe array-length 1 ] keep
[ array-length min ] (each) (each-integer) iota
] keep
[ [ { array } declare array-nth ] with { } map-as ] curry { } map-as ; [ [ { array } declare array-nth ] with { } map-as ] curry { } map-as ;
PRIVATE> PRIVATE>