#mchar — Public Fediverse posts
Live and recent posts from across the Fediverse tagged #mchar, aggregated by home.social.
-
@ksaj my #lispmoo2 split
{ @verb repeatedly-eval-qt :is
(com-split-string
(let* ((string (car dobj)) (splitchar (car iobj)) (lenz (scan `(,(length string))))
(chars (scan t string))
(mask (#Mchar= chars (series splitchar)))
(space-labels (#Mand mask (scan-range)))
(dense-labels (choose-if #'identity space-labels))
(ends (catenate dense-labels lenz))
(begins (catenate #z(0) (#M1+ dense-labels)))
(words (map-fn t #'(lambda (b e) (subseq string b e)) begins ends)))
(collect words))) } x -
@ksaj my #lispmoo2 split
{ @verb repeatedly-eval-qt :is
(com-split-string
(let* ((string (car dobj)) (splitchar (car iobj)) (lenz (scan `(,(length string))))
(chars (scan t string))
(mask (#Mchar= chars (series splitchar)))
(space-labels (#Mand mask (scan-range)))
(dense-labels (choose-if #'identity space-labels))
(ends (catenate dense-labels lenz))
(begins (catenate #z(0) (#M1+ dense-labels)))
(words (map-fn t #'(lambda (b e) (subseq string b e)) begins ends)))
(collect words))) } x -
@ksaj my #lispmoo2 split
{ @verb repeatedly-eval-qt :is
(com-split-string
(let* ((string (car dobj)) (splitchar (car iobj)) (lenz (scan `(,(length string))))
(chars (scan t string))
(mask (#Mchar= chars (series splitchar)))
(space-labels (#Mand mask (scan-range)))
(dense-labels (choose-if #'identity space-labels))
(ends (catenate dense-labels lenz))
(begins (catenate #z(0) (#M1+ dense-labels)))
(words (map-fn t #'(lambda (b e) (subseq string b e)) begins ends)))
(collect words))) } x -
@ksaj my #lispmoo2 split
{ @verb repeatedly-eval-qt :is
(com-split-string
(let* ((string (car dobj)) (splitchar (car iobj)) (lenz (scan `(,(length string))))
(chars (scan t string))
(mask (#Mchar= chars (series splitchar)))
(space-labels (#Mand mask (scan-range)))
(dense-labels (choose-if #'identity space-labels))
(ends (catenate dense-labels lenz))
(begins (catenate #z(0) (#M1+ dense-labels)))
(words (map-fn t #'(lambda (b e) (subseq string b e)) begins ends)))
(collect words))) } x -
@ksaj my #lispmoo2 split
{ @verb repeatedly-eval-qt :is
(com-split-string
(let* ((string (car dobj)) (splitchar (car iobj)) (lenz (scan `(,(length string))))
(chars (scan t string))
(mask (#Mchar= chars (series splitchar)))
(space-labels (#Mand mask (scan-range)))
(dense-labels (choose-if #'identity space-labels))
(ends (catenate dense-labels lenz))
(begins (catenate #z(0) (#M1+ dense-labels)))
(words (map-fn t #'(lambda (b e) (subseq string b e)) begins ends)))
(collect words))) } x