Jewels and stones: Difference between revisions

add OCaml
(→‎{{header|Vlang}}: Rename "Vlang" in "V (Vlang)")
(add OCaml)
Line 1,252:
0
</pre>
 
=={{header|OCaml}}==
<syntaxhighlight lang="ocaml">let jewels j s =
String.(fold_left (fun n c -> if contains j c then succ n else n) 0 s)</syntaxhighlight>
 
=={{header|Perl}}==
559

edits