fork download
copy 
  1. (defun odai-pt13-571 (s n &rest more-ns)
  2.   (loop with top = (make-string (length s) :initial-element #\*)
  3.         with bot = (copy-seq s)
  4.         for i in (mapcar #'1- (cons n more-ns))
  5.         do (shiftf (char bot i) (char top i) (char bot i))
  6.         finally (return (format nil "~A~%~A~%" top bot))))
  7.  
  8. (princ (odai-pt13-571 "abc" 2))
  9. (terpri)
  10. (princ (odai-pt13-571 "FizzBuzz" 1 2 5 6))
  11.  
Success #stdin #stdout 0s 203840KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
*b*
a*c

Fi**Bu**
**zz**zz
https://ideone.com/cnTKML
language:
Common Lisp (sbcl 1.4.16)
created:
6 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!