Initial commit - fix problems & refactor code

2025-12-22 19:10:46 +03:00
commit ff36917cb5
39 changed files with 1499 additions and 0 deletions
@@ -0,0 +1,4 @@
+(defn maybeprint (n) (when (= (% n 50) 0) (do (prints n " ") (flush))))
+(defn odd? (n) (if (= n 0) false (do (maybeprint n) (even? (- n 1)))))
+(defn even? (n) (if (= n 0) true (do (maybeprint n) (odd? (- n 1)))))
+; (print (odd? (read)))