duckling/Duckling/Numeral/KO/Corpus.hs
Julien Odent bf89e34365 Relicense to BSD3
Reviewed By: JoelMarcey

Differential Revision: D15439223

fbshipit-source-id: c5af3cb06318748142fe503945b38beffadfc28a
2019-05-22 10:46:39 -07:00

194 lines
4.9 KiB
Haskell

-- Copyright (c) 2016-present, Facebook, Inc.
-- All rights reserved.
--
-- This source code is licensed under the BSD-style license found in the
-- LICENSE file in the root directory of this source tree.
{-# LANGUAGE OverloadedStrings #-}
module Duckling.Numeral.KO.Corpus
( corpus ) where
import Prelude
import Data.String
import Duckling.Locale
import Duckling.Numeral.Types
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus = (testContext {locale = makeLocale KO Nothing}, testOptions, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (NumeralValue 0)
[ "0"
, ""
, ""
, ""
]
, examples (NumeralValue 1)
[ "1"
, ""
, "하나"
, ""
]
, examples (NumeralValue 10)
[ "10"
, ""
, ""
]
, examples (NumeralValue 11)
[ "11"
, "십일"
, "열하나"
, "십하나"
, "열한"
]
, examples (NumeralValue 20)
[ "20"
, "이십"
, "스물"
]
, examples (NumeralValue 35)
[ "35"
, "삼십오"
, "서른다섯"
]
, examples (NumeralValue 47)
[ "47"
, "사십칠"
, "마흔일곱"
]
, examples (NumeralValue 52)
[ "52"
, "오십이"
, "쉰둘"
, "쉰두"
]
, examples (NumeralValue 69)
[ "69"
, "육십구"
, "예순아홉"
]
, examples (NumeralValue 71)
[ "71"
, "칠십일"
, "일흔하나"
, "일흔한"
]
, examples (NumeralValue 84)
[ "84"
, "팔십사"
, "여든넷"
]
, examples (NumeralValue 93)
[ "93"
, "구십삼"
, "아흔셋"
]
, examples (NumeralValue 100)
[ "100"
, ""
]
, examples (NumeralValue 123)
[ "123"
, "백이십삼"
]
, examples (NumeralValue 579)
[ "579"
, "오백칠십구"
]
, examples (NumeralValue 1000)
[ "1000"
, ""
]
, examples (NumeralValue 1723)
[ "1723"
, "천칠백이십삼"
]
, examples (NumeralValue 5619)
[ "5619"
, "오천육백십구"
]
, examples (NumeralValue 10000)
[ "10000"
, ""
, "일만"
]
, examples (NumeralValue 12345)
[ "12345"
, "만이천삼백사십오"
, "일만이천삼백사십오"
]
, examples (NumeralValue 58194)
[ "58194"
, "오만팔천백구십사"
]
, examples (NumeralValue 581900)
[ "581900"
, "오십팔만천구백"
]
, examples (NumeralValue 5819014)
[ "5819014"
, "오백팔십일만구천십사"
]
, examples (NumeralValue 58190148)
[ "58190148"
, "오천팔백십구만백사십팔"
]
, examples (NumeralValue 100000000)
[ "100000000"
, "일억"
]
, examples (NumeralValue 274500000000)
[ "274500000000"
, "이천칠백사십오억"
]
, examples (NumeralValue 100000002)
[ "100000002"
, "일억이"
]
, examples (NumeralValue 27350000)
[ "27350000"
, "이천칠백삼십오만"
]
, examples (NumeralValue 3235698120)
[ "3235698120"
, "삼십이억삼천오백육십구만팔천백이십"
]
, examples (NumeralValue 40234985729)
[ "40234985729"
, "사백이억삼천사백구십팔만오천칠백이십구"
]
, examples (NumeralValue 701239801123)
[ "701239801123"
, "칠천십이억삼천구백팔십만천백이십삼"
]
, examples (NumeralValue 3.4)
[ "3.4"
, "삼점사"
]
, examples (NumeralValue 4123.3)
[ "4123.3"
, "사천백이십삼점삼"
]
, examples (NumeralValue 1.23)
[ "일점이삼"
]
, examples (NumeralValue (-3))
[ "-3"
, "마이너스3"
, "마이너스삼"
, "마이너스 3"
, "마이나스3"
, "마이나스 3"
]
, examples (NumeralValue 0.75)
[ "3/4"
, "사분의삼"
]
]