From 377822b957c442b2ff0882b8325033487037be2b Mon Sep 17 00:00:00 2001 From: ubq323 Date: Fri, 21 Jun 2024 14:18:54 +0100 Subject: รพ -> th MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- tests/fizzbuzz.bth | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 tests/fizzbuzz.bth (limited to 'tests/fizzbuzz.bth') diff --git a/tests/fizzbuzz.bth b/tests/fizzbuzz.bth new file mode 100644 index 0000000..e70c2c1 --- /dev/null +++ b/tests/fizzbuzz.bth @@ -0,0 +1,10 @@ +(do + (set n 1) + (while (< n 30) + (print + (if (= 0 (% n 5)) + (if (= 0 (% n 3)) "fizzbuzz" "buzz") + (if (= 0 (% n 3)) "fizz" n))) + (set n (+ n 1)))) + + -- cgit v1.2.3