18 lines
461 B
OCaml
18 lines
461 B
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 -> ""
|
|
| len -> String.sub str 1 (len - 2)
|
|
|
|
let () =
|
|
print_endline (strip_first_char "knight");
|
|
print_endline (strip_last_char "socks");
|
|
print_endline (strip_both_chars "brooms");
|
|
;;
|