diff options
-rw-r--r-- | happy-birthday.el | 13 |
1 files changed, 13 insertions, 0 deletions
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"))) |