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

project-euler.265: fix bad refactor.

char-rename
John Benediktsson 2016-07-12 09:07:10 -07:00
parent 46aa1f2088
commit cca231cef1
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/265/265.factor
View File

@ -41,7 +41,7 @@ CONSTANT: N 5
: ?register ( acc seq -- )
complete rotate-bits
[ 2 N ^ mod ] map all-unique? [ infimum swap push ] [ drop ] if* ;
dup [ 2 N ^ mod ] map all-unique? [ infimum swap push ] [ 2drop ] if ;
: add-bit ( seen bit -- seen' t/f )
over last 2 * + 2 N ^ mod