From 9c3b94519d78838a7938095a6c31c8ef9b0406a7 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 12 Mar 2010 16:45:31 +1300 Subject: [PATCH] project-euler.206: reduce memory usage --- extra/project-euler/206/206.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/extra/project-euler/206/206.factor b/extra/project-euler/206/206.factor index 06946d4db7..0563762370 100644 --- a/extra/project-euler/206/206.factor +++ b/extra/project-euler/206/206.factor @@ -1,7 +1,8 @@ ! Copyright (c) 2010 Aaron Schaefer. All rights reserved. ! The contents of this file are licensed under the Simplified BSD License ! A copy of the license is available at http://factorcode.org/license.txt -USING: grouping kernel math math.ranges project-euler.common sequences ; +USING: grouping kernel math math.ranges project-euler.common +sequences sequences.cords ; IN: project-euler.206 ! http://projecteuler.net/index.php?section=problems&id=206 @@ -33,7 +34,7 @@ CONSTANT: hi 1389026570 { 1 2 3 4 5 6 7 8 9 0 } = ; : candidates ( -- seq ) - lo lo 40 + [ hi 100 ] bi@ append ; + lo lo 40 + [ hi 100 ] bi@ cord-append ; PRIVATE>