mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 12:37:32 +03:00
56 lines
1.1 KiB
Plaintext
56 lines
1.1 KiB
Plaintext
;; The 'copy' and 'str' interfaces are defined internally:
|
|
;;(definterface copy (λ [&a] a))
|
|
;;(definterface str (λ [a] String))
|
|
|
|
(definterface = (λ [a a] Bool))
|
|
(definterface /= (λ [a a] Bool))
|
|
|
|
(definterface add-ref (λ [&a &a] a))
|
|
(definterface sub-ref (λ [&a &a] a))
|
|
(definterface mul-ref (λ [&a &a] a))
|
|
(definterface div-ref (λ [&a &a] a))
|
|
|
|
(definterface + (λ [a a] a))
|
|
(definterface - (λ [a a] a))
|
|
(definterface * (λ [a a] a))
|
|
(definterface / (λ [a a] a))
|
|
(definterface mod (λ [a a] a))
|
|
|
|
(definterface < (λ [a a] Bool))
|
|
(definterface > (λ [a a] Bool))
|
|
|
|
(definterface inc (λ [a] a))
|
|
(definterface dec (λ [a] a))
|
|
|
|
(definterface format (λ [&String a] String))
|
|
(definterface from-string (λ [&String] a))
|
|
|
|
(definterface zero (λ [] a))
|
|
(definterface random (Fn [] a))
|
|
(definterface random-between (Fn [a a] a))
|
|
|
|
(definterface pi a)
|
|
|
|
|
|
|
|
;; The following functions make use of the interfaces
|
|
|
|
(defn <= [a b]
|
|
(or (< a b)
|
|
(= a b)))
|
|
|
|
(defn >= [a b]
|
|
(or (> a b)
|
|
(= a b)))
|
|
|
|
(defn cmp [a b]
|
|
(if (= a b)
|
|
0
|
|
(if (< a b) -1 1)))
|
|
|
|
(defn max [a b]
|
|
(if (> a b) a b))
|
|
|
|
(defn min [a b]
|
|
(if (< a b) a b))
|