16 lines
329 B
OCaml
16 lines
329 B
OCaml
|
fun make_list separator =
|
||
|
|
let
|
||
|
|
val counter = ref 1;
|
||
|
|
fun make_item item =
|
||
|
|
let
|
||
|
|
val result = Int.toString (!counter) ^ separator ^ item ^ "\n"
|
||
|
|
in
|
||
|
|
counter := !counter + 1;
|
||
|
|
result
|
||
|
|
end
|
||
|
|
in
|
||
|
|
make_item "first" ^ make_item "second" ^ make_item "third"
|
||
|
|
end;
|
||
|
|
|
||
|
|
print (make_list ". ")
|