PasteRack.org
Paste # 91564
2017-02-23 11:09:44

Fork as a new paste.

Paste viewed 335 times.


Embed:

  1. #lang racket
  2.  
  3. (define (repl-elem L n e)
  4.   (let loop ((x 1)
  5.              (ol '()))
  6.     (cond
  7.       [(> x (length L))
  8.        (reverse ol)]
  9.       [(= x n)
  10.        (loop (add1 x) (cons e ol))]
  11.       [else
  12.        (loop (add1 x) (cons (list-ref L (sub1 x)) ol))])))
  13.  
  14. (repl-elem '(a b c) 2 'd)

=>

'(a d c)