From 7d46ba2a59ea19b3cea4dd515f40d2e4c1c79535 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Wed, 28 Feb 2024 08:24:42 -0500 Subject: add birthday generator --- happy-birthday.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/happy-birthday.el b/happy-birthday.el index fb96a6c..9e6a9fd 100644 --- a/happy-birthday.el +++ b/happy-birthday.el @@ -21,3 +21,16 @@ () () () () () () () () () () () () () () () ! () () () () () () () () () () () () () () () ! ! () () () () () () () !?) + + +(mapcan + (lambda (w) + (let (r) + (push '!? r) + (mapc (lambda (c) + (cl-loop for i below (- c ?a) + do (push '() r)) + (push '! r)) + w) + r)) + (reverse (string-split "happy birthday seb"))) -- cgit v1.2.3