Merge pull request #223 from PEZ/babashka

Babashka: Use separate code from Clojure

fibonacci/bb/code.clj

@@ -0,0 +1,11 @@
+(defn- fibonacci [n]
+  (case n
+    0 0
+    1 1
+    (+ (fibonacci (- n 1))
+       (fibonacci (- n 2)))))
+
+(defn main [u]
+  (println (reduce + (map fibonacci (range u)))))
+
+(main (-> *command-line-args* first parse-long))

hello-world/bb/code.clj

@@ -0,0 +1 @@
+(println "Hello, World!")

loops/bb/code.clj

@@ -0,0 +1,13 @@
+(defn main [u]
+  (let [r (rand-int 10000) ; Get a random number 0 <= r < 10k
+        v' (vec (repeat 10000 0)) ; Vector of 10k elements initialized to 0
+        v (mapv (fn [initial-value]
+                  (let [inner-sum (reduce (fn [sum j]
+                                            (+ sum (rem j u))) ; Simple sum
+                                          initial-value
+                                          (range 100000))] ; 100k inner loop iterations, per outer loop iteration
+                    (+ inner-sum r))) ; Add a random value to each element in array
+                v')] ; 10k outer loop iterations
+    (println (nth v r)))) ; Print out a single element from the array
+
+(main (-> *command-line-args* first parse-long))  ; Get an input number from the command line

run.sh

@@ -51,6 +51,7 @@ run "Haskell" "" "./hs/code"
 run "V" "" "./v/code"
 run "Chez Scheme" "chez --program" "./chez/code.so"
 run "Clojure" "java -cp clojure/classes:$(clojure -Spath)" "./clojure/code"
+run "Babashka" "bb" "./bb/code.clj"
 run "COBOL" "" "./cobol/main"
 #run "MAWK" "mawk -f" "./awk/code.awk"
 #run "Babashka" "bb -cp clojure -m" "./babashka/code"