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

View File

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