numerals-0.4.1: src-test/Text/Numeral/Language/ZHO/TestData.hs
{-|
[@ISO639-1@] zh
[@ISO639-2B@] chi
[@ISO639-2T@] zho
[@ISO639-3@] cmn
[@Native name@] 官話
[@English name@] Chinese
-}
module Text.Numeral.Language.ZHO.TestData
( trad_cardinals
, simpl_cardinals
, finance_trad_cardinals
, finance_simpl_cardinals
, pinyin_cardinals
) where
--------------------------------------------------------------------------------
-- Imports
--------------------------------------------------------------------------------
import "base" Data.Monoid ( (<>) )
import "numerals" Text.Numeral.Grammar ( defaultInflection )
import "numerals" Text.Numeral.Misc ( dec )
import "this" Text.Numeral.Test ( TestData )
import "text" Data.Text ( Text )
--------------------------------------------------------------------------------
-- Test data
--------------------------------------------------------------------------------
{-
Sources:
http://www.sf.airnet.ne.jp/~ts/language/number/mandarin.html
-}
-- | Cardinal numbers that are written the same using either
-- traditional or simplified characters.
trad_simpl_cardinals :: (Integral i) => [(i, Text)]
trad_simpl_cardinals =
[ (0, "零")
, (1, "一")
, (2, "二")
, (3, "三")
, (4, "四")
, (5, "五")
, (6, "六")
, (7, "七")
, (8, "八")
, (9, "九")
, (10, "十")
, (11, "十一")
, (12, "十二")
, (13, "十三")
, (14, "十四")
, (15, "十五")
, (16, "十六")
, (17, "十七")
, (18, "十八")
, (19, "十九")
, (20, "二十")
, (21, "二十一")
, (22, "二十二")
, (23, "二十三")
, (24, "二十四")
, (25, "二十五")
, (26, "二十六")
, (27, "二十七")
, (28, "二十八")
, (29, "二十九")
, (30, "三十")
, (31, "三十一")
, (32, "三十二")
, (33, "三十三")
, (34, "三十四")
, (35, "三十五")
, (36, "三十六")
, (37, "三十七")
, (38, "三十八")
, (39, "三十九")
, (40, "四十")
, (41, "四十一")
, (42, "四十二")
, (43, "四十三")
, (44, "四十四")
, (45, "四十五")
, (46, "四十六")
, (47, "四十七")
, (48, "四十八")
, (49, "四十九")
, (50, "五十")
, (51, "五十一")
, (52, "五十二")
, (53, "五十三")
, (54, "五十四")
, (55, "五十五")
, (56, "五十六")
, (57, "五十七")
, (58, "五十八")
, (59, "五十九")
, (60, "六十")
, (61, "六十一")
, (62, "六十二")
, (63, "六十三")
, (64, "六十四")
, (65, "六十五")
, (66, "六十六")
, (67, "六十七")
, (68, "六十八")
, (69, "六十九")
, (100, "一百")
, (114, "一百十四")
, (200, "二百")
, (205, "二百〇五")
, (208, "二百〇八")
, (280, "二百八十")
, (301, "三百〇一")
, (310, "三百十")
, (1000, "一千")
, (dec 12, "一兆")
, (dec 16, "一京")
, (dec 20, "一垓")
, (dec 24, "一秭")
, (dec 28, "一穰")
, (dec 32, "一溝")
, (dec 36, "一澗")
, (dec 40, "一正")
, (dec 44, "一載")
]
trad_cardinals :: (Integral i) => TestData i
trad_cardinals =
[ ( "default"
, defaultInflection
, trad_simpl_cardinals
<> [ (2000, "兩千")
, (2008, "兩千〇八")
, (2080, "兩千〇八十")
, (2362, "兩千三百六十二")
, (2800, "兩千八百")
, (dec 4, "一萬")
, (10020, "一萬〇二十")
, (97375, "九萬七千三百七十五")
, (100004, "十萬〇四")
, (8734072, "八百七十三萬四千〇七十二")
, (10050026, "一千〇五萬〇二十六")
, (dec 8, "一億")
, (12345678902345, "十二兆三千四百五十六億七千八百九十萬兩千三百四十五")
]
)
]
simpl_cardinals :: (Integral i) => TestData i
simpl_cardinals =
[ ( "default"
, defaultInflection
, trad_simpl_cardinals
<> [ (2000, "两千")
, (2008, "两千〇八")
, (2080, "两千〇八十")
, (2362, "两千三百六十二")
, (2800, "两千八百")
, (dec 4, "一万")
, (dec 8, "一亿")
]
)
]
finance_trad_cardinals :: (Integral i) => TestData i
finance_trad_cardinals =
[ ( "default"
, defaultInflection
, [ (0, "零")
, (1, "壹")
, (2, "貳")
, (3, "参")
, (4, "肆")
, (5, "伍")
, (6, "陸")
, (7, "柒")
, (8, "捌")
, (9, "玖")
, (10, "拾")
, (100, "壹伯")
, (1000, "壹仟")
, (dec 4, "壹萬")
, (dec 8, "壹億")
]
)
]
finance_simpl_cardinals :: (Integral i) => TestData i
finance_simpl_cardinals =
[ ( "default"
, defaultInflection
, [ (0, "零")
, (1, "壹")
, (2, "贰")
, (3, "参")
, (4, "肆")
, (5, "伍")
, (6, "陆")
, (7, "柒")
, (8, "捌")
, (9, "玖")
, (10, "拾")
, (100, "壹伯")
, (1000, "壹仟")
, (dec 4, "壹万")
, (dec 8, "壹亿")
]
)
]
pinyin_cardinals :: (Integral i) => TestData i
pinyin_cardinals =
[ ( "default"
, defaultInflection
, [ (0, "líng")
, (1, "yī")
, (2, "èr")
, (3, "sān")
, (4, "sì")
, (5, "wǔ")
, (6, "liù")
, (7, "qī")
, (8, "bā")
, (9, "jiǔ")
, (10, "shí")
, (11, "shíyī")
, (12, "shíèr")
, (13, "shísān")
, (14, "shísì")
, (15, "shíwǔ")
, (16, "shíliù")
, (17, "shíqī")
, (18, "shíbā")
, (19, "shíjiǔ")
, (20, "èrshí")
, (21, "èrshí yī")
, (22, "èrshí èr")
, (23, "èrshí sān")
, (24, "èrshí sì")
, (25, "èrshí wǔ")
, (26, "èrshí liù")
, (27, "èrshí qī")
, (28, "èrshí bā")
, (29, "èrshí jiǔ")
, (30, "sānshí")
, (31, "sānshí yī")
, (32, "sānshí èr")
, (33, "sānshí sān")
, (34, "sānshí sì")
, (35, "sānshí wǔ")
, (36, "sānshí liù")
, (37, "sānshí qī")
, (38, "sānshí bā")
, (39, "sānshí jiǔ")
, (40, "sìshí")
, (41, "sìshí yī")
, (42, "sìshí èr")
, (43, "sìshí sān")
, (44, "sìshí sì")
, (45, "sìshí wǔ")
, (46, "sìshí liù")
, (47, "sìshí qī")
, (48, "sìshí bā")
, (49, "sìshí jiǔ")
, (50, "wǔshí")
, (51, "wǔshí yī")
, (52, "wǔshí èr")
, (53, "wǔshí sān")
, (54, "wǔshí sì")
, (55, "wǔshí wǔ")
, (56, "wǔshí liù")
, (57, "wǔshí qī")
, (58, "wǔshí bā")
, (59, "wǔshí jiǔ")
, (60, "liùshí")
, (61, "liùshí yī")
, (62, "liùshí èr")
, (63, "liùshí sān")
, (64, "liùshí sì")
, (65, "liùshí wǔ")
, (66, "liùshí liù")
, (67, "liùshí qī")
, (68, "liùshí bā")
, (69, "liùshí jiǔ")
, (70, "qīshí")
, (71, "qīshí yī")
, (72, "qīshí èr")
, (73, "qīshí sān")
, (74, "qīshí sì")
, (75, "qīshí wǔ")
, (76, "qīshí liù")
, (77, "qīshí qī")
, (78, "qīshí bā")
, (79, "qīshí jiǔ")
, (80, "bāshí")
, (81, "bāshí yī")
, (82, "bāshí èr")
, (83, "bāshí sān")
, (84, "bāshí sì")
, (85, "bāshí wǔ")
, (86, "bāshí liù")
, (87, "bāshí qī")
, (88, "bāshí bā")
, (89, "bāshí jiǔ")
, (90, "jiǔshí")
, (91, "jiǔshí yī")
, (92, "jiǔshí èr")
, (93, "jiǔshí sān")
, (94, "jiǔshí sì")
, (95, "jiǔshí wǔ")
, (96, "jiǔshí liù")
, (97, "jiǔshí qī")
, (98, "jiǔshí bā")
, (99, "jiǔshí jiǔ")
, (100, "yībǎi")
, (208, "èrbǎi líng bā")
, (280, "èrbǎi bāshí")
, (1000, "yīqiān")
, (1002, "yīqiān líng èr")
, (1020, "yīqiān líng èrshí")
, (1200, "yīqiān èrbǎi")
, (1203, "yīqiān èrbǎi líng sān")
, (1230, "yīqiān èrbǎi sānshí")
, (1234, "yīqiān èrbǎi sānshí sì")
, (2008, "liǎngqiān líng bā")
, (2080, "liǎngqiān líng bāshí")
, (2800, "liǎngqiān bābǎi")
, (97375, "jiǔwàn qīqiān sānbǎi qīshí wǔ")
]
)
]