19 lines
686 B
Plaintext
19 lines
686 B
Plaintext
;;;; A literal arm takes its type from the arm that is not a literal, in an
|
|
;;;; if, a cond and a match alike, as a literal operand of + does.
|
|
(defn g [c bool n i64] i64 (let [x (if c 4000000 n)] x))
|
|
(defn h [k i32 n i64] i64
|
|
(let [x (cond (= k 0) 5000000000 (= k 1) 7 :else n)] x))
|
|
(defn m [o (Option i64)] i64
|
|
(let [x (match o None 3 (Some v) v)] x))
|
|
(defn f32s [c bool y f32] f32 (let [x (if c 2.5 y)] x))
|
|
(defn main [] i32
|
|
(println (g true (i64 3)))
|
|
(println (g false (i64 9000000000)))
|
|
(println (h 0 (i64 1)))
|
|
(println (h 1 (i64 1)))
|
|
(println (h 2 (i64 9000000000)))
|
|
(println (m None))
|
|
(println (m (Some (i64 9000000000))))
|
|
(println (f32s true (f32 1.0)))
|
|
0)
|