From cca231cef16a9c1625bdf6c484186aba51677bb6 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 12 Jul 2016 09:07:10 -0700 Subject: [PATCH] project-euler.265: fix bad refactor. --- extra/project-euler/265/265.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/project-euler/265/265.factor b/extra/project-euler/265/265.factor index 387677fef6..261a9e8ff2 100644 --- a/extra/project-euler/265/265.factor +++ b/extra/project-euler/265/265.factor @@ -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