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}}==
|