ref: c48cb65963f0fab8576020a00a04578f1d23e2b9
dir: /test/torture.scm/
(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*)