Skip to content

Optimize sliding #31

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 4 commits into from
Jan 15, 2025
Merged

Optimize sliding #31

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
d81031b
Optimize `sliding` performance
walking-octopus Jan 15, 2025
31857dc
sliding: bring back error messages
walking-octopus Jan 15, 2025
091c81b
sliding: remove redundant wording
walking-octopus Jan 15, 2025
bb63a77
sliding: bring back the original names
walking-octopus Jan 15, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 10 additions & 10 deletions main.rkt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -102,16 +102,16 @@


(define (sliding lst size [step 1])
(define (tail-call lst)
(if (>= size (length lst))
(list lst)
(cons (take lst size)
(tail-call (drop lst step)))))
(cond
[(> step (length lst))
(error "step has to be equal to or smaller than length of the list")]
[(= step (length lst)) (list lst)]
[else (tail-call lst)]))
(when (or (<= step 0) (> step (length lst)))
(error "step has to be equal to or smaller than the length of the list"))

(let recur [(lst lst)
(len (length lst))]
(if (>= len size)
(cons (take lst size)
(recur (drop lst step)
(- len step)))
empty)))


(define (scanl proc lst)
Expand Down