aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
Task/Array-concatenation/Maple/array-concatenation-1.maple Normal file
View file

@ -0,0 +1,25 @@
> A := Array( [ 1, 2, 3 ] );
A := [1, 2, 3]
> B := Vector['row']( [ sin( x ), cos( x ), tan( x ) ] );
B := [sin(x), cos(x), tan(x)]
> ArrayTools:-Concatenate( 1, A, B ); # stack vertically
[ 1 2 3 ]
[ ]
[sin(x) cos(x) tan(x)]
> ArrayTools:-Concatenate( 2, A, B ); # stack horizontally
[1, 2, 3, sin(x), cos(x), tan(x)]
> M := << a, b, c ; d, e, f >>; # a matrix
[a b c]
M := [ ]
[d e f]
> ArrayTools:-Concatenate( 1, M, A );
[a b c]
[ ]
[d e f]
[ ]
[1 2 3]

6
Task/Array-concatenation/Maple/array-concatenation-2.maple Normal file
View file

@ -0,0 +1,6 @@
> ArrayTools:-Concatenate( 1, A, M );
[1 2 3]
[ ]
[a b c]
[ ]
[d e f]

11
Task/Array-concatenation/Maple/array-concatenation-3.maple Normal file
View file

@ -0,0 +1,11 @@
> L1 := [ 1, 2, 3 ];
L1 := [1, 2, 3]
> L2 := [ a, b, c ];
L2 := [a, b, c]
> [ op( L1 ), op( L2 ) ];
[1, 2, 3, a, b, c]
> [ L1[], L2[] ]; # equivalent, just different syntax
[1, 2, 3, a, b, c]