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

Minor optimization to flip

db4
Slava Pestov 2008-12-09 21:50:31 -06:00
parent 7ad6d34212
commit 2a3db4cd23
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/sequences/sequences.factor
View File

@ -845,9 +845,10 @@ PRIVATE>
USE: arrays USE: arrays
: array-length ( array -- len ) : array-length ( array -- len )
{ array } declare length>> ; { array } declare length>> ; inline
: array-flip ( matrix -- newmatrix ) : array-flip ( matrix -- newmatrix )
{ array } declare
[ dup first array-length [ array-length min ] reduce ] keep [ dup first array-length [ array-length min ] reduce ] keep
[ [ array-nth ] with { } map-as ] curry { } map-as ; [ [ array-nth ] with { } map-as ] curry { } map-as ;