From ab772299bec005ca2cbde655e45665a318a84531 Mon Sep 17 00:00:00 2001 From: gifti258 <80504430+gifti258@users.noreply.github.com> Date: Sun, 5 Dec 2021 01:47:32 +0100 Subject: [PATCH] Fix off-by-one error in rolling-map --- basis/sequences/windowed/windowed.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/sequences/windowed/windowed.factor b/basis/sequences/windowed/windowed.factor index df2b05b58c..2e60214083 100644 --- a/basis/sequences/windowed/windowed.factor +++ b/basis/sequences/windowed/windowed.factor @@ -26,7 +26,7 @@ M: windowed-sequence length :: rolling-map ( ... seq n quot: ( ... slice -- ... elt ) -- ... newseq ) seq length [ - [ n [-] ] [ seq ] bi quot call + 1 + [ n [-] ] [ seq ] bi quot call ] { } map-integers ; inline : rolling-sum ( seq n -- newseq ) -- 2.34.1