Jewels and stones

From Rosetta Code
Revision as of 12:50, 19 February 2021 by Drkameleon (talk | contribs) (Replaced content with "=={{header|Arturo}}== <lang rebol>count: function [jewels,stones][ size select split stones => [in? & jewels] ] print count "aA" "aAAbbbb"</lang> {{out}} <pre>3...")

Arturo

<lang rebol>count: function [jewels,stones][ 

   size select split stones => [in? & jewels]

]

print count "aA" "aAAbbbb"</lang>

Output:
3
Retrieved from "https://rosettacode.org/wiki/Jewels_and_stones?oldid=282004"