From 765d25857b0472e3f9df89ac822ad36ea0502466 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Tue, 6 Dec 2022 17:50:19 +0200
Subject: Rename stdlib -> core, allow import without .milch suffix

---
 stdlib/common.milch | 125 ----------------------------------------------------
 1 file changed, 125 deletions(-)
 delete mode 100644 stdlib/common.milch

(limited to 'stdlib/common.milch')

diff --git a/stdlib/common.milch b/stdlib/common.milch
deleted file mode 100644
index f05c6a5..0000000
--- a/stdlib/common.milch
+++ /dev/null
@@ -1,125 +0,0 @@
-(let compose (\[f g]
-    (\[x] (f (g x)))))
-
-(let id (\[a] a))
-
-(let mod (\[n k]
-    (- n (* k (/ n k)))))
-
-(let not (\[b]
-    (match b
-        true false
-        false true)))
-
-(let is-even (\[n]
-    (match (mod n 2)
-        0 true
-        1 false)))
-
-(let is-odd (compose not is-even))
-
-;; map :: (a -> b) -> [a] -> [b]
-(let map (\[f lst]
-    (match lst
-        []
-            []
-        otherwise
-            (prepend (f (head lst)) (map f (tail lst))))))
-
-; (map (+ 1) [1 2 3])
-
-;; foldr :: (a -> b -> b) -> b -> [a] -> b
-(let foldr (\[f accumulator lst]
-    (match lst
-        []
-            accumulator
-        otherwise
-            (f (head lst) (foldr f accumulator (tail lst))))))
-
-;; filter :: (a -> Bool) -> [a] -> [a]
-(let filter (\[pred lst]
-    (match lst
-        [] []
-        otherwise (match (pred (head lst))
-            true
-                (prepend (head lst) (filter pred (tail lst)))
-            false
-                (filter pred (tail lst))))))
-
-(let reverse_ (\[v a]
-    (let lazy x (head v))
-    (let lazy xs (tail v))
-    (let lazy xa (prepend x a))
-    (match v
-        [] a
-        _  (reverse_ xs xa))))
-
-(let reverse (\[v]
-    (reverse_ v [])))
-
-(let flow (\[fs] (foldr compose id (reverse fs))))
-(let pipe (\[x fs] ((flow fs) x)))
-
-(let leq? (\[a b]
-    (or?
-        (eq? a b)
-        (lt? a b))))
-
-(let rt? (compose not leq?))
-(let req? (compose not lt?))
-
-(let max2 (\[a b]
-    (match (lt? a b)
-        true    b
-        false   a)))
-
-(let max (\[vals]
-    (let lazy v (head vals))
-    (let vs (tail vals))
-
-    (match vs
-        []          v
-        otherwise   (max2 v (max vs)))))
-
-(let split-by' (\[delim acc vals]
-    (let lazy v (head vals))
-    (let vs (tail vals))
-
-    (match vs
-        []          (match v
-            delim       [(reverse acc)]
-            otherwise   [(prepend v (reverse acc))])
-        otherwise   (match v
-            delim       (prepend (reverse acc) (split-by' delim [] vs))
-            otherwise   (split-by' delim (prepend v acc) vs)))))
-
-; split vector by delimiter
-(let split-by (\[delim vals]
-    (split-by' delim [] vals)))
-
-(let at (\[n seq]
-    (match seq
-        []          (fatal! (fmt "at out of bounds, n: {0}" [n]))
-        otherwise   (match n
-            0           (head seq)
-            otherwise   (at (- n 1) (tail seq))))))
-
-(let print-fmt! (\![fstr args]
-    (print! (fmt fstr args))))
-
-(let sort-by (\[keyf vals]
-    (let sorted (sort-by-first
-        (map (\[v]
-            [(keyf v) v]) vals)))
-
-    (map (at 1) sorted)))
-
-(let take (\[n xs]
-    (match n
-        0          []
-        otherwise  (prepend (head xs) (take (- n 1) (tail xs))))))
-
-(let drop (\[n xs]
-    (match n
-        0          xs
-        otherwise  (drop (- n 1) (tail xs)))))
-- 
cgit v1.3