From 5a5776068c60805ca8e0e093555bbe590bbe3b86 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 26 Aug 2017 17:03:12 -0500
Subject: [PATCH] project-euler.011: Better name for matrix diagonals.
---
extra/project-euler/011/011.factor | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/extra/project-euler/011/011.factor b/extra/project-euler/011/011.factor
index 1b554efa17..f34a185e65 100644
--- a/extra/project-euler/011/011.factor
+++ b/extra/project-euler/011/011.factor
@@ -80,10 +80,10 @@ IN: project-euler.011
length <iota> [ 0 <repetition> ] map
] keep [ <reversed> append ] 2map ;
-: diagonal/ ( -- matrix )
+: major-diagonal ( -- matrix ) ! \
horizontal reverse pad-front pad-back flip ;
-: diagonal\ ( -- matrix )
+: minor-diagonal ( -- matrix ) ! /
horizontal pad-front pad-back flip ;
: max-product ( matrix width -- n )
@@ -94,7 +94,7 @@ PRIVATE>
: euler011 ( -- answer )
[
- { [ horizontal ] [ vertical ] [ diagonal/ ] [ diagonal\ ] }
+ { [ horizontal ] [ vertical ] [ minor-diagonal ] [ major-diagonal ] }
[ call( -- matrix ) 4 max-product , ] each
] { } make supremum ;