mirror of
https://github.com/kanaka/mal.git
synced 2024-10-26 22:28:26 +03:00
33 lines
1.1 KiB
Standard ML
33 lines
1.1 KiB
Standard ML
fun takeWhile f xs = takeWhile' f [] xs
|
|
and takeWhile' f acc [] = rev acc
|
|
| takeWhile' f acc (x::xs) = if f x then takeWhile' f (x::acc) xs else rev acc
|
|
|
|
infix 3 |> fun x |> f = f x
|
|
|
|
fun eq a b = a = b
|
|
|
|
fun optOrElse NONE b = b ()
|
|
| optOrElse a _ = a
|
|
|
|
fun valOrElse (SOME x) _ = x
|
|
| valOrElse a b = b ()
|
|
|
|
fun valIfNone _ (SOME a) = a
|
|
| valIfNone b _ = b ()
|
|
|
|
fun interleave (x::xs) (y::ys) = x :: y :: interleave xs ys
|
|
| interleave _ _ = []
|
|
|
|
fun malEscape s = String.translate (fn #"\"" => "\\\""
|
|
| #"\n" => "\\n"
|
|
| #"\\" => "\\\\"
|
|
| c => String.str c) s
|
|
|
|
fun malUnescape s = malUnescape' (String.explode s)
|
|
and malUnescape' (#"\\"::(#"\""::rest)) = "\"" ^ malUnescape' rest
|
|
| malUnescape' (#"\\"::(#"n" ::rest)) = "\n" ^ malUnescape' rest
|
|
| malUnescape' (#"\\"::(#"\\"::rest)) = "\\" ^ malUnescape' rest
|
|
| malUnescape' (c::rest) = (String.str c) ^ malUnescape' rest
|
|
| malUnescape' ([]) = ""
|
|
|