From 81462d14797350924f9af4c76b29f62880f4b131 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 22 Sep 2009 05:19:26 -0500 Subject: [PATCH] project-euler.074: cleanup --- extra/project-euler/074/074.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/extra/project-euler/074/074.factor b/extra/project-euler/074/074.factor index e38d0d51bb..7f0a54a43c 100644 --- a/extra/project-euler/074/074.factor +++ b/extra/project-euler/074/074.factor @@ -1,7 +1,7 @@ ! Copyright (c) 2009 Guillaume Nargeot. ! See http://factorcode.org/license.txt for BSD license. USING: assocs hashtables kernel math math.ranges -project-euler.common sequences ; +project-euler.common sequences sets ; IN: project-euler.074 ! http://projecteuler.net/index.php?section=problems&id=074 @@ -51,9 +51,10 @@ IN: project-euler.074 number>digits [ digit-factorial ] sigma ; : chain-length ( n -- n ) - 61 [ 2dup at* nip f = ] [ - 2dup dupd set-at [ digits-factorial-sum ] dip - ] while nip assoc-size ; + 61 + [ 2dup key? not ] + [ [ conjoin ] [ [ digits-factorial-sum ] dip ] 2bi ] + while nip assoc-size ; PRIVATE>