Multidimensional array

Question

This is a code-golf, so keep your code small!

The objective is to create a function that receives 3 arguments:

• Rows(int): The max number of an item in each array;

• Cols(int): The max number of dimensions (sub-arrays);

• Val(*): The starting value in each item;

This function should return a multidimensional array with the proper size and with the items containing the value specified.

It should be able to return any number of dimensions.

Example:

var multiArray = createMultiArray(2, 4,'empty');

multiArray[0][0][0][0] === 'empty' //true
multiArray[0][0][0][1] === 'empty' //true
multiArray[0][0][0][2] === 'empty' //true
multiArray[0][0][1][0] === 'empty' //true
...
multiArray[2][2][2][2] === 'empty' //true

Answer 1

GolfScript

This is pretty trivial, so there's no need to over-complicate it:

{[1$({2$@(@A}{\;}if]*}:A;

Online demo

Answer 2

GolfScript, 17 characters

A non-recursive approach in GolfScript.

{\{\[.;]*}+@*}:A;

Online demo

Answer 3

JavaScript, 132 characters

function m(e,t,n){var r=0,i=[];var s=function(i){r++;for(var o=0;o<=e;o++){if(r==t)i[o]=n;else i[o]=s([])}r--;return i};return s(i)} 

UnGolfed:

function multiArray(maxRows, maxCols, val){
  var c = 0, farray = [];
  var recursive = function(array){
    c++;
    for(var r = 0; r <= maxRows; r++){ 
      if(c == maxCols) array[r] = val;
      else array[r] = recursive([]);
    }
    c--;
    return array;
  };
  return recursive(farray);
}

Answer 4

Mathematica, 32 bytes

Within reach of GolfScript for once! Scrap that, I didn't see Howard's answer.

f=ConstantArray[#3,#+0Range@#2]&

Answer 5

APL, 19 bytes

{(¯1↑⍵)⍴⍨⊃(//)⌽2↑⍵}

Sample:

    {(¯1↑⍵)⍴⍨⊃(//)⌽2↑⍵} 2 4 'empty'
┌─────┬─────┐
│empty│empty│
├─────┼─────┤
│empty│empty│
└─────┴─────┘
┌─────┬─────┐
│empty│empty│
├─────┼─────┤
│empty│empty│
└─────┴─────┘

┌─────┬─────┐
│empty│empty│
├─────┼─────┤
│empty│empty│
└─────┴─────┘
┌─────┬─────┐
│empty│empty│
├─────┼─────┤
│empty│empty│
└─────┴─────┘

Answer 6

Python 3, 36 bytes

lambda a,b,x:eval("["*b+"x"+"]*a"*b)

Try it online!

Answer 7

J, 8 bytes

$/@]$<@[

Try it online!