From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Eric Abrahamsen Newsgroups: gmane.emacs.help Subject: Re: comic-book-insult Date: Mon, 09 Sep 2019 07:47:24 +0800 Message-ID: <877e6is643.fsf@ericabrahamsen.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="267306"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Sep 09 01:47:53 2019 Return-path: 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 ) id 1i76uP-0017Qp-Gv for geh-help-gnu-emacs@m.gmane.org; Mon, 09 Sep 2019 01:47:53 +0200 Original-Received: from localhost ([::1]:51258 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1i76uO-0006R8-1M for geh-help-gnu-emacs@m.gmane.org; Sun, 08 Sep 2019 19:47:52 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:38615) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1i76u5-0006R1-N7 for help-gnu-emacs@gnu.org; Sun, 08 Sep 2019 19:47:34 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1i76u4-0004Lr-NZ for help-gnu-emacs@gnu.org; Sun, 08 Sep 2019 19:47:33 -0400 Original-Received: from 195-159-176-226.customer.powertech.no ([195.159.176.226]:51002 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1i76u4-0004HF-GD for help-gnu-emacs@gnu.org; Sun, 08 Sep 2019 19:47:32 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.89) (envelope-from ) id 1i76u1-00175A-Ja for help-gnu-emacs@gnu.org; Mon, 09 Sep 2019 01:47:29 +0200 X-Injected-Via-Gmane: http://gmane.org/ Cancel-Lock: sha1:OHsF1qcgCETZc/qC1YLbK3TZQsk= 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 List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:121485 Archived-At: Emanuel Berg via Users list for the GNU Emacs text editor 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) ) 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))))))