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 /
guile /
3.0 /
scheme /
[ HOME SHELL ]
Name
Size
Permission
Action
base.scm
18.84
KB
-rw-r--r--
case-lambda.scm
840
B
-rw-r--r--
char.scm
3.4
KB
-rw-r--r--
complex.scm
933
B
-rw-r--r--
cxr.scm
1.29
KB
-rw-r--r--
eval.scm
1.39
KB
-rw-r--r--
file.scm
1.1
KB
-rw-r--r--
inexact.scm
2.14
KB
-rw-r--r--
lazy.scm
976
B
-rw-r--r--
load.scm
979
B
-rw-r--r--
process-context.scm
1.97
KB
-rw-r--r--
r5rs.scm
4.29
KB
-rw-r--r--
read.scm
826
B
-rw-r--r--
repl.scm
845
B
-rw-r--r--
time.scm
1.11
KB
-rw-r--r--
write.scm
979
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : inexact.scm
;;; R7RS compatibility libraries ;;; Copyright (C) 2019 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 program. If not, see ;;; <http://www.gnu.org/licenses/>. ;;; Based on code from https://gitlab.com/akku/akku-scm, written ;;; 2018-2019 by Göran Weinholt <goran@weinholt.se>, as well as ;;; https://github.com/okuoku/yuni, written 2014-2018 by OKUMURA Yuki ;;; <mjt@cltn.org>. This code was originally released under the ;;; following terms: ;;; ;;; To the extent possible under law, the author(s) have dedicated ;;; all copyright and related and neighboring rights to this ;;; software to the public domain worldwide. This software is ;;; distributed without any warranty. ;;; ;;; See <http://creativecommons.org/publicdomain/zero/1.0/>, for a ;;; copy of the CC0 Public Domain Dedication. (define-module (scheme inexact) #:re-export ((exact->inexact . inexact) (inexact->exact . exact) acos asin atan cos exp sin sqrt tan) #:export ((r7:finite? . finite?) (r7:infinite? . infinite?) (r7:nan? . nan?) (r7:log . log))) (define (r7:finite? z) (if (complex? z) (and (finite? (real-part z)) (finite? (imag-part z))) (finite? z))) (define (r7:infinite? z) (if (complex? z) (or (inf? (real-part z)) (inf? (imag-part z))) (inf? z))) (define (r7:nan? z) (if (complex? z) (or (nan? (real-part z)) (nan? (imag-part z))) (nan? z))) (define r7:log (case-lambda ((x) (log x)) ((x y) (/ (log x) (log y)))))
Close