like that in API:
Code: Select all
append
syntax: (append list-1 [list-2 ... ])
syntax: (append array-1 [array-2 ... ])
syntax: (append str-1 [str-2 ... ])
Code: Select all
append
syntax: (append list-1 [list-2 ... ])
syntax: (append array-1 [array-2 ... ])
syntax: (append str-1 [str-2 ... ])
Code: Select all
(define (foo) (println $args)) ; -> (lambda () (println $args))
(foo 1 2 3) ; -> (1 2 3)
Code: Select all
(define (type x)
(let (types '(
"bool" "bool" "integer" "float" "string" "symbol" "context" "primitive"
"import-simple" "import-libffi" "quote" "list" "lambda" "macro" "array"))
(types (& 0xf ((dump x) 1)))))
Code: Select all
;trumped-up example
(defn argcount
([] 0)
([x] 1)
([x y] 2)
([x y & more] (+ (argcount x y) (count more))))
-> #'user/argcount
(argcount)
-> 0
(argcount 1)
-> 1
(argcount 1 2)
-> 2
(argcount 1 2 3 4 5)
-> 5