/usr/share/maxima/5.38.1/tests/rtest1a.mac is in maxima-test 5.38.1-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 | (use_fast_arrays:true,array(bil,3),0);
0$
bil[1];
false;
bil[1]:3;
3;
bil[1];
3;
listarray(bil);
[false, 3, false,false];
arrayinfo(bil);
[declared, 1, [3]];
ha[1]:2;
2;
ha[3];
false;
arrayinfo(ha);
[hash_table, 1, 1];
use_fast_arrays:false;
false;
array(bil1,3);
bil1;
bil1[2];
bil1[2];
bil1[2]:3;
3;
bil1[2];
3;
listarray(bil1);
[''?munbound,''?munbound,3,''?munbound];
arrayinfo(bil1);
[declared, 1, [3]];
oldha[1]:8;
8;
oldha[2];
oldha[2];
arrayinfo(oldha);
[hashed, 1, [1]];
use_fast_arrays:true;
true;
bilx[n]:=n*bilx[n-1];
bilx[n]:=n*bilx[n-1];
bilx[0]:1;
1;
bilx[3];
6;
use_fast_arrays: false;
false;
block ([use_fast_arrays : true], kill (foo), foo [2] : 'x, foo [3] : 'y, foo [5] : 'z, foo [7] : 'a, sort (listarray (foo)));
[a, x, y, z];
/* Bug #2978: "kill(a[i])" doesn't work with fast arrays */
block ([use_fast_arrays : true,
y : yvalue],
local (y),
kill (foo),
foo ['x] : 'x,
foo ['y] : 'y,
foo [ y] : y,
foo ['z] : 'z,
/* Check that indices get evaluated */
kill (foo ['y]),
kill (foo [ y]),
sort (listarray (foo)));
[x, z];
block ([use_fast_arrays : true,
y : yvalue],
local (y),
kill (foo),
foo [1, 'x] : 'x,
foo [2, 'y] : 'y,
foo [2, y] : y,
foo [3, 'z] : 'z,
/* Check that indices get evaluated */
kill (foo [2, 'y]),
kill (foo [2, y]),
sort (listarray (foo)));
[x, z];
|