From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Emanuel Berg via help-gnu-emacs Newsgroups: gmane.emacs.help Subject: Re: complicated code to do trivial (?) thing Date: Fri, 14 Jun 2019 21:41:19 +0200 Message-ID: <86a7ek2bvk.fsf@zoho.eu> References: <865zpby95d.fsf@zoho.eu> <87muinnuiv.fsf@fastmail.com> Reply-To: Emanuel Berg Mime-Version: 1.0 Content-Type: text/plain Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="64955"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.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 Fri Jun 14 21:42:01 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 1hbs5J-000Gk9-4p for geh-help-gnu-emacs@m.gmane.org; Fri, 14 Jun 2019 21:42:01 +0200 Original-Received: from localhost ([::1]:54754 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hbs5I-0003DX-6G for geh-help-gnu-emacs@m.gmane.org; Fri, 14 Jun 2019 15:42:00 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:45388) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hbs4m-0003By-LP for help-gnu-emacs@gnu.org; Fri, 14 Jun 2019 15:41:30 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hbs4l-0005An-Dr for help-gnu-emacs@gnu.org; Fri, 14 Jun 2019 15:41:28 -0400 Original-Received: from [195.159.176.226] (port=56582 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hbs4l-00059B-4H for help-gnu-emacs@gnu.org; Fri, 14 Jun 2019 15:41:27 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.89) (envelope-from ) id 1hbs4j-000G92-Eb for help-gnu-emacs@gnu.org; Fri, 14 Jun 2019 21:41:25 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Mail-Copies-To: never Cancel-Lock: sha1:tiAPSuO9+Sa6Hqm70uNZVNL7AC4= 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:120956 Archived-At: Anders Dalskov wrote: > It can be simplified somewhat, I think. > My take is below. Instead of `cl-remove' you > can use `split-string', and instead of > `mapcar' + `format' + `substring' you can use > `mapconcat'. > > (defun alphabet (&optional as-list) > (let ((abc "a b c d e f g h i j k l m n o p q r s t u v w x y z")) > (if as-list > (split-string abc) > abc))) > > (defun echo-alphabet (&optional number) > (interactive "P") > (let* ((abc-as-list (alphabet t)) > (number (or number (length abc-as-list)))) > (mapconcat 'identity (subseq abc-as-list 0 number) " "))) That looks much better, yes. Thank you, will try it out, examine the code, and if it works as well as mine ;) I will replace it, and put your initials next it it. Mange tak! -- underground experts united http://user.it.uu.se/~embe8573 https://dataswamp.org/~incal