4 ms·
I'm not much for Common Lisp, but I do think Scheme is the prettiest language in which people write ugly code. As such, while I am sympathetic to the virtues o
by PrettyButUgly 10y ago
I'm not much for Common Lisp, but I do think Scheme is the prettiest language in which people write ugly code. As such, while I am sympathetic to the virtues of s-expressions, this example is not going to win any hearts or minds. I don't much care for Python's performance or newer features, but your snippet screams for a comparison:
if condition:
a, b, c = c, a, b
a, c, b = b, a, c
That really seems much more clear than the gymnastics my mind has to do manually pairing the assignments inside of psetf. I won't argue that it's objectively better syntax, but I still think it is.
- gluggymug 10y agoYou forgot "else:"
- PrettyButUgly 10y agoFunny that. In my head, I parsed it as two (odd) statements under one if statement. More like when than if.
- kazinator 10y agoThat's why I mentioned rotatef: (rotatef a c b) ;; a <-- c <-- b ;; `--->----->-'
- qwertyuiop924 10y agoWell... (define-syntax assign-group! (ir-macro-transformer (lambda (x i c) (let ((vars (cadr x)) (vals (caddr x))) `(let ,(map (lambda (var val) '(var val)) vars vals) ,@(map (lambda (var) `(set! ,(i var) ,var)) vars)))))) Mind, I haven't tested this, because I don't have CHICKEN Scheme (the dialect this is written in) in front of me, and I may not have matched all the parens on the end, but it should work like this: (assign-group! (a b c) (c a b)) Giving you your nice assigment syntax you wanted. That's the nice thing about Lisps: if you don't like it, you can change it.
- qwertyuiop924 10y agoThere is in fact one error in the above macro: well, I think only one: in the map, (lambda (var val) '(var val)) should be (lambda (var val) (list var val))