summaryrefslogtreecommitdiff
path: root/Alpha/Core.scm
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2020-05-09 22:18:17 -0700
committerBen Sima <ben@bsima.me>2020-05-09 22:18:17 -0700
commitfd721e94532ba7f912d13706b3c03056345952e6 (patch)
tree7c273db16e0e8dc4de7f1702e50e2e368bbd18b5 /Alpha/Core.scm
parent1542c85458dcd58bb6d40f1f8d3917f80298ddd2 (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.scm22
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))