diff options
| author | Akshay <[email protected]> | 2021-03-31 15:52:04 +0100 |
|---|---|---|
| committer | Akshay <[email protected]> | 2021-03-31 15:52:04 +0100 |
| commit | 733a7df549aa7bb7a7bb727a25235f25db875ecd (patch) | |
| tree | 72eb4709a548613591ba8e5ee26c1008d9e84098 /src/lisp/std.lisp | |
| parent | d1b33826bcc94e1feec4eb99f5781506223e3676 (diff) | |
introduce basic canvas primitive functions
Diffstat (limited to 'src/lisp/std.lisp')
| -rw-r--r-- | src/lisp/std.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lisp/std.lisp b/src/lisp/std.lisp index d54b32c..97c3984 100644 --- a/src/lisp/std.lisp +++ b/src/lisp/std.lisp | |||
| @@ -45,3 +45,9 @@ | |||
| 45 | 45 | ||
| 46 | (define (sum ls) (fold 0 + ls)) | 46 | (define (sum ls) (fold 0 + ls)) |
| 47 | (define (product ls) (fold 1 * ls)) | 47 | (define (product ls) (fold 1 * ls)) |
| 48 | |||
| 49 | (define (enumerate start stop step) | ||
| 50 | (if (> start stop) | ||
| 51 | '() | ||
| 52 | (cons start | ||
| 53 | (enumerate (+ start step) stop step)))) | ||