Jewels and stones

See details: Jewels and Stones

Ring

<lang ring>

1. Project Jewels and Stones
2. Date 2018/04/25
3. Author Gal Zsolt (~ CalmoSoft ~)
4. Email <calmosoft@gmail.com>

jewels = "aA" stones = "aAAbbbb" see jewelsandstones(jewels,stones) + nl jewels = "z" stones = "ZZ" see jewelsandstones(jewels,stones) + nl

func jewelsandstones(jewels,stones)

       num = 0
       for n = 1 to len(stones)
            pos = substr(jewels,stones[n])
            if pos > 0
               num = num + 1
            ok
       next
       return num

</lang> Output:

3
0