X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fproject-euler%2F076%2F076.factor;h=8615a272ae1cfd7e3bd042d8ea95aeb15a711675;hp=e6ed9035d2b72e1fd702003551d77b247ff7718d;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/extra/project-euler/076/076.factor b/extra/project-euler/076/076.factor index e6ed9035d2..8615a272ae 100644 --- a/extra/project-euler/076/076.factor +++ b/extra/project-euler/076/076.factor @@ -35,7 +35,7 @@ IN: project-euler.076 over zero? [ 3drop ] [ - [ [ 1- 2array ] dip at ] + [ [ 1 - 2array ] dip at ] [ [ use 2array ] dip at + ] [ [ 2array ] dip set-at ] 3tri ] if ; @@ -46,7 +46,7 @@ IN: project-euler.076 : (euler076) ( n -- m ) dup init [ [ ways ] curry each-subproblem ] - [ [ dup 2array ] dip at 1- ] 2bi ; + [ [ dup 2array ] dip at 1 - ] 2bi ; PRIVATE>