#mand — Public Fediverse posts
Live and recent posts from across the Fediverse tagged #mand, aggregated by home.social.
-
Lastetoa põrandavoodi turvapiirdega 180×200 cm mänd: Turvaline põrandavoodi lastele minimalistlikus stiilis.
Vastupidav ja turvaline põrandavoodi kahele lapsele, stiilse tähedega piirdega. Telli mugavus ja turvatunne oma lastetuppa juba täna! https://tootemaailm.ee/lastetoa-porandavoodi-turvapiirdega-180x200-cm-mand/ #põrandavoodi #lastetuba #turvapidi #minimalism #mänd
-
Eigenlijk was Maxim Hartman zijn tijd ver vooruit.
#Mand -
Eigenlijk was Maxim Hartman zijn tijd ver vooruit.
#Mand -
Eigenlijk was Maxim Hartman zijn tijd ver vooruit.
#Mand -
Eigenlijk was Maxim Hartman zijn tijd ver vooruit.
#Mand -
Eigenlijk was Maxim Hartman zijn tijd ver vooruit.
#Mand -
#mand Zouden ze nou allebei altijd gedacht hebben dat zij de eerste Johnson waren? 🧐 Het wordt nog gekker: “Johnson & Johnson was founded in 1886 by three brothers, …” 😀 en.m.wikipedia.org/wiki/Johnson...
-
@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 -
@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. -
@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. -
@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. -
@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. -
@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. -
@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. -
@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. -
@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. -
@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. -
@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. -
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))))) -
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))))) -
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))))) -
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))))) -
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))))) -
Beste ChatGPT voorbeeld! #fun #mand (voor die het niet weten, https://www.youtube.com/watch?v=ypSKDY4Jp3g)
-
Beste ChatGPT voorbeeld! #fun #mand (voor die het niet weten, https://www.youtube.com/watch?v=ypSKDY4Jp3g)
-
Beste ChatGPT voorbeeld! #fun #mand (voor die het niet weten, https://www.youtube.com/watch?v=ypSKDY4Jp3g)
-
@NickFrederiksen Fars Fede Julferie är nog det Danskaste jag hört. #sgu #fedt #mand
-
@NickFrederiksen Fars Fede Julferie är nog det Danskaste jag hört. #sgu #fedt #mand
-
@NickFrederiksen Fars Fede Julferie är nog det Danskaste jag hört. #sgu #fedt #mand
-
@NickFrederiksen Fars Fede Julferie är nog det Danskaste jag hört. #sgu #fedt #mand
-
@NickFrederiksen Fars Fede Julferie är nog det Danskaste jag hört. #sgu #fedt #mand
-
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…
https://twitter.com/sbamueller/status/1529163306287697920 -
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…
https://twitter.com/sbamueller/status/1529163306287697920 -
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…
https://twitter.com/sbamueller/status/1529163306287697920
