2009-06-10 20:34:50 -04:00
|
|
|
(define ones (map (lambda (x) 1) (iota 1000000)))
|
|
|
|
|
2009-08-09 00:04:31 -04:00
|
|
|
(write (apply + ones))
|
2009-06-10 20:34:50 -04:00
|
|
|
(newline)
|
|
|
|
|
2009-04-01 00:31:49 -04:00
|
|
|
(define (big n)
|
|
|
|
(if (<= n 0)
|
|
|
|
0
|
|
|
|
`(+ 1 1 1 1 1 1 1 1 1 1 ,(big (- n 1)))))
|
|
|
|
|
2009-06-10 20:34:50 -04:00
|
|
|
(define nst (big 100000))
|
2009-04-01 00:31:49 -04:00
|
|
|
|
2009-08-09 00:04:31 -04:00
|
|
|
(write (eval nst))
|
2009-04-01 00:31:49 -04:00
|
|
|
(newline)
|
|
|
|
|
2009-06-10 20:34:50 -04:00
|
|
|
(define longg (cons '+ ones))
|
2009-08-09 00:04:31 -04:00
|
|
|
(write (eval longg))
|
2009-06-10 20:34:50 -04:00
|
|
|
(newline)
|
|
|
|
|
2009-04-01 00:31:49 -04:00
|
|
|
(define (f x)
|
2009-08-09 00:04:31 -04:00
|
|
|
(begin (write x)
|
2019-08-09 10:18:36 -04:00
|
|
|
(newline)
|
|
|
|
(f (+ x 1))
|
|
|
|
0))
|