racket/leetcode/lc-771-jewels-and-stones.rkt


1
2
3
4
5
6

#lang racket

(define/contract (num-jewels-in-stones jewels stones)
  (-> string? string? exact-integer?)
  (for/sum ([jewel (in-string jewels)])
    (count (curry char=? jewel) (string->list stones))))