Completing WordsCat

This commit is contained in:
jordi.saludes
2010-05-26 15:31:03 +00:00
parent c54d21ea2c
commit 5001bc6e18
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 ;