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

project-euler.011: Better name for matrix diagonals.

modern-harvey2
Doug Coleman 2017-08-26 17:03:12 -05:00
parent 22e59d7838
commit 5a5776068c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/project-euler/011/011.factor
View File

@ -80,10 +80,10 @@ IN: project-euler.011
length <iota> [ 0 <repetition> ] map length <iota> [ 0 <repetition> ] map
] keep [ <reversed> append ] 2map ; ] keep [ <reversed> append ] 2map ;
: diagonal/ ( -- matrix ) : major-diagonal ( -- matrix ) ! \
horizontal reverse pad-front pad-back flip ; horizontal reverse pad-front pad-back flip ;
: diagonal\ ( -- matrix ) : minor-diagonal ( -- matrix ) ! /
horizontal pad-front pad-back flip ; horizontal pad-front pad-back flip ;
: max-product ( matrix width -- n ) : max-product ( matrix width -- n )
@ -94,7 +94,7 @@ PRIVATE>
: euler011 ( -- answer ) : euler011 ( -- answer )
[ [
{ [ horizontal ] [ vertical ] [ diagonal/ ] [ diagonal\ ] } { [ horizontal ] [ vertical ] [ minor-diagonal ] [ major-diagonal ] }
[ call( -- matrix ) 4 max-product , ] each [ call( -- matrix ) 4 max-product , ] each
] { } make supremum ; ] { } make supremum ;