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

Minor Project Euler cleanup

db4
Aaron Schaefer 2008-11-17 18:41:21 -05:00
parent 000d84a871
commit f8e86894a4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/project-euler/047/047.factor
View File

@ -32,7 +32,7 @@ IN: project-euler.047
<PRIVATE <PRIVATE
: (consecutive) ( count goal test -- n ) : (consecutive) ( count goal test -- n )
pick pick = [ 2over = [
swap - nip swap - nip
] [ ] [
dup prime? [ [ drop 0 ] 2dip ] [ dup prime? [ [ drop 0 ] 2dip ] [