47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
;; The rest of the core: a global with an initialiser, recursion, break and
|
|
;; continue, the bitwise family, unsigned arithmetic and shifts, and the
|
|
;; conversions in both directions.
|
|
|
|
(defonce counter i64 0)
|
|
|
|
(defconst limit i32 6)
|
|
|
|
(defn fib [n i64] i64
|
|
(if (< n 2) n (+ (fib (- n 1)) (fib (- n 2)))))
|
|
|
|
(defn main [] i32
|
|
(print (fib 20)) (println "")
|
|
|
|
(let [i 0]
|
|
(while (< i 100)
|
|
(set i (+ i 1))
|
|
(when (= i 7) (break)))
|
|
(print i) (println ""))
|
|
|
|
(let [j 0 seen 0]
|
|
(while (< j 10)
|
|
(set j (+ j 1))
|
|
(when (= (% j 2) 0) (continue))
|
|
(set seen (+ seen j)))
|
|
(print seen) (println ""))
|
|
|
|
(dotimes [k limit]
|
|
(set counter (+ counter (i64 k))))
|
|
(print counter) (println "")
|
|
|
|
(let [a (bit-xor (u32 0x0F0F0F0F) (u32 0xFFFFFFF))
|
|
b (u32 0x0F0F0F0F)]
|
|
(print (bit-or a b)) (println "")
|
|
(print (bit-and a b)) (println "")
|
|
(print (bit-xor a (u32 65535))) (println "")
|
|
(print (>> a 4)) (println "")
|
|
(print (<< b 4)) (println ""))
|
|
|
|
(let [x (i32 -9)]
|
|
(print (/ x 2)) (println "")
|
|
(print (% x 2)) (println "")
|
|
(print (f64 x)) (println "")
|
|
(print (i32 (f64 3.9))) (println "")
|
|
(print (f32 1.5)) (println ""))
|
|
0)
|