Sha256: acf7144d89f26fbe0c1db712c7df745fdc49178214575119460bddcd3119b3c6
Contents?: true
Size: 614 Bytes
Versions: 330
Compression:
Stored size: 614 Bytes
Contents
(define-module (scrabble-score)
#:export (score))
(define (letter-score letter)
(case (char-downcase letter)
[(#\a #\e #\i #\o #\u #\l #\n #\r #\s #\t) 1]
[(#\d #\g) 2]
[(#\b #\c #\m #\p) 3]
[(#\f #\h #\v #\w #\y) 4]
[(#\k) 5]
[(#\j #\x) 8]
[(#\q #\z) 10]
[else 0]))
(define (score word)
(string-fold (lambda (letter acc) (+ acc (letter-score letter))) 0 word))
Version data entries
330 entries across 330 versions & 1 rubygems