Re: (*) -> 1

* Akib Azmain Turja [2023-01-22 17:37]: > I just made a language named "Emacs Lisp Fuck", and here's the > "Hello, World!" program: I knew it, as I already got it (ouch) on the mailing list. > #+begin_src emacs-lisp > (string > (+(*)(+)(*)(*)(*)(*)(+)(+)(+)(+)(*)(*)(*)(+)(+)(*)(*)(*)(*)(+)(*)(*

Re: (*) -> 1

* Akib Azmain Turja [2023-01-22 17:37]: > I just made a language named "Emacs Lisp Fuck", and here's the > "Hello, World!" program: It needs a package. (defun elbf-char (n) (concat "(+ " (string-replace "*" "(*)" (make-string n ?*)) ")")) (defun elbf-string (string) (let ((list (string-to-l

2023-01-23 Emacs news

2023-01-23 Emacs news = - Upcoming events: - Emacs Berlin (virtual, in English) Wed Jan 25 0930 America/Vancouver - 1130 America/Chicago - 1230 America/Toronto - 1730 Etc/GMT - 1830 Europe/Berlin - 2300 Asia/Kolkata -- Thu Jan 26 0130 As

Re: (*) -> 1

Jean Louis wrote: > (defun elbf-char (n) > (concat "(+ " (string-replace "*" "(*)" (make-string n ?*)) ")")) > > (defun elbf-string (string) > (let ((list (string-to-list string))) > (with-temp-buffer > (insert "(string ") > (while list > (insert (elbf-char (pop list