Re: comic-book-insult

[Emanuel Berg]

Eric Abrahamsen wrote:

> You can simplify that as:
>
> (defun scramble-string (str)
>   "Randomize the characters of a string."
>   (interactive "sscramble me: ")
>   (concat (sort (string-to-vector str)
>               (lambda (_ _) (zerop (random 2))))))

(defun scramble-string (str)
  "Randomize the characters of a string."
  (interactive "sscramble me: ")
  (let ((rand-str (concat
                   (sort (string-to-vector str)
                         (lambda (_ __) (zerop (random 2))) ))))
    (if (called-interactively-p 'any)
        (message rand-str)
      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