Re: Elisp function that performs numeric computations

[Sergey Organov]

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

> Jan 19, 2022, 23:29 by mbork@mbork.pl:
>
>>
>>  (defun test (depth maxdepth rptdepth)
>>
>>>  "Compute depth to use."
>>>  (interactive)
>>>  
>>>  (let* ( (j rptdepth)
>>>  (w (- maxdepth j))
>>>  (p (+ w 1))
>>>  (r (mod (- depth maxdepth 1) p) )
>>>  (o (+ j r)) )
>>>  o))
>>>
> I would like to adapt the function a little bit more.   If depth <= maxdepth
> I want to set o=depth instead of performing the computation shown for the
> variable o.

Did I get it right, I wonder?

(defun test (depth maxdepth rptdepth)
  (if (<= depth maxdepth)
      depth
    (+ rptdepth
       (mod (- depth maxdepth 1)
            (- maxdepth rptdepth -1)))))

Is it how true (E)Lisp'er would write it?

-- Sergey Organov