diff --git a/exercises/practice/scrabble-score/.meta/example.sml b/exercises/practice/scrabble-score/.meta/example.sml index 14d1d6a..1714914 100644 --- a/exercises/practice/scrabble-score/.meta/example.sml +++ b/exercises/practice/scrabble-score/.meta/example.sml @@ -1,33 +1,34 @@ val score: string -> int = let - fun letterValue (c: char): int = case c of - #"A" => 1 - | #"E" => 1 - | #"I" => 1 - | #"O" => 1 - | #"U" => 1 - | #"L" => 1 - | #"N" => 1 - | #"R" => 1 - | #"S" => 1 - | #"T" => 1 - | #"D" => 2 - | #"G" => 2 - | #"B" => 3 - | #"C" => 3 - | #"M" => 3 - | #"P" => 3 - | #"F" => 4 - | #"H" => 4 - | #"V" => 4 - | #"W" => 4 - | #"Y" => 4 - | #"K" => 5 - | #"J" => 8 - | #"X" => 8 - | #"Q" => 10 - | #"Z" => 10 - | _ => 0 + fun letterValue (c: char): int = + case c of + #"A" => 1 + | #"E" => 1 + | #"I" => 1 + | #"O" => 1 + | #"U" => 1 + | #"L" => 1 + | #"N" => 1 + | #"R" => 1 + | #"S" => 1 + | #"T" => 1 + | #"D" => 2 + | #"G" => 2 + | #"B" => 3 + | #"C" => 3 + | #"M" => 3 + | #"P" => 3 + | #"F" => 4 + | #"H" => 4 + | #"V" => 4 + | #"W" => 4 + | #"Y" => 4 + | #"K" => 5 + | #"J" => 8 + | #"X" => 8 + | #"Q" => 10 + | #"Z" => 10 + | _ => 0 val sum: int list -> int = List.foldl (op +) 0 in sum o List.map (letterValue o Char.toUpper) o String.explode