From 05cfb9bf2461785ec621b490747f48b96344017f Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Sat, 17 Aug 2024 12:35:43 +0100
Subject: sin, cos, more checks

---
 tests/sin.bth | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tests/sin.bth

(limited to 'tests/sin.bth')

diff --git a/tests/sin.bth b/tests/sin.bth
new file mode 100644
index 0000000..319241f
--- /dev/null
+++ b/tests/sin.bth
@@ -0,0 +1,14 @@
+(defn (ts x)
+  (* 10 (+ 1 (sin x))))
+
+(set! _G_ts ts)
+
+(defn (p t)
+  (for (i (_G_ts t))
+    (write " "))
+  (say 'x))
+
+
+
+(for (i 50) (p (/ i 8)))
+	
-- 
cgit v1.2.3