kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-11 13:55:55 +03:00
Code Issues Projects Releases Wiki Activity

add core map,apply

Browse Source
This commit is contained in:
Fabian 2021-04-05 18:35:02 +02:00 committed by Joel Martin
parent ce4940014c
commit bfaeb3bfe9
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
impls/sml/core.sml
View File

@ -160,6 +160,21 @@ val coreException = [
| _ => raise NotApplicable "'throw' requires one argument")
]
fun splatArgs [LIST l] = l
| splatArgs [VECTOR v] = v
| splatArgs (x::xs) = x::(splatArgs xs)
val coreFn = [
SYMBOL "map",
FN (fn [FN f, LIST l] => LIST (List.map (fn x => f [x]) l)
| [FN f, VECTOR v] => LIST (List.map (fn x => f [x]) v)
| x => raise NotApplicable "map requires a function and a list or vector"),
SYMBOL "apply",
FN (fn (FN f::args) => f (splatArgs args)
| x => raise NotApplicable "apply requires a function and a list or vector")
]
val coreNs = List.concat [
coreList,
coreIo,
@ -168,5 +183,6 @@ val coreNs = List.concat [
coreString,
coreAtom,
coreException,
coreFn,
coreMath
]