dimgigov
87d6028487
- Reader: maps, sets, syntax-quote, dispatch macros, metadata - Runtime: CljVal type system, 80+ core functions (collections, strings, math, IO) - Emitter: full CljVal-based code generation, macro expansion, inline fns - Macros: defmacro with compile-time evaluator, ->, ->>, and, or, when, cond, for, doseq - Nim Interop: nim/module/function syntax, auto-import, type mapping - CLI: cljnim -e '<code>' for quick evaluation - Tests: 60 unit tests (reader + emitter) - Benchmarks: AOT suite showing 543x startup, 679x factorial vs JVM Clojure - CI: GitLab CI pipeline - Runtime library: lib/cljnim_runtime.nim (1070+ lines)
89 lines
2.6 KiB
Bash
Executable File
89 lines
2.6 KiB
Bash
Executable File
#!/bin/bash
|
|
set -e
|
|
|
|
SCRIPT_DIR="$(cd "$(dirname "$0")" && pwd)"
|
|
PROJECT_DIR="$(dirname "$SCRIPT_DIR")"
|
|
|
|
echo "=============================================="
|
|
echo " Clojure/Nim vs JVM Clojure — Benchmarks"
|
|
echo "=============================================="
|
|
echo ""
|
|
|
|
run_bench() {
|
|
local name="$1"
|
|
local file="$2"
|
|
local runs="$3"
|
|
|
|
echo "--- $name ---"
|
|
echo ""
|
|
|
|
# Clojure/Nim
|
|
echo " [Clojure/Nim]"
|
|
local nim_total=0
|
|
local nim_times=()
|
|
for ((i=1; i<=runs; i++)); do
|
|
local start=$(date +%s%N)
|
|
"$PROJECT_DIR/cljnim" run "$SCRIPT_DIR/$file" > /dev/null 2>&1
|
|
local end=$(date +%s%N)
|
|
local elapsed=$(( (end - start) / 1000000 ))
|
|
nim_times+=($elapsed)
|
|
nim_total=$((nim_total + elapsed))
|
|
done
|
|
local nim_avg=$((nim_total / runs))
|
|
local nim_min=${nim_times[0]}
|
|
for t in "${nim_times[@]}"; do
|
|
if [ $t -lt $nim_min ]; then nim_min=$t; fi
|
|
done
|
|
echo " Avg: ${nim_avg}ms | Min: ${nim_min}ms | Runs: $runs"
|
|
|
|
# JVM Clojure
|
|
if command -v clojure &> /dev/null; then
|
|
echo " [JVM Clojure]"
|
|
local jvm_total=0
|
|
local jvm_times=()
|
|
for ((i=1; i<=runs; i++)); do
|
|
local start=$(date +%s%N)
|
|
clojure "$SCRIPT_DIR/$file" > /dev/null 2>&1
|
|
local end=$(date +%s%N)
|
|
local elapsed=$(( (end - start) / 1000000 ))
|
|
jvm_times+=($elapsed)
|
|
jvm_total=$((jvm_total + elapsed))
|
|
done
|
|
local jvm_avg=$((jvm_total / runs))
|
|
local jvm_min=${jvm_times[0]}
|
|
for t in "${jvm_times[@]}"; do
|
|
if [ $t -lt $jvm_min ]; then jvm_min=$t; fi
|
|
done
|
|
echo " Avg: ${jvm_avg}ms | Min: ${jvm_min}ms | Runs: $runs"
|
|
|
|
if [ $jvm_avg -gt 0 ]; then
|
|
local speedup=$((jvm_avg / nim_avg))
|
|
echo " => Clojure/Nim is ${speedup}x FASTER (avg)"
|
|
fi
|
|
else
|
|
echo " [JVM Clojure] — not installed, skipping"
|
|
fi
|
|
echo ""
|
|
}
|
|
|
|
echo "Building Clojure/Nim..."
|
|
nim c -o:"$PROJECT_DIR/cljnim" "$PROJECT_DIR/src/cljnim.nim" 2>/dev/null
|
|
echo ""
|
|
|
|
run_bench "Hello World (startup time)" "hello.clj" 5
|
|
run_bench "Fibonacci 30 (recursive)" "fibonacci.clj" 3
|
|
run_bench "Factorial 20 (recursive)" "factorial.clj" 3
|
|
|
|
echo "=============================================="
|
|
echo " Binary size comparison"
|
|
echo "=============================================="
|
|
echo ""
|
|
BINSIZE=$(stat -f%z "$PROJECT_DIR/cljnim" 2>/dev/null || stat -c%s "$PROJECT_DIR/cljnim" 2>/dev/null)
|
|
echo " cljnim binary: $(echo "scale=2; $BINSIZE / 1048576" | bc)MB"
|
|
if command -v clojure &> /dev/null; then
|
|
CLOJURE_SIZE=$(du -sh $(dirname $(which clojure))/../ 2>/dev/null | cut -f1)
|
|
echo " JVM + Clojure: $CLOJURE_SIZE"
|
|
fi
|
|
echo ""
|
|
echo "Done."
|