From b637e1330eea8081df8193665c5d6df71e182b1e Mon Sep 17 00:00:00 2001 From: Daniel Santos Date: Thu, 12 Jan 2023 20:45:52 +0000 Subject: Add explode-from-string --- plus-inc.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/plus-inc.lisp b/plus-inc.lisp index 6e3dc72..9ad3173 100644 --- a/plus-inc.lisp +++ b/plus-inc.lisp @@ -8,6 +8,10 @@ number (reverse number))) +(defun explode-from-string (string) + "Given a string, it returns a list of the symbol of this string" + (loop for letter across string collect (intern (string letter)))) + (defun explode-to-symbol (number) "Given a number (which can have letters), it returns a list of the symbols of this number" (loop for letter across (prin1-to-string number) collect (intern (string letter)))) -- cgit 1.4.1-2-gfad0