7 lines
228 B
Standard ML
7 lines
228 B
Standard ML
fun urlEncode str =
|
|
let
|
|
fun charToHex c = "%" ^ (Int.fmt StringCvt.HEX (ord c))
|
|
fun escapeChar c = if Char.isAlphaNum c then Char.toString c else charToHex c
|
|
in
|
|
String.concat (map escapeChar (explode str))
|
|
end
|