shithub: femtolisp

ref: 362ffe51df8f1f4f8b3b9bff10c0def2d7aec9a0
dir: /test/torture.scm/

View raw version 
(define ones (map (λ (x) 1) (iota 10000000)))

(write (apply + ones))
(newline)

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

; https://todo.sr.ht/~ft/femtolisp/2
;(define nst (big 100000))
;(write (eval nst))
;(newline)

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

(vm-stats)