Re: Swapping characters in a word inside elisp code

[Marcin Borkowski <mbork@mbork.pl>]

On 2023-07-28, at 21:44, uzibalqa <uzibalqa@proton.me> wrote:

> Sent with Proton Mail secure email.
>
> ------- Original Message -------
> On Saturday, July 29th, 2023 at 6:03 AM, uzibalqa <uzibalqa@proton.me> wrote:
>
>
>> I have a word and want to swap characters at position i with position j.
>>
>> What would be a good way to do this ? Would I need to change structure
>> (to array, vector or some other thing) ?
>
> I have done it this way, but it fails when p > q
>
> How can I solve this ?
>
> (defun cswap (wstr p q)
>   "Replace characters in WSTR at positions P and Q."
>
>   (let ( (char1 (elt wstr p))
>          (char2 (elt wstr q)) )
>
>     (if (and char1 char2)
>         (concat (substring wstr 0 p)
>                 (char-to-string char2)
>                 (substring wstr (+ p 1) q)
>                 (char-to-string char1)
>                 (substring wstr (+ q 1)))) ))

I'd probably use `format', not `concat'.  Alternatively, it might be
closer to idiomatic Elisp to put the word in a buffer and perform the
swap using editing operations (though this makes more sense for larger
things like words in a sentence, and probably less so for characters in
a word).

Also, if your code works only for p < q (which I believe you without
checking myself since it's about 22:45 here and my brain doesn't
function very well), why not include a check for q < p at the beginning
and call the same function recursively with p and q swapped?

Hth,

-- 
Marcin Borkowski
http://mbork.pl