fork download
copy 
  1. (println (map 
  2.   #(flatten(reduce(fn[a b](if(odd? b)(conj(pop a)(conj[b](last a)))(conj a b[])))[[]]%))
  3.   [ [0 1] [1 3] [1 2 3] [1 3 2] [10 7 9 6 8 9] [23 12 32 23 25 27] [123 123 345 0 1 9]]
  4. ))
Success #stdin #stdout 2s 335488KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
((0 1) (3 1) (1 2 3) (3 1 2) (10 9 7 6 8 9) (23 12 32 27 25 23) (345 123 123 0 9 1))
https://ideone.com/d2LLEC
language:
Clojure (clojure 1.10.0)
created:
7 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!