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

lint on Project Euler solutions

db4
Aaron Schaefer 2008-01-13 17:28:54 -05:00
parent da98683d8e
commit 0d166264c8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/project-euler/006/006.factor
View File

@ -24,14 +24,18 @@ IN: project-euler.006
! SOLUTION ! SOLUTION
! -------- ! --------
<PRIVATE
: sum-of-squares ( seq -- n ) : sum-of-squares ( seq -- n )
0 [ sq + ] reduce ; 0 [ sq + ] reduce ;
: square-of-sums ( seq -- n ) : square-of-sum ( seq -- n )
0 [ + ] reduce sq ; sum sq ;
PRIVATE>
: euler006 ( -- answer ) : euler006 ( -- answer )
1 100 [a,b] dup sum-of-squares swap square-of-sums - abs ; 1 100 [a,b] dup sum-of-squares swap square-of-sum - abs ;
! [ euler006 ] 100 ave-time ! [ euler006 ] 100 ave-time
! 0 ms run / 0 ms GC ave time - 100 trials ! 0 ms run / 0 ms GC ave time - 100 trials