count-iterations ( z max-iterations step-quot test-quot -- #iters )


Vocabulary
benchmark.mandel

Inputs
zan object
max-iterationsan object
step-quotan object
test-quotan object


Outputs
#itersan object


Definition
USING: kernel math ;

IN: benchmark.mandel

: count-iterations
( z max-iterations step-quot test-quot -- #iters )
[ [ [ drop ] ] dip [ dup ] compose compose ] dip compose
find-last-integer nip ; inline