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 cons and concat

Browse Source
This commit is contained in:
Fabian 2021-04-03 00:03:04 +02:00 committed by Joel Martin
parent f8400db56d
commit fbcfb5962e
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
impls/sml/core.sml
View File

@ -1,6 +1,12 @@
exception NotDefined of string
exception NotApplicable of string
fun collectLists ls = collectLists' ls []
and collectLists' (LIST l::rest) acc = collectLists' rest (l::acc)
| collectLists' (VECTOR v::rest) acc = collectLists' rest (v::acc)
| collectLists' [] acc = SOME (rev acc)
| collectLists' _ _ = NONE
val coreList = [
SYMBOL "list",
FN (fn args => LIST args),
@ -21,7 +27,17 @@ val coreList = [
FN (fn [LIST l] => INT (length l)
| [VECTOR v] => INT (length v)
| [NIL] => INT 0
| _ => raise NotApplicable "count requires a list")
| _ => raise NotApplicable "count requires a list"),
SYMBOL "cons",
FN (fn [hd,LIST tl] => LIST (hd::tl)
| [hd,VECTOR tl] => LIST (hd::tl)
| _ => raise NotApplicable "cons requires an element and a list or vector"),
SYMBOL "concat",
FN (fn args => case collectLists args of
SOME ls => LIST (List.concat ls)
| NONE => raise NotApplicable "concat requires an element and a list or vector")
]
(* N.B. adds extra newline at end *)