miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Port method stuff over to new_kraken

Browse Source
This commit is contained in:
Nathan Braswell
2020-12-22 19:24:54 -05:00
parent 8d80f38f76
commit 4ed9af307f
3 changed files with 92 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
prelude.kp
View File

@@ -32,14 +32,14 @@
(let (
print_through (lambda (x) (do (println x) x))
rec-lambda (vau se (p b) (eval (array Y (array lambda (quote (recurse)) (array lambda p b))) se))
rec-lambda (vau se (n p b) (eval (array Y (array lambda (array n) (array lambda p b))) se))
if (vau de (con than & else) (cond (eval con de) (eval than de)
(> (len else) 0) (eval (idx else 0) de)
true nil))
map (lambda (f l)
(let (helper (rec-lambda (f l n i)
(let (helper (rec-lambda recurse (f l n i)
(if (= i (len l))
n
(do (set-idx! n i (f (idx l i)))
@@ -47,7 +47,7 @@
(helper f l (array-with-len (len l)) 0)))
map_i (lambda (f l)
(let (helper (rec-lambda (f l n i)
(let (helper (rec-lambda recurse (f l n i)
(if (= i (len l))
n
(do (set-idx! n i (f i (idx l i)))
@@ -62,7 +62,7 @@
concat (lambda (& as) (concat_helper concat_helper as (array-with-len (lapply + (map len as))) 0 0 0))
filter_i (lambda (f l)
(let (helper (rec-lambda (f l n i)
(let (helper (rec-lambda recurse (f l n i)
(if (= i (len l))
n
(if (f i (idx l i)) (recurse f l (concat n (array (idx l i))) (+ i 1))
@@ -97,13 +97,13 @@
body) de)))
flat_map (lambda (f l)
(let (helper (rec-lambda (f l n i)
(let (helper (rec-lambda recurse (f l n i)
(if (= i (len l))
n
(recurse f l (concat n (f (idx l i))) (+ i 1)))))
(helper f l (array) 0)))
map_with_idx (lambda (f l)
(let (helper (rec-lambda (f l n i)
(let (helper (rec-lambda recurse (f l n i)
(if (= i (len l))
n
(do (set-idx! n i (f i (idx l i)))