X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fproject-euler%2F049%2F049.factor;h=8b6f635ee4bb5c932c65ae2a4fde0b7a70b47390;hp=9ecf942ef669a88ee1a0b073cbf0f24e121edd85;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/extra/project-euler/049/049.factor b/extra/project-euler/049/049.factor index 9ecf942ef6..8b6f635ee4 100644 --- a/extra/project-euler/049/049.factor +++ b/extra/project-euler/049/049.factor @@ -27,7 +27,7 @@ IN: project-euler.049 : count-digits ( n -- byte-array ) 10 [ - '[ 10 /mod _ [ 1+ ] change-nth dup 0 > ] loop drop + '[ 10 /mod _ [ 1 + ] change-nth dup 0 > ] loop drop ] keep ; HINTS: count-digits fixnum ;