application/octet-stream
•
11.31 KB
•
426 lines
;;; Nujel - Copyright (C) 2020-2021 - Benjamin Vincent Schulenburg
;;; This project uses the MIT license, a copy should be included under /LICENSE
;;;
;;; Some predicates that were simpler to do in nujel
(defn last? (a) :inline
"Return #t if a is the last pair in a list"
(nil? (cdr a)))
(defn pos? (a) :inline
"Return #t if a is positive"
(and (number? a)
(>= a 0.0)))
(defn zero-neg? (a) :inline
"Return #t if a is zero or negative"
(<= a 0.0))
(defn neg? (a) :inline
"Returns #t if a is negative"
(< a 0.0))
(defn odd? (a)
"Predicate that returns #t if a is odd"
(= (rem (int a) 2) 1))
(defn even? (a)
"Predicate that returns #t if a is even"
(= (mod/int (int a) 2) 0))
(defn not-zero? (val) :inline
"#t if VAL is not zero"
(not= 0 val))
(defn equal? (val-a val-b)
"Test whether two values are equal
Unlike = this is actually comparing the contents of compound data,
which can be very slow.
val-a: The first argument
val-b: The second argument
Whether the two arguments are equal?"
:cat :predicate
(deftest #t (equal? 1 1))
(deftest #t (equal? 2.0 2.0))
(deftest #f (equal? 2.0 2.1))
(deftest #t (equal? :a :a))
(deftest #f (equal? :a :b))
(deftest #t (equal? '(1 :b "c") '(1 :b "c")))
(deftest #f (equal? '(1 :b "c" [4.0]) '(1 :b "c")))
(deftest #t (equal? '(1 :b "c" [4.0]) '(1 :b "c" [4.0])))
(deftest #t (equal? ['(1 #o2 #x3) '(4.0 5.0 {:a 1 :b 2}) '("7" [8 88] :9)] ['(1 #o2 #x3) '(4.0 5.0 {:a 1 :b 2}) '("7" [8 88] :9)]))
(def cur-type (:type-name val-a))
(if (not= cur-type (:type-name val-b))
#f
(case cur-type
(:array (array/equal? val-a val-b))
(:tree (tree/equal? val-a val-b))
(:pair (list/equal? val-a val-b))
(otherwise (= val-a val-b)))))
(defn not-equal? (val-a val-b)
"Test whether two values are not equal
This is using equal? under the hood, meaning it can be quite slow since
it actually compares the contents of complex data structures.
val-a: The first argument
val-b: The second argument
Whether the two arguments are not equal?"
:cat :predicate
(deftest #t (not-equal? ['(1 #o2 #x3) '(4.0 5.0 {:a 1 :b 2}) '("7" [8 88] :9)] ['(1 #o2 #x3) '(4.0 5.0 {:a 1 :a 2}) '("7" [8 88] :9)]))
(deftest #f (not-equal? :a :a))
(deftest #t (not-equal? :a :b))
(deftest #t (not-equal? '(1 :b "c" [4.0]) '(1 :b "c")))
(deftest #t (not-equal? ['(1 #o2 #x3) '(4.0 5.0 6.0) '("7" [8 88] :9)] ['(1 #o2 #x3) '(4.0 5.0 6.0) '("7" [8 88] :99)]))
(not (equal? val-a val-b)))
(defn int? (val)
"Test whether val is an integer
Integer are sometimes called fixnum's as well
val: This argument is going to be tested
Whether val is an integer"
:cat :type-predicate
(deftest #t (int? 123))
(deftest #f (int? 123.123))
(deftest #f (int? 'asd))
:inline
(= :int (:type-name val)))
(defn float? (val)
"Test whether val is a floating-point number
Float's are sometimes called flonum's as well
val: This argument is going to be tested
Whether val is a floating-point number"
:cat :type-predicate
(deftest #f (float? 123))
(deftest #t (float? 123.123))
(deftest #f (float? 'abc))
:inline
(= :float (:type-name val)))
(defn number? (val)
"Test whether val is a number
Right now this means either a floating-point or integer number.
val: This argument is going to be tested
Whether val is a number"
:cat :type-predicate
(deftest #t (number? 123))
(deftest #t (number? 123.123))
(deftest #f (number? 'abc))
(deftest #f (number? "123"))
(or (int? val)
(float? val)))
(defn bool? (val)
"Test whether val is a boolean
val: This argument is going to be tested
Whether val is a boolean"
:cat :type-predicate
(deftest #t (bool? #t))
(deftest #t (bool? #f))
(deftest #f (bool? #nil))
(deftest #f (bool? 123))
(deftest #f (bool? 123.123))
(deftest #f (bool? 'qwe))
:inline
(= :bool (:type-name val)))
(defn pair? (val)
"Test whether val is a pair
A pair is sometimes also called a cons cell, which can be used to build lists and much more.
val: This argument is going to be tested
Whether val is a pair"
:cat :type-predicate
(deftest #t (pair? '()))
(deftest #t (pair? '(123)))
(deftest #f (pair? 123))
(deftest #f (pair? 123.123))
(deftest #f (pair? 'qwe))
:inline
(= :pair (:type-name val)))
(defn array? (val)
"Test whether val is an array
Sometimes also called a vector.
val: This argument is going to be tested
Whether val is an array"
:cat :type-predicate
(deftest #t (array? []))
(deftest #f (array? '(123)))
(deftest #f (array? 123))
(deftest #f (array? 123.123))
(deftest #f (array? 'abc))
:inline
(= :array (:type-name val)))
(defn string? (val)
"Test whether val is a string
val: This argument is going to be tested
Whether val is a string"
:cat :type-predicate
(deftest #t (string? "asd"))
(deftest #f (string? []))
(deftest #f (string? '(123)))
(deftest #f (string? 123))
(deftest #f (string? 123.123))
(deftest #f (string? 'abc))
:inline
(= :string (:type-name val)))
(defn symbol? (val)
"Test whether val is a symbol
val: This argument is going to be tested
Whether val is a symbol"
:cat :type-predicate
(deftest #t (symbol? 'abc))
(deftest #f (symbol? "asd"))
(deftest #f (symbol? '(123)))
(deftest #f (symbol? 123))
(deftest #f (symbol? 123.123))
:inline
(= :symbol (:type-name val)))
(defn environment? (val)
"Test whether val is an environment
Sometimes also called a closure
val: This argument is going to be tested
Whether val is an environment"
:cat :type-predicate
(deftest #t (environment? (current-closure)))
(deftest #f (environment? []))
(deftest #f (environment? '(123)))
:inline
(= :environment (:type-name val)))
(defn tree? (val)
"Test whether val is a binary tree
Trees can also be used as maps, tuples or '
val: This argument is going to be tested
Whether val is a tree"
:cat :type-predicate
(deftest #t (tree? {}))
(deftest #f (tree? (current-closure)))
(deftest #f (tree? []))
(deftest #f (tree? '(123)))
(deftest #f (tree? 123))
(deftest #f (tree? 123.123))
(deftest #f (tree? 'abc))
:inline
(= :tree (:type-name val)))
(defn collection? (l)
"Test whether val is a collection
val: This argument is going to be tested
Whether val is a collection"
:cat :type-predicate
(deftest #t (collection? {}))
(deftest #t (collection? []))
(deftest #t (collection? '(123)))
(deftest #f (collection? (current-closure)))
(deftest #f (collection? 123))
(deftest #f (collection? 123.123))
(deftest #f (collection? 'abc))
:inline
(case (:type-name l)
((:pair :array :tree) #t)
(otherwise #f)))
(defn keyword? (v)
"Test whether val is a keyword
val: This argument is going to be tested
Whether val is a keyword"
:cat :type-predicate
(deftest #t (keyword? :abc))
(deftest #f (keyword? 'abc))
(deftest #f (keyword? "asd"))
(deftest #f (keyword? []))
(deftest #f (keyword? '(123)))
(deftest #f (keyword? 123))
(deftest #f (keyword? 123.123))
:inline
(= :keyword (:type-name v)))
(defn macro? (val)
"Test whether val is a macro
val: This argument is going to be tested
Whether val is a macro"
:cat :type-predicate
(deftest #t (macro? case))
(deftest #f (macro? :abc))
:inline
(= :macro (:type-name val)))
(defn lambda? (val)
"Test whether val is a function
Sometimes also called lambda or subroutine
val: This argument is going to be tested
Whether val is a function"
:cat :type-predicate
(deftest #t (lambda? min))
(deftest #f (lambda? case))
(deftest #f (lambda? (current-closure)))
(deftest #f (lambda? 'abc))
:inline
(or (= :lambda (:type-name val))))
(defn native? (val)
"Test whether val is a native function
Sometimes also called lambda or subroutine
val: This argument is going to be tested
Whether val is a native function"
:cat :type-predicate
(deftest #t (native? sin))
(deftest #f (native? (defn +123 (a) (+ a 123))))
(deftest #f (native? (defmacro +123 (a) (+ a 123))))
:inline
(= :native-function (:type-name val)))
(defn buffer? (v)
"Test whether val is a buffer
Buffers are just modifiable chunks of memory
val: This argument is going to be tested
Whether val is a buffer"
:cat :type-predicate
(deftest #t (buffer? #m00))
(deftest #f (buffer? "asd"))
(deftest #f (buffer? []))
:inline
(= :buffer (:type-name v)))
(defn buffer-view? (v)
"Test whether val is a buffer view
val: This argument is going to be tested
Whether val is a buffer view"
:cat :type-predicate
(deftest #t (buffer-view? (:u8 #m00)))
(deftest #f (buffer-view? #m00))
(deftest #f (buffer-view? "asd"))
(deftest #f (buffer-view? []))
:inline
(= :buffer-view (:type-name v)))
(defn bytecode-array? (v)
"Test whether val is a bytecode-array
val: This argument is going to be tested
Whether val is a buffer view"
:cat :type-predicate
(deftest #t (bytecode-array? #{##()01}))
(deftest #f (bytecode-array? (:u8 #m00)))
(deftest #f (bytecode-array? #m00))
(deftest #f (bytecode-array? "asd"))
(deftest #f (bytecode-array? []))
:inline
(= :bytecode-array (:type-name v)))
(defn procedure? (val)
"Test whether val is a procedure
Procedures in this context mean something you can use with map or put at the beginning of an expression.
val: This argument is going to be tested
Whether val is a procedure"
:cat :type-predicate
(deftest #t (and (native? sin) (procedure? sin)))
(deftest #t (and (lambda? min) (procedure? min)))
(deftest #t (procedure? min))
(deftest #t (procedure? sin))
(deftest #f (procedure? case))
(deftest #f (procedure? (current-closure)))
(or (lambda? val)
(native? val)))
(defn callable? (val)
"Test whether val is callable
This means basically anything where procedure? returns true, as well as macros, since they are
just standard procedures, but ones who run during compile time.
val: This argument is going to be tested
Whether val is callable"
:cat :type-predicate
(deftest #t (and (macro? case) (callable? case)))
(deftest #t (callable? min))
(deftest #t (callable? sin))
(deftest #f (callable? (current-closure)))
(or (macro? val)
(procedure? val)))
(defn in-range? (v min max)
(and (>= v min)
(<= v max)))
