numerals-0.4: src-test/Text/Numeral/Language/CY/TestData.hs
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PackageImports #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE UnicodeSyntax #-}
{-|
[@ISO639-1@] cy
[@ISO639-2B@] wel
[@ISO639-2T@] cym
[@ISO639-3@] cym
[@Native name@] Cymraeg
[@English name@] Welsh
-}
module Text.Numeral.Language.CY.TestData (cardinals, ordinals) where
--------------------------------------------------------------------------------
-- Imports
--------------------------------------------------------------------------------
import "base" Prelude ( Integral )
import "numerals" Text.Numeral.Grammar.Reified ( defaultInflection )
import "numerals" Text.Numeral.Misc ( dec )
import "this" Text.Numeral.Test ( TestData )
--------------------------------------------------------------------------------
-- Test data
--------------------------------------------------------------------------------
-- Sources:
-- http://mylanguages.org/welsh_numbers.php
cardinals ∷ (Integral i) ⇒ TestData i
cardinals =
[ ( "default"
, defaultInflection
, [ (0, "dim")
, (1, "un")
, (2, "dau")
, (3, "tri")
, (4, "pedwar")
, (5, "pump")
, (6, "chwech")
, (7, "saith")
, (8, "wyth")
, (9, "naw")
, (10, "deg")
, (11, "un deg un")
, (12, "un deg dau")
, (13, "un deg tri")
, (14, "un deg pedwar")
, (15, "un deg pump")
, (16, "un deg chwech")
, (17, "un deg saith")
, (18, "un deg wyth")
, (19, "un deg naw")
, (20, "dau deg")
, (21, "dau deg un")
, (22, "dau deg dau")
, (23, "dau deg tri")
, (24, "dau deg pedwar")
, (25, "dau deg pump")
, (26, "dau deg chwech")
, (27, "dau deg saith")
, (28, "dau deg wyth")
, (29, "dau deg naw")
, (30, "tri deg")
, (31, "tri deg un")
, (32, "tri deg dau")
, (33, "tri deg tri")
, (34, "tri deg pedwar")
, (35, "tri deg pump")
, (36, "tri deg chwech")
, (37, "tri deg saith")
, (38, "tri deg wyth")
, (39, "tri deg naw")
, (40, "pedwar deg")
, (41, "pedwar deg un")
, (42, "pedwar deg dau")
, (43, "pedwar deg tri")
, (44, "pedwar deg pedwar")
, (45, "pedwar deg pump")
, (46, "pedwar deg chwech")
, (47, "pedwar deg saith")
, (48, "pedwar deg wyth")
, (49, "pedwar deg naw")
, (50, "pum deg")
, (51, "pum deg un")
, (52, "pum deg dau")
, (53, "pum deg tri")
, (54, "pum deg pedwar")
, (55, "pum deg pump")
, (56, "pum deg chwech")
, (57, "pum deg saith")
, (58, "pum deg wyth")
, (59, "pum deg naw")
, (60, "chwe deg")
, (61, "chwe deg un")
, (62, "chwe deg dau")
, (63, "chwe deg tri")
, (64, "chwe deg pedwar")
, (65, "chwe deg pump")
, (66, "chwe deg chwech")
, (67, "chwe deg saith")
, (68, "chwe deg wyth")
, (69, "chwe deg naw")
, (70, "saith deg")
, (71, "saith deg un")
, (72, "saith deg dau")
, (73, "saith deg tri")
, (74, "saith deg pedwar")
, (75, "saith deg pump")
, (76, "saith deg chwech")
, (77, "saith deg saith")
, (78, "saith deg wyth")
, (79, "saith deg naw")
, (80, "wyth deg")
, (81, "wyth deg un")
, (82, "wyth deg dau")
, (83, "wyth deg tri")
, (84, "wyth deg pedwar")
, (85, "wyth deg pump")
, (86, "wyth deg chwech")
, (87, "wyth deg saith")
, (88, "wyth deg wyth")
, (89, "wyth deg naw")
, (90, "naw deg")
, (91, "naw deg un")
, (92, "naw deg dau")
, (93, "naw deg tri")
, (94, "naw deg pedwar")
, (95, "naw deg pump")
, (96, "naw deg chwech")
, (97, "naw deg saith")
, (98, "naw deg wyth")
, (99, "naw deg naw")
, (100, "cant")
, (1000, "un thousand")
, (dec 6, "miliwn")
]
)
]
ordinals ∷ (Integral i) ⇒ TestData i
ordinals =
[ ( "default"
, defaultInflection
, [ (1, "gyntaf")
, (2, "ail")
, (3, "trydydd")
, (4, "pedwerydd")
, (5, "pumed")
, (6, "chweched")
, (7, "seithfed")
, (8, "wythfed")
, (9, "nawfed")
, (10, "degfed")
, (11, "unfed ar ddeg")
, (12, "deuddegfed")
, (13, "drydedd ar ddeg")
, (14, "ddeg")
, (15, "pymthegfed")
, (16, "ar bymtheg")
, (17, "ail ar bymtheg")
, (18, "deunawfed")
, (19, "bedwaredd ganrif ar bymtheg")
, (20, "ugeinfed")
]
)
]