X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fproject-euler%2F035%2F035.factor;h=7d98de62b1bb26a7825e75ff71a91d79cae19f29;hp=378461842312e15d9f4815690281e5abc03e6c8a;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/extra/project-euler/035/035.factor b/extra/project-euler/035/035.factor index 3784618423..7d98de62b1 100755 --- a/extra/project-euler/035/035.factor +++ b/extra/project-euler/035/035.factor @@ -39,13 +39,13 @@ IN: project-euler.035 : (circular?) ( seq n -- ? ) dup 0 > [ 2dup rotate 10 digits>integer - prime? [ 1- (circular?) ] [ 2drop f ] if + prime? [ 1 - (circular?) ] [ 2drop f ] if ] [ 2drop t ] if ; : circular? ( seq -- ? ) - dup length 1- (circular?) ; + dup length 1 - (circular?) ; PRIVATE>