Public
- Public
- Network
- Groups
- Featured
- Popular
- People

(series::let* ((S (series::scan (cadr sequence))) (nos (series::scan-range)) (mask1 (#M<= (series::series (+ row dr1)) nos)) (mask2 (#M< nos (series::series (+ row dr2)))) (lists (#Mcadr S)) (sublists (#Msubseq lists (series::series (+ col dc1)) (series::series (+ col dc2))))) (series::collect (series::choose (#Mand mask1 mask2 nos) (#Mcons nos sublists))))

Download link

(series::let* ((S (series::scan (cadr sequence))) (nos (series::scan-range)) (mask1 (#M<= (series::series (+ row dr1)) nos)) (mask2 (#M< nos (series::series (+ row dr2)))) (lists (#Mcadr S)) (sublists (#Msubseq lists (series::series (+ col dc1)) (series::series (+ col dc2))))) (series::collect (series::choose (#Mand mask1 mask2 nos) (#Mcons nos sublists))))
https://mastodon.sdf.org/system/media_attachments/files/114/492/790/879/352/251/original/1e94b9be4704cd4c.png

Notices where this attachment appears

Embed this notice
screwlisp (screwtape@mastodon.sdf.org)'s status on Monday, 12-May-2025 15:20:34 JST screwlisp

#programming #gamedev #devlog #commonLisp #series #lazyEvaluation #functionalprogramming https://screwlisp.small-web.org/lispgames/cl-series-for-game-logic/ #lispgamejam
Since cl-series generates native common lisp code by working at macro expansion time, I consider it suitable for my software individuals (who want only clos-less common lisp and their own logic (which they have an introspective theory of).
In particular, I use series to cut out rectangular subsequence of sequences -s
SERIES DOC UPDATE FROM RTOY https://gitlab.common-lisp.net/rtoy/cl-series/-/wikis/Series-User's-Guide

In conversation about a year ago from mastodon.sdf.org permalink