fork download
copy 
  1. (print (parse-integer (format nil "~8R" (let ((n (read-line))(p (parse-integer (read-line))))(print (parse-integer(concatenate 'string (subseq n 0 p)(reverse (subseq n p)))))))))
Success #stdin #stdout 0s 38032KB
comments (?)
stdin
copy 
123456789
3
stdout
copy 
123987654 
730763306
https://ideone.com/7Ganhy
language:
Common Lisp (clisp 2.49.92)
created:
7 years 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!