From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail
From: Adam Porter <adam@alphapapa.net>
Newsgroups: gmane.emacs.help
Subject: Re: comic-book-insult
Date: Sun, 08 Sep 2019 17:29:57 -0500
Message-ID: <87r24qfml6.fsf@alphapapa.net>
References: <86k1aiip6o.fsf@zoho.eu>
Mime-Version: 1.0
Content-Type: text/plain
Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226";
	logging-data="95353"; mail-complaints-to="usenet@blaine.gmane.org"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Sep 10 21:54:10 2019
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([209.51.188.17])
	by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
	(Exim 4.89)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1i7mDH-000OdL-7v
	for geh-help-gnu-emacs@m.gmane.org; Tue, 10 Sep 2019 21:54:07 +0200
Original-Received: from localhost ([::1]:44668 helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.90_1)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1i7mDG-0006VO-4R
	for geh-help-gnu-emacs@m.gmane.org; Tue, 10 Sep 2019 15:54:06 -0400
Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:33044)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <geh-help-gnu-emacs@m.gmane.org>) id 1i7m4d-0004sQ-7x
 for help-gnu-emacs@gnu.org; Tue, 10 Sep 2019 15:45:11 -0400
Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <geh-help-gnu-emacs@m.gmane.org>) id 1i7m4c-0004nJ-8Z
 for help-gnu-emacs@gnu.org; Tue, 10 Sep 2019 15:45:11 -0400
Original-Received: from 195-159-176-226.customer.powertech.no ([195.159.176.226]:48292
 helo=blaine.gmane.org)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32)
 (Exim 4.71) (envelope-from <geh-help-gnu-emacs@m.gmane.org>)
 id 1i7m4c-0004mM-2N
 for help-gnu-emacs@gnu.org; Tue, 10 Sep 2019 15:45:10 -0400
Original-Received: from list by blaine.gmane.org with local (Exim 4.89)
 (envelope-from <geh-help-gnu-emacs@m.gmane.org>) id 1i7m4U-000Ecw-Ih
 for help-gnu-emacs@gnu.org; Tue, 10 Sep 2019 21:45:02 +0200
X-Injected-Via-Gmane: http://gmane.org/
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Received-From: 195.159.176.226
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.23
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-gnu-emacs>,
 <mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
 <mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Original-Sender: "help-gnu-emacs"
 <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Xref: news.gmane.org gmane.emacs.help:121507
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/121507>

Emanuel Berg via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org> writes:

> (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) ; $%#@&!

seq.el makes this even easier:

    (seq-sort (lambda (_ _)
                (zerop (random 2)))
              "01234")  ;;=> "01423"