steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

project-euler.206: reduce memory usage

db4
Slava Pestov 2010-03-12 16:45:31 +13:00
parent e8f857f3f6
commit 9c3b94519d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/project-euler/206/206.factor
View File

@ -1,7 +1,8 @@
! Copyright (c) 2010 Aaron Schaefer. All rights reserved. ! Copyright (c) 2010 Aaron Schaefer. All rights reserved.
! The contents of this file are licensed under the Simplified BSD License ! 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 ! 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 IN: project-euler.206
! http://projecteuler.net/index.php?section=problems&id=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 } = ; { 1 2 3 4 5 6 7 8 9 0 } = ;
: candidates ( -- seq ) : candidates ( -- seq )
lo lo 40 + [ hi 100 <range> ] bi@ append ; lo lo 40 + [ hi 100 <range> ] bi@ cord-append ;
PRIVATE> PRIVATE>