#! /usr/bin/zsh
# -----------------------------------------------------------------------------
# this file:
#   https://dataswamp.org/~incal/el-pa/speed-test
# -----------------------------------------------------------------------------

echo "---------------------------------------"
echo "[intro] \`el-pa', \`palet' parallel Elisp"
echo "[emacs]" $(emacs --version | head -n 1)
echo "[scope] 2^22 = 4 194 304"
echo "---------------------------------------"

comp # compile

echo -n "[elisp] (1 Emacs) "
emacs -Q -D -nw -batch -L . -l ll-el-pa -l ll-palet -f el-pa-primes-test

echo -n "[palet] (9 Emacs) "
emacs -Q -D -nw -batch -L . -l ll-el-pa -l ll-palet -f palet-primes-test

echo -n "[el-pa] (7 Emacs) "
for (( i=1,p=1111; i<7; i++,p+=1111 )) {
    emacs -Q -D -nw -batch -L . -l ll-el-pa -l ll-palet --eval "(el-pa-test-comp 1 $p)" &
}
emacs -Q -D -nw -batch -L . -l ll-el-pa -l ll-palet -f el-pa-test-prop