fork download
copy 
  1. (defun myfn (l)
  2.   (loop for n below (length l)
  3.         append (make-list #| of length |# (nth (mod (1- n) (length l)) l)
  4.                           :initial-element (nth n l))))
  5.  
  6. (print (myfn '(2 4 1 3)))
Success #stdin #stdout 0.01s 25192KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(2 2 2 4 4 1 1 1 1 3)
https://ideone.com/zNyk9g
language:
Common Lisp (sbcl 1.4.16)
created:
3 years ago
visibility:
public

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!