Anonymous user
Substring/Top and tail: Difference between revisions
added ocaml
(added ocaml) |
|||
Line 232:
print (string.sub("knights",1,-2)) -- remove the last character
print (string.sub("knights",2,-2)) -- remove the first and last characters</lang>
=={{header|OCaml}}==
<lang ocaml>let strip_first_char str =
if str = "" then "" else
String.sub str 1 ((String.length str) - 1)
let strip_last_char str =
if str = "" then "" else
String.sub str 0 ((String.length str) - 1)
let strip_both_chars str =
match String.length str with
| 0 | 1 | 2 -> ""
| _ -> String.sub str 1 ((String.length str) - 2)
let main() =
print_endline (strip_first_char "knight");
print_endline (strip_last_char "socks");
print_endline (strip_both_chars "brooms");
;;</lang>
=={{header|PARI/GP}}==
| |||