upscheme/scheme-tests/torture.scm

21 lines
337 B
Scheme
Raw Permalink Normal View History

(define ones (map (lambda (x) 1) (iota 1000000)))
(writeln (apply + ones))
(define (big n)
(if (<= n 0)
0
`(+ 1 1 1 1 1 1 1 1 1 1 ,(big (- n 1)))))
(define nst (big 100000))
(writeln (eval nst))
(define longg (cons '+ ones))
(writeln (eval longg))
(define (f x)
(begin (writeln x)
(f (+ x 1))
0))