Post #2433313
2026-05-12 01:18 UTC
@RueNahcMohr@infosec.exchange @saagar@federated.saagarjha.com
done?:
(use-modules (srfi srfi-1) (srfi srfi-27))
(define (add-parens lst)
(if (eq? (length lst) 1)
lst
(let ((rand (+ 1 (random-integer (- (length lst) 1)))))
(list (add-parens (take lst rand)) (add-parens (drop lst rand))))))
(add-parens '(l i s p)) ; => ((l) ((i) ((s) (p))))
Replies (1)
-
@aoeuidhtns@app.wafrn.net 2026-05-12 01:19
@RueNahcMohr@infosec.exchange @saagar@federated.saagarjha.com i guess it only works in guile