Completing WordsCat

This commit is contained in:
jordi.saludes
2010-05-26 15:31:03 +00:00
parent 77d464951e
commit 79649a89a6
2 changed files with 133 additions and 37 deletions

View File

@@ -250,7 +250,9 @@ lin
TheClosest = mkSuperl L.near_A False;
TheCheapest = mkSuperl cheap_A False ;
TheMostExpensive = mkSuperl expensive_A False ;
TheMostPopular = mkSuperl (mkA "popular") False ;
TheMostPopular =
let popular = mkA "popular" "popular" "populars" "populars" "popularment"
in mkSuperl popular False ;
TheWorst = mkSuperl L.bad_A True ;
SuperlPlace sup p = placeNPSuperl sup p ;