14 lines
549 B
Plaintext
14 lines
549 B
Plaintext
;;;; A program's function named as a prelude function takes the name over for
|
|
;;;; the calls in its own file, and the prelude's own calls keep the prelude's:
|
|
;;;; ceil-f32 is written over the prelude's floor-f32, and still answers 3.
|
|
(defn abs-f32 [v f32] f32 (if (< v 0.0) (- v) (+ v (f32 100.0))))
|
|
(defn floor-f32 [x f32] f32 (f32 999.0))
|
|
(defn abs [x i32] i32 (* x 10))
|
|
(defn main [] i32
|
|
(println (abs-f32 (f32 -2.5)))
|
|
(println (abs-f32 (f32 2.5)))
|
|
(println (floor-f32 (f32 2.3)))
|
|
(println (ceil-f32 (f32 2.3)))
|
|
(println (abs -3))
|
|
0)
|