shithub: femtolisp

ref: 2e8caea3fb2dc18b3a1e5f51c62ca49c841d850e
dir: /test/torture.scm/

View raw version 
(define ones (map (lambda (x) 1) (iota 1000000)))

(write (apply + ones))
(newline)

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

(define nst (big 100000))

(write (eval nst))
(newline)

(define longg (cons '+ ones))
(write (eval longg))
(newline)

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