From b55f6d91145ba8bbc8d2573abe5cb3b3d3203ba0 Mon Sep 17 00:00:00 2001
From: Samuel Tardieu <sam@rfc1149.net>
Date: Mon, 31 Dec 2007 00:24:24 +0100
Subject: [PATCH] Use constant stack effect to prevent compilation errors

---
 extra/project-euler/011/011.factor | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/extra/project-euler/011/011.factor b/extra/project-euler/011/011.factor
index 9739ee971c..7520fb9182 100644
--- a/extra/project-euler/011/011.factor
+++ b/extra/project-euler/011/011.factor
@@ -72,13 +72,13 @@ IN: project-euler.011
 
 : pad-front ( matrix -- matrix )
     [
-        length [ 0 <repetition> ] each
-    ] keep [ append ] map ;
+        length [ 0 <repetition> ] map
+    ] keep [ append ] 2map ;
 
 : pad-back ( matrix -- matrix )
     <reversed> [
-        length [ 0 <repetition> ] each
-    ] keep [ <reversed> append ] map ;
+        length [ 0 <repetition> ] map
+    ] keep [ <reversed> append ] 2map ;
 
 : diagonal/ ( -- matrix )
     horizontal reverse pad-front pad-back flip ;
@@ -98,9 +98,6 @@ PRIVATE>
         [ call 4 max-product , ] each
     ] { } make supremum ;
 
-! TODO: solution works but doesn't completely compile due to the creation of
-! the diagonal matrices, there must be a cleaner way to generate those
-
 ! [ euler011 ] 100 ave-time
 ! 4 ms run / 0 ms GC ave time - 100 trials