fork download
copy 
  1. (let ((S "abcdefghij")
  2.       (indices '(0 4 7)))
  3.   (let ((indices (cons (car indices) (reverse indices)))) ;(0 4 7) → (0 7 4 0)
  4.     (loop for i upfrom 0 below (length S)
  5.           for alt-i = (cadr (member i indices))
  6.           if alt-i
  7.             do (princ (char S alt-i))
  8.           else
  9.             do (princ (char S i))
  10.           finally (terpri))))
  11.  
Success #stdin #stdout 0.01s 25252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
hbcdafgeij
https://ideone.com/pOwDJd
language:
Common Lisp (sbcl 1.4.16)
created:
235 days ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!