Jewels and stones: Difference between revisions
→Add Transd
Line 1,754:
jewel_count = 0
</pre>
=={{header|Transd}}==
<lang Scheme>#lang transd
MainModule: {
countJewels: (λ j String() st String() locals: n 0
(for s in st do
(if (contains j s) (+= n 1)))
(ret n)
),
_start: (λ (lout (countJewels "aA" "aAAbbbb"))
(lout (countJewels "b" "BB")))
}</lang>
{{out}}
<pre>
3
0
</pre>
| |||