#load "str.cma";;
open Str;;
let rec f n s =
if String.length s < n
then []
else first_chars s n :: (f n (string_after s 1));;
g*****8 发帖数: 41
2
ocaml
【在 j*****k 的大作中提到】 : #load "str.cma";; : open Str;; : let rec f n s = : if String.length s < n : then [] : else first_chars s n :: (f n (string_after s 1));;
