diff options
author | Ben Sima <ben@bsima.me> | 2020-05-09 22:18:17 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2020-05-09 22:18:17 -0700 |
commit | fd721e94532ba7f912d13706b3c03056345952e6 (patch) | |
tree | 7c273db16e0e8dc4de7f1702e50e2e368bbd18b5 /Alpha/Core.scm | |
parent | 1542c85458dcd58bb6d40f1f8d3917f80298ddd2 (diff) |
Index titles
Also don't overwrite srfi-1 stuff, and added an re module.
Diffstat (limited to 'Alpha/Core.scm')
-rw-r--r-- | Alpha/Core.scm | 22 |
1 files changed, 2 insertions, 20 deletions
diff --git a/Alpha/Core.scm b/Alpha/Core.scm index 997bc4f..192a74f 100644 --- a/Alpha/Core.scm +++ b/Alpha/Core.scm @@ -2,9 +2,8 @@ #:use-module ((ice-9 format)) #:use-module ((system vm program)) #:use-module ((ice-9 rdelim) #:select (read-line)) - #:use-module ((srfi srfi-1) #:select (any)) - #:export (fmt printf pr prn - first ffirst second rest last butlast + #:use-module (srfi srfi-1) + #:export (fmt printf pr prn rest last butlast true? false? some? empty? -> ->> fn /. curry comp repeat @@ -29,13 +28,6 @@ acc (foldl f (f acc (car lst)) (cdr lst)))) -(define fold foldl) - -(define (unfold f init pred) - (if (pred init) - (cons init '()) - (cons init (unfold f (f init) pred)))) - (define (sum lst) (fold + 0 lst)) (define (product lst) (fold * 1 lst)) @@ -62,19 +54,9 @@ (define (empty? a) (equal? a '())) -(define (first a) - "Return the first item in the collection." - (if (pair? a) - (car a) - '())) - (define (ffirst a) (first (first a))) -(define (second a) - "Returns the next item after the first." - (cadr a)) - (define (rest a) "Returns a list of the items after the first." (cdr a)) |