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

echo "[intro] \`el-pa', \`palet' Elisp parallel execution over multicore"
echo "[emacs]" $(emacs --version | head -n 1)
echo "[probl] problem size: 2**22 = 4194304"

comp

emacs_prep="(progn (push \".\" load-path) (require 'luki-lisp) (-> 'll-el-pa) (-> 'll-palet))"

echo -n "[elisp] (Emacs = 1) "
emacs --batch --eval $emacs_prep -f el-pa-primes-test

echo -n "[palet] (Emacs = 9) "
emacs --batch --eval $emacs_prep -f palet-primes-test

echo -n "[el-pa] (Emacs = 7) "
for (( i=1,p=1111; i<7; i++,p+=1111 )) {
    emacs --batch --eval $emacs_prep --eval "(el-pa-test-comp 1 $p)" &
}
emacs --batch --eval $emacs_prep -f el-pa-test-prop