2017-11-18 18:01:00 -05:00
|
|
|
---
|
|
|
|
|
Test
|
|
|
|
|
---
|
|
|
|
|
Test recursion capabilities of various functions.
|
|
|
|
|
|
2017-11-24 10:07:49 -05:00
|
|
|
| script | lisp interpreter fixture |
|
|
|
|
|
| show | evaluate text | (load "lisp/util/big-list.lisp") |
|
|
|
|
|
| show | evaluate text | (load "lisp/util/list-builder.lisp") |
|
|
|
|
|
| check | evaluate text | big-list | =~/1\)$/ |
|
|
|
|
|
| check | evaluate text | (length big-list) | 16384 |
|
|
|
|
|
| check | evaluate text | (length (apply 'list big-list)) | 16384 |
|
|
|
|
|
| check | evaluate text | (apply '/ big-list) | 1 |
|
|
|
|
|
| check | evaluate text | (apply '* big-list) | 1 |
|
|
|
|
|
| check | evaluate text | (apply '+ big-list) | 16384 |
|
|
|
|
|
| check | evaluate text | (apply '- big-list) | -16382 |
|
|
|
|
|
| check | evaluate text | (apply '= big-list) | T |
|
|
|
|
|
| check | evaluate text | (apply '> (decreasing-list 0 10000)) | T |
|
|
|
|
|
| check | evaluate text | (apply '< (increasing-list 10000 10000)) | T |
|
|
|
|
|
| check | evaluate text | (apply 'and big-list) | 1 |
|
|
|
|
|
| check | evaluate text | (apply 'or (list-of nil 10000)) | NIL |
|
|
|
|
|
| check | evaluate text | (eval `(defun big-defun ,(list-of 'x 10000) ,big-list)) | BIG-DEFUN |
|
|
|
|
|
| check | evaluate text | (eval `(define-special special ,(list-of 'x 10000) ,big-list)) | SPECIAL |
|
|
|
|
|
| check | evaluate text | (eval `(defmacro big-macro ,(list-of 'x 10000) ,big-list)) | BIG-MACRO |
|
