- x_dim <- arbitrary :: Gen Int
- y_dim <- arbitrary :: Gen Int
- z_dim <- arbitrary :: Gen Int
- one_d <- arbitrary :: Gen Values1D
+ -- I declare not to care about empty lists.
+ x_dim <- choose (1, 27)
+ y_dim <- choose (1, 27)
+ z_dim <- choose (1, 27)
+ elements <- vectorOf (x_dim * y_dim * z_dim) (arbitrary :: Gen Double)