fork download
copy 
  1. let f11040 list = 
  2.   let is_odd n = n <> 0 && ((n / 2) * 2) <> n in
  3.   let (o, e) = List.partition is_odd list in
  4.   List.append o e;;
  5. let () = List.iter (Printf.printf "%d ") (f11040 [-1; 2; 8; -9; -2; -3; -6; -10; -8; 5; 7; 9; 7]);;
  6.  
Success #stdin #stdout 0s 4568KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
-1 -9 -3 5 7 9 7 2 8 -2 -6 -10 -8
https://ideone.com/Izv76M
language:
OCaml (ocamlopt 4.05.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!