! Copyright (c) 2007 Samuel Tardieu, Aaron Schaefer.
! See http://factorcode.org/license.txt for BSD license.
-USING: io.files math.parser namespaces project-euler.common
+USING: io.files math.parser project-euler.common
io.encodings.ascii sequences splitting ;
IN: project-euler.067
: source-067 ( -- seq )
"resource:extra/project-euler/067/triangle.txt"
- ascii file-lines [ " " split [ string>number ] map ] map ;
+ ascii file-lines [ split-words [ string>number ] map ] map ;
PRIVATE>
source-067 propagate-all first first ;
! [ euler067 ] 100 ave-time
-! 18 ms run / 0 ms GC time
+! 20 ms ave run time - 2.12 SD (100 trials)
! ALTERNATE SOLUTIONS
source-067 max-path ;
! [ euler067a ] 100 ave-time
-! 14 ms run / 0 ms GC ave time - 100 trials
+! 21 ms ave run time - 2.65 SD (100 trials)
-MAIN: euler067a
+SOLUTION: euler067a