Sha256: 912f678980df8585b0b1be9ec0d298e059cb67ee014ba0e382c7a7e7b57285ba
Contents?: true
Size: 704 Bytes
Versions: 208
Compression:
Stored size: 704 Bytes
Contents
use "example.sml";
val test_cases = [
( "" , ["enlists", "google", "inlets", "banana"], [] ),
( "listen", [], [] ),
( "listen", ["enlists", "google", "inlets", "banana"], ["inlets"] ),
( "hatreds", ["dearths","hardest","salmon","devilish", "threads"], ["dearths","hardest","threads"] )
];
fun run_tests [] = []
| run_tests ((word,candidateList,expected)::ts) =
(anagram word candidateList = expected) :: run_tests ts
val allTestsPass = List.foldl (fn (x,y) => x andalso y) true (run_tests test_cases)
Version data entries
208 entries across 208 versions & 1 rubygems