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

Slight cleanup of PE problem 54 solution

db4
Aaron Schaefer 2009-04-05 21:16:20 -04:00
parent 8fdc852038
commit 4a229e5205
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/project-euler/054/054.factor
View File

@ -73,15 +73,12 @@ IN: project-euler.054
"resource:extra/project-euler/054/poker.txt" ascii file-lines "resource:extra/project-euler/054/poker.txt" ascii file-lines
[ [ 14 head-slice ] [ 14 tail-slice* ] bi 2array ] map ; [ [ 14 head-slice ] [ 14 tail-slice* ] bi 2array ] map ;
: player1-win? ( hand1 hand2 -- ? )
before? ; inline
PRIVATE> PRIVATE>
: euler054 ( -- answer ) : euler054 ( -- answer )
source-054 [ [ <hand> ] map first2 player1-win? ] count ; source-054 [ [ <hand> ] map first2 before? ] count ;
! [ euler054 ] 100 ave-time ! [ euler054 ] 100 ave-time
! 36 ms ave run time - 2.71 SD (100 trials) ! 34 ms ave run time - 2.65 SD (100 trials)
SOLUTION: euler054 SOLUTION: euler054