fork download
copy 
  1. (let((l(let((max 0)(min 0)(l(let((l(print(let((l(make-list(read))))(dotimes(i(length l))(setf(elt l i)(-(random 200)100)))l))))(print(apply '+ l))l)))(dotimes(i(length l))(if(>(elt l i)(elt l max))(setf max i)(if(<(elt l i)(elt l min))(setf min i))))(subseq l(1+(min max min))(max max min)))))(if l(print(apply '* l))))
Success #stdin #stdout 0s 535040KB
comments (?)
stdin
copy 
10
stdout
copy 
(18 -41 73 -12 -27 12 -11 -90 -42 -40) 
-160 
-42768
https://ideone.com/SBDBEO
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!