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>