Re: complicated code to do trivial (?) thing

[Emanuel Berg]

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