#! /usr/bin/zsh

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

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

comp # compile here

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

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

echo -n "[el-pa] (Emacs = 7, subthreads = 7) "

for (( i=1,p=1111; i<=6; 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