home.social

#mand — Public Fediverse posts

Live and recent posts from across the Fediverse tagged #mand, aggregated by home.social.

fetched live
  1. @paulmelis @vosje62 @bert_hubert ja dat is in het vizier, het zou (in mijn geval als ik niet zo gek op het onderwijs en onderzoek was) een belangrijke parameter zijn…. Nu denken veel mensen bij mij #MAND

    Maar zoals Bert omschrijft: mensen zijn niet infantiel, die kunnen best inhoud lezen en niet hoeven afhaken.

    Hoger aantal karakters maakt cross-posten voor (corp)communicatie ook minder uitdagend… (mastodon veel compacter).

  2. @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

  3. @ksaj
    (defun lazy-hax0r-p (x)
    (let* ((7s (scan-range :from 7 :by 7))
    (7m (mask 7s))
    (191s (scan-range :from 191 :by 191))
    (191m (mask 191s))
    (m (#Mand 7m 191m)))
    (collect-nth x m)))

    Attempt two ;p
    EDIT: THREE
    Basically, Series doesn't optimize out consing. #Mand doesn't cons, but #mlist does.
    Connection:
    Series and python are the same age.

  4. @fosskers
    (defun eg (x)
    (let* ((nos (scan-range))
    (fizz-src (series 'fizz))
    (buzz-src (series 'buzz))
    (by3s (scan-range :from 0 :by 3))
    (by5s (Scan-range :from 0 :by 5))
    (fizzes (mask by3s))
    (buzzes (mask by5s))
    (fizz/buzzes (#Mlist (#Mand fizzes fizz-src)
    (#Mand buzzes buzz-src))))
    (list (collect-nth x (#Mand fizzes fizz-src))
    (collect-nth x (#Mand buzzes buzz-src))
    (collect-nth x nos))))
    Oh if I don't tell it to cons, it's faster than loop.

  5. I cannot say this is the easiest thing I have ever written. #lisp
    (defun fizzbuzz-of (x)
    (let* ((nos (scan-range))
    (fizz-src (series 'fizz))
    (buzz-src (series 'buzz))
    (by3s (scan-range :from 0 :by 3))
    (by5s (Scan-range :from 0 :by 5))
    (fizzes (mask by3s))
    (buzzes (mask by5s))
    (fizz/buzzes (#Mlist (#Mand fizzes fizz-src)
    (#Mand buzzes buzz-src))))
    (or (collect (choose-if #'identity
    (scan (collect-nth x fizz/buzzes))))
    (list (collect-nth x nos)))))

  6. Dazu schickt in der Regel der Verurteilte oder sein Anwalt ein Schreiben an meinen Anwalt.

    Dazu hatte mein Rechtsanwalt auch mit dem von #MalteW telefoniert. Dazu schickt in der Regel der Verurteilte oder sein Anwalt ein Schreiben an meinen Anwalt.
    ---
    RT @sbamueller
    Schwurbelnews:
    🚙🚗🚚🛻🚘🚛🚐🏎🚕🚌🚗🚙🚜🛺🚙 genau 15 PKW beim #Coronaleugner #Autokorso unbeachtet in der Stadt.
    👨‍⚖️🏛 Ich habe mal wieder #MalteW verklagt. Da #MalteW’s Anwalt D.#Mand
    twitter.com/sbamueller/status/