shithub: sl

ref: c38c47d264f11a1a1f1a2e6a2d23d9eb755f0127
dir: /femtolisp/torture.scm/

View raw version 
(define (big n)
  (if (<= n 0)
      0
      `(+ 1 1 1 1 1 1 1 1 1 1 ,(big (- n 1)))))

(define nst `(display ,(big 100000)))

(display (eval nst))
(newline)

(define (f x)
  (begin (display x)
	 (newline)
	 (f (+ x 1))
	 0))

(define longg (cons '+ (map (lambda (x) 1) (iota 1000000))))
(display (eval longg))
(newline)