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

use iota in a couple of places

db4
Doug Coleman 2009-08-22 20:56:16 -04:00
parent 346636ed3b
commit a6c7e9d9d4
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -919,7 +919,7 @@ PRIVATE>
<PRIVATE <PRIVATE
: generic-flip ( matrix -- newmatrix ) : generic-flip ( matrix -- newmatrix )
[ dup first length [ length min ] reduce ] keep [ dup first length [ length min ] reduce iota ] keep
[ [ nth-unsafe ] with { } map-as ] curry { } map-as ; inline [ [ nth-unsafe ] with { } map-as ] curry { } map-as ; inline
USE: arrays USE: arrays
@ -929,7 +929,7 @@ USE: arrays
: array-flip ( matrix -- newmatrix ) : array-flip ( matrix -- newmatrix )
{ array } declare { array } declare
[ dup first array-length [ array-length min ] reduce ] keep [ dup first array-length [ array-length min ] reduce iota ] keep
[ [ { array } declare array-nth ] with { } map-as ] curry { } map-as ; [ [ { array } declare array-nth ] with { } map-as ] curry { } map-as ;
PRIVATE> PRIVATE>