tests/sin.bth


1
2
3
4
5
6
7
8
9
10
11
12
13
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)))