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

math.matrices: simpler square-rows.

db4
John Benediktsson 2013-05-14 13:52:24 -07:00
parent bcbf3198f7
commit 5ee7f10f19
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/matrices/matrices.factor
View File

@ -224,7 +224,7 @@ IN: math.matrices
GENERIC: square-rows ( object -- matrix )
M: integer square-rows iota square-rows ;
M: sequence square-rows
>array [ length ] keep [ clone ] curry { } replicate-as ;
[ length ] keep >array '[ _ clone ] { } replicate-as ;
GENERIC: square-cols ( object -- matrix )
M: integer square-cols iota square-cols ;