MATL , 28 bajtów
c!t&n:q3_*ts_b+5M4$XdZ!cZ{Zv
Dane wejściowe to tablica komórek z ciągami znaków, z przecinkami jako opcjonalnymi separatorami:
{'programming' 'puzzles' 'and' 'code' 'golf'}
lub
{'programming', 'puzzles', 'and', 'code', 'golf'}
Wypróbuj online! Lub sprawdź wszystkie przypadki testowe: 1 , 2 , 3 , 4 .
Wyjaśnienie
Rozważ następujące dane wejściowe jako przykład:
{'aaaa' 'bb' 'ccc'}
Możesz zobaczyć wyniki częściowe (zawartość stosu) wstawiając symbol komentarza %w dowolnym punkcie kodu. Na przykład wyświetl zawartość stosu po czwartej funkcji ( &n).
c % Input cell array of strings implicitly. Convert to 2D char array,
% right-padding with spaces
% STACK: ['aaaa'; 'bb '; 'ccc']
! % Transpose
% STACK: ['abc'
'abc'
'a c'
'a ']
t % Duplicate
% STACK: ['abc'
'abc'
'a c'
'a '],
['abc'
'abc'
'a c'
'a '],
&n % Number of rows and of columns
% STACK: ['abc'
'abc'
'a c'
'a '], 4, 3
:q % Range, subtract 1
% STACK: ['abc'
'abc'
'a c'
'a '], 4, [0 1 2]
3_* % Multiply by -3
% STACK: ['abc'
'abc'
'a c'
'a '], 4, [0 -3 -6]
ts_ % Duplicate, sum, negate
% STACK: ['abc'
'abc'
'a c'
'a '], 4, [0 -3 -6], 9
b % Bubble up in stack
% STACK: ['abc'
'abc'
'a c'
'a '], [0 -3 -6], 9, 4
+ % Add
% STACK: ['abc'
'abc'
'a c'
'a '], [0 -3 -6], 13
5M % Push second input of last function again
% STACK: ['abc'
'abc'
'a c'
'a '], [0 -3 -6], 13, 4
4$Xd % Buld numerical sparse matrix from the above four arguments. The
% columns of the first input argument will be the diagonals of the
% result, with indices given bu the second input (negative is below
% main diagonal). The matrix size is the third and fourth arguments
% STACK: [97 0 0 0
0 97 0 0
0 0 97 0
98 0 0 97
0 98 0 0
0 0 32 0
99 0 0 32
0 99 0 0
0 0 99 0
0 0 0 32
0 0 0 0
0 0 0 0
0 0 0 0]
Z!c % Convert from sparse to full, and then to char. Character 0 is
% displayed as space
% STACK: ['a '
' a '
' a '
'b a'
' b '
' '
'c '
' c '
' c '
' '
' '
' '
' ']
Z{ % Split into cell array, with each row in a cell
% STACK: {'a ', ' a ', ' a ', 'b a', ' b ', ' ', 'c ', ' c ', ' c ', ' ', ' ', ' ', ' '}
Zv % Deblank: remove trailing space from each string. Implicitly display,
% each string on a different line. Empty strings do not generate
% a newline
% STACK: {'a ', ' a', ' a', 'b a', ' b', '', 'c', ' c', ' c', '', '', '', ''}
