0
對於我的任務,我必須做的兩個功能與類型:(sml/nj)正確的類型?
wt: trie -> (char list list -> ’a)-> ’a
aw: trie list -> (char list list -> ’a)-> ’a
但我已經是這一點,不知道是否是同樣的事情:
wt: 'a trie -> ('a list list -> ’a list list)-> ’a list list
aw: 'a trie list -> ('a list list -> ’a list list)-> ’a list list
這是我的功能:
datatype ’a trie = Node of ’a * (’a trie) list | Empty
fun words_in_trie Empty cont = cont [[]]
| words_in_trie (Node (c, lis)) cont = all_words lis (fn j => map (fn y => [c]@y) j)