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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Apply-a-callback-to-an-array/Maple/apply-a-callback-to-an-array-1.maple Normal file
View file

@ -0,0 +1,11 @@
> map( sqrt, [ 1.1, 3.2, 5.7 ] );
[1.048808848, 1.788854382, 2.387467277]
> map( x -> x + 1, { 1, 3, 5 } );
{2, 4, 6}
> sqrt~( [ 1.1, 3.2, 5.7 ] );
[1.048808848, 1.788854382, 2.387467277]
> (x -> x + 1)~( { 1, 3, 5 } );
{2, 4, 6}

14
Task/Apply-a-callback-to-an-array/Maple/apply-a-callback-to-an-array-2.maple Normal file
View file

@ -0,0 +1,14 @@
> a := Array( [ 1.1, 3.2, 5.7 ] );
a := [1.1, 3.2, 5.7]
> sqrt~( a );
[1.048808848, 1.788854382, 2.387467277]
> a;
[1.1, 3.2, 5.7]
> map( sqrt, a );
[1.048808848, 1.788854382, 2.387467277]
> a;
[1.1, 3.2, 5.7]

5
Task/Apply-a-callback-to-an-array/Maple/apply-a-callback-to-an-array-3.maple Normal file
View file

@ -0,0 +1,5 @@
> map[inplace]( sqrt, a );
[1.048808848, 1.788854382, 2.387467277]
> a;
[1.048808848, 1.788854382, 2.387467277]

2
Task/Apply-a-callback-to-an-array/Maple/apply-a-callback-to-an-array-4.maple Normal file
View file

@ -0,0 +1,2 @@
> map( `+`, [ 1, 2, 3 ], 3 );
[4, 5, 6]

5
Task/Apply-a-callback-to-an-array/Maple/apply-a-callback-to-an-array-5.maple Normal file
View file

@ -0,0 +1,5 @@
> map2( `-`, 5, [ 1, 2, 3 ] );
[4, 3, 2]
> map[2]( `/`, 5, [ 1, 2, 3 ] );
[5, 5/2, 5/3]