project-euler.011: Better name for matrix diagonals.
parent
22e59d7838
commit
5a5776068c
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue