Код-гольф: Обход двумерного массива змейкой

Задача соревнования:

Имеется двумерный массив N x N. Нужно написать функцию обхода двумерного массив
змейкой от правого ребра. Пример на картинке.





Пример двумерного массива:

На входе имеется следующий массив:

input = [[4, 3, 2, 1], [5, 6, 7, 8], [12, 11, 10, 9], [13, 14, 15, 16]]


На выходе одномерный массив после обхода:

output = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]


Может использоваться любой язык. 

Основное условие: функция должна работать корректно для любого равностороннего двумерного массива. 

Указывать название языка в заголовке ответа и количество символов минифицированной версии функции через запятую.

Победителем станет тот, кто напишет ее за меньшее количество символов. За это о
получает 300 репутации. Победитель определится через 2 недели (12 января). 

Ответ автора не учитывается при выборе победителя. Желаю удачи :)

Таблица лидеров:



execute("ru.stackoverflow.com", 926927);







Победители:

1 место: Haskell - 39 (@АндрейNOP)

2 место: JavaScript - 40 (@Groxan)

3 место: Groovy - 42 (@Nick)

Всем огромное спасибо за участие и интересные решения ;)
    

Ответы

Ответ 1

Haskell, 39 40 42

r=reverse;s[]=[];s(h:t)=r h++s(map r t)


https://ideone.com/JYttmr


Ответ 2

Octave, 47



@(l,b=l(1:2:end,:)=fliplr(l(1:2:end,:)))l'(:)';


Try it online!

Если разрешить возвращать не вектор-строку, а вектор-столбец, сокращается на 1 символ:

Octave, 46



@(l,b=l(1:2:end,:)=fliplr(l(1:2:end,:)))l'(:);


Try it online!

Прошлый вариант без анонимной функции:

Octave, 40



l(1:2:end,:)=fliplr(l(1:2:end,:));l'(:)'


Try it online!


Ответ 3

Python, 56

f=lambda l:sum([x[::i%2*2-1]for i,x in enumerate(l)],[])


Спасибо @АндрейNOP за подсказку!

Python, 60

f=lambda l:sum([[x[::-1],x][i&1]for i,x in enumerate(l)],[])


https://ideone.com/JPyzUQ (эта версия с лямбда функцией была любезно предоставлена @Let's say Pie)



Попытка 2: инвалидирована по причине неправильного оформления - решение должно быть реализовано как функция

Python, 49

sum([[x[::-1],x][i&1]for i,x in enumerate(l)],[])


https://ideone.com/WdHq4n

PS @КириллМалышев подсказал как можно сократить код еще на 6 символов - спасибо!!



Попытка 1:

Python, 55

sum([x if i&1 else x[::-1] for i,x in enumerate(l)],[])


https://ideone.com/2hoF3P


Ответ 4

JavaScript, 38

Данный код работает в Firefox, но не работает на V8 (из-за специфичного алгоритма сортировки). Если это неприемлемо, скажите =)



f=a=>a.flatMap((x,i)=>x.sort(_=>~i&1))

console.log(f([[4,3,2,1],[5,6,7,8],[12,11,10,9],[13,14,15,16]]));






JavaScript, 40



f=a=>a.flatMap((x,i)=>i%2?x:x.reverse())

console.log(f([[4,3,2,1],[5,6,7,8],[12,11,10,9],[13,14,15,16]]));


Ответ 5

JavaScript, 54



f=a=>a.reduce((c,n,i)=>c.concat(i%2?n:n.reverse()),[])

console.log(f([[4, 3, 2, 1], [5, 6, 7, 8], [12, 11, 10, 9], [13, 14, 15, 16]]));


Ответ 6

Python, 62 61

Пока ничего лучше варианта с рекурсией не придумал :)

f=lambda m,x:m and(x&1and m.pop(0)or m.pop(0)[::-1])+f(m,x+1)


https://ideone.com/i2d0f6


Ответ 7

Python, 43

f=lambda m,a=-1:m and m.pop(0)[::a]+f(m,-a)


https://ideone.com/fQVgtD


Ответ 8

F#, 68

let rec f=function|[]->[]|h::t->List.rev h@(t|>List.map List.rev|>f)


https://ideone.com/S6PhEZ


Ответ 9

PowerShell, 51

$f={$args[0]|%{if(++$i%2){[Array]::Reverse($_)}$_}}


Try it online!


Ответ 10

C#, 62

dynamic s(int[][]a)=>a.SelectMany((x,i)=>i%2>0?x:x.Reverse());


https://repl.it/repls/EmbarrassedHalfCommand


Ответ 11

PHP, 93 91

function f($a){foreach($a as$v)$r[]=$_++&1?$v:array_reverse($v);return array_merge(...$r);}


https://ideone.com/XsiPap


Ответ 12

PHP,  138 105

function f($a){foreach($a as$i=>$y){foreach($y as$x=>$w){$r[]=$i&1?$w:array_reverse($y)[$x];}}return $r;}


https://3v4l.org/DgDi8


Ответ 13

C#, 188 184

List S(T[,]a){var l=new List();int m=a.GetLength(1);for(int i=0;i=0;j--)l.Add(a[i,j]);else for(int j=0;j
Ответ 14

C#,171 168 163 153

Так как решения через LINQ уже были, то предлагаю вашему вниманию традиционных подход.

Минифицированная версия:

T[]F(T[,]a){var d=a.GetUpperBound(1);var r=new List();for(int i=0;i<=d;i++){var b=i%2>0;int j=b?0:d;while(j<=d&j>=0){r.Add(a[i,j]);j=b?++j:--j;}}return r.ToArray();}


Удобночитаемая:

    static T[] F(T[,] a)
    {
        var d = a.GetUpperBound(1);
        var r = new List();
        for (int i = 0; i <= d; i++)
        {
            var b = i % 2 > 0;
            int j = b ? 0 : d;
            while (j <= d & j >= 0)
            {
                r.Add(a[i, j]);
                j = b ? ++j : --j;//Трюк, что бы сэкономить символы на if/else
            }
        }
        return r.ToArray();
    }




Чуть чуть подправил:

T[]F(T[,]a){var d=a.GetUpperBound(1);var r=new List();for(int i=0;i<=d;i++){var b=i%2>0;int j=b?0:d;while(j<=d&j>=0){r.Add(a[i,b?j++:j--]);}}return r.ToArray();}


Удобночитаемая:

 T[] F(T[,] a)
    {
        var d = a.GetUpperBound(1);
        var r = new List();
        for (int i = 0; i <= d; i++)
        {
            var b = i % 2 > 0;
            int j = b ? 0 : d;
            while (j <= d & j >= 0)
            {
                r.Add(a[i, b ? j++ : j--]);
            }
        }
        return r.ToArray();
    }




Опять чуть подправил:

T[]F(T[,]a){var d=a.GetLength(1)-1;var r=new List();for(int i=0;i<=d;i++){var b=i%2>0;int j=b?0:d;while(j<=d&j>=0)r.Add(a[i,b?j++:j--]);}return r.ToArray();}


Удобночитаемая:

T[] F(T[,] a)
{
    var d = a.GetLength(1) - 1;
    var r = new List();
    for (int i = 0; i <= d; i++)
    {
        var b = i % 2 > 0;
        int j = b ? 0 : d;
        while (j <= d & j >= 0)
            r.Add(a[i, b ? j++ : j--]);
    }
    return r.ToArray();
}




И еще чуть-чуть убрал все лишнее:

T[]F(T[,]a){int d=a.GetLength(1),g=0;var r=new T[d*d];for(int i=0;i0;int j=b?0:d-1;while(j=0)r[g++]=a[i,b?j++:j--];}return r;}


Удобночитаемый:

    T[] F(T[,] a)
    {
        int d = a.GetLength(1), g = 0;
        var r = new T[d * d];
        for (int i = 0; i < d; i++)
        {
            var b = i % 2 > 0;
            int j = b ? 0 : d - 1;
            while (j < d & j >= 0)
                r[g++] = a[i, b ? j++ : j--];
        }
        return r;
    }


Ответ 15

Perl 5, 81

sub f{foreach$row(@_){foreach$val(@$row){push@$s,$i++%2?@$val:reverse@$val;}}$s;}


Try it online!


Ответ 16

Groovy, 42

f={i=0;it.each{it.reverse i=!i}.flatten()}


https://ideone.com/XirvAC


Ответ 17

C, 97

int f(int n,int a[n][n],int*b){for(int i=0;i
Ответ 18

Ruby, 63

def f(a,x)a[0]?(x%2==0?a.shift.reverse: a.shift)+f(a,x+1):[]end


https://ideone.com/T0MECG