fork download
  1. open System
  2.  
  3. let array1 = [| 12; 33; 46; 8; 23; 42; 41 |]
  4.  
  5. let array2 =
  6. [| for i in 0..array1.Length do
  7. if i % 2 = 0 then yield array1.[i] |]
  8.  
  9. printfn "%A" array2
  10.  
Success #stdin #stdout 0.05s 31032KB
stdin
Standard input is empty
stdout
[|12; 46; 23; 41|]