unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* comic-book-insult
@ 2019-09-08 19:05 Emanuel Berg via Users list for the GNU Emacs text editor
  2019-09-08 20:16 ` comic-book-insult Marcin Borkowski
                   ` (4 more replies)
  0 siblings, 5 replies; 19+ messages in thread
From: Emanuel Berg via Users list for the GNU Emacs text editor @ 2019-09-08 19:05 UTC (permalink / raw)
  To: help-gnu-emacs

(defun scramble-string (str)
  "Randomize the characters of a string."
  (interactive "sscramble me: ")
  (let*((empty-str  "")
        (chars      (delete empty-str (split-string str empty-str)))
        (rand-chars (sort chars (lambda (_ __) (zerop (random 2)))))
        (rand-str   (mapconcat 'identity rand-chars ""))
        )
    rand-str) )

(defun comic-book-insult ()
  (interactive)
  (insert (concat (scramble-string "@#$%&") "!") ))

;; (comic-book-insult) ; %@&$#!
;; (comic-book-insult) ; $%#@&!

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal




^ permalink raw reply	[flat|nested] 19+ messages in thread

end of thread, other threads:[~2019-09-17  6:19 UTC | newest]

Thread overview: 19+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2019-09-08 19:05 comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-08 20:16 ` comic-book-insult Marcin Borkowski
2019-09-08 22:55   ` comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-08 22:29 ` comic-book-insult Adam Porter
2019-09-10 23:43   ` comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-08 23:47 ` comic-book-insult Eric Abrahamsen
2019-09-09  3:56   ` comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-09  5:09 ` comic-book-insult Yuri Khan
2019-09-09 17:41   ` comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-09 18:26     ` comic-book-insult Yuri Khan
2019-09-09 18:33       ` comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-09  8:00 ` comic-book-insult Jean Louis
2019-09-09 17:32   ` comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-09 18:05     ` comic-book-insult Jean Louis
2019-09-09 18:10       ` comic-book-insult Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-09 18:13       ` comic-book-insult Eli Zaretskii
2019-09-11 12:56         ` Anonymous arguments - comic-book-insult Jean Louis
2019-09-11 15:12           ` Emanuel Berg via Users list for the GNU Emacs text editor
2019-09-17  6:19             ` Jean Louis

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).