fork(1) download 
  1. do
  2.    let xs : int[,,] = Array3D.init 3 4 5 (fun a b c -> a + b + c)
  3.    [0 .. Array3D.length1 xs - 1] |> (List.map (fun i -> 
  4.        Array2D.init (Array3D.length2 xs)  (Array3D.length3 xs) (fun a b -> xs.[i,a,b])))
  5.    |> printf "%A"
  6.  
Success #stdin #stdout 0.22s 12848KB
comments (?)
stdin 
Standard input is empty
stdout 
[[[0; 1; 2; 3; 4]
  [1; 2; 3; 4; 5]
  [2; 3; 4; 5; 6]
  [3; 4; 5; 6; 7]]; [[1; 2; 3; 4; 5]
                     [2; 3; 4; 5; 6]
                     [3; 4; 5; 6; 7]
                     [4; 5; 6; 7; 8]]; [[2; 3; 4; 5; 6]
                                        [3; 4; 5; 6; 7]
                                        [4; 5; 6; 7; 8]
                                        [5; 6; 7; 8; 9]]]
https://ideone.com/DQlT7b
language:
F# (mono 4.1)
created:
11 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!