diff options
| author | ubq323 <ubq323@ubq323.website> | 2024-06-26 13:11:00 +0100 |
|---|---|---|
| committer | ubq323 <ubq323@ubq323.website> | 2024-06-26 13:11:00 +0100 |
| commit | c1ad2da9bd1497737c46c53e27f915cc26bc49a6 (patch) | |
| tree | 5f701f22a0eed7d09056e1eafe1d60a9a48832a9 /tests/mandel.bth | |
| parent | 63206b605c36140f2bd476e054b8318c8b08f472 (diff) | |
remove explicit toplevel (do ...) from tests
Diffstat (limited to 'tests/mandel.bth')
| -rw-r--r-- | tests/mandel.bth | 41 |
1 files changed, 20 insertions, 21 deletions
diff --git a/tests/mandel.bth b/tests/mandel.bth index ffe49c7..54a1b4d 100644 --- a/tests/mandel.bth +++ b/tests/mandel.bth @@ -1,21 +1,20 @@ -(do - (set pxy 0) - (while (< pxy 30) - (set cim (/ (- pxy 15) 15)) - (set pxx 0) - (while (< pxx 60) - (set cre (/ (- pxx 40) 20)) - (set i 0) - (set zim cim) - (set zre cre) - (while (< i 25) - (set nzre (+ cre (- (* zre zre) (* zim zim)))) - (set nzim (+ cim (* 2 (* zre zim)))) - (set zre nzre) - (set zim nzim) - (set mag (+ (* zre zre) (* zim zim))) - (set i (if (< mag 4) (+ i 1) 999))) - (print (if (< mag 4) "#" ".")) - (set pxx (+ pxx 1))) - (puts "") - (set pxy (+ pxy 1)))) +(set pxy 0) +(while (< pxy 30) + (set cim (/ (- pxy 15) 15)) + (set pxx 0) + (while (< pxx 60) + (set cre (/ (- pxx 40) 20)) + (set i 0) + (set zim cim) + (set zre cre) + (while (< i 25) + (set nzre (+ cre (- (* zre zre) (* zim zim)))) + (set nzim (+ cim (* 2 (* zre zim)))) + (set zre nzre) + (set zim nzim) + (set mag (+ (* zre zre) (* zim zim))) + (set i (if (< mag 4) (+ i 1) 999))) + (print (if (< mag 4) "#" ".")) + (set pxx (+ pxx 1))) + (puts "") + (set pxy (+ pxy 1))) |