mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-12 13:09:05 +03:00
16 lines
211 B
Plaintext
16 lines
211 B
Plaintext
;; (use IO)
|
|
(use Int)
|
|
;; (use Float)
|
|
;; (use Double)
|
|
;; (use Array)
|
|
;; (use System)
|
|
;; (use String)
|
|
;; (use Char)
|
|
;; (use Bool)
|
|
|
|
(defn reducer [x y]
|
|
(Int.+ @x @y))
|
|
|
|
(defn f [xs]
|
|
(Array.reduce reducer 0 xs))
|