duckling/Duckling/Numeral/JA/Corpus.hs
Julien Odent 54c9448fba Rename Number to Numeral
Summary: For consistency with the dimension name.

Reviewed By: JonCoens

Differential Revision: D4722216

fbshipit-source-id: 82c56d3
2017-03-16 13:49:16 -07:00

110 lines
2.5 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. An additional grant
-- of patent rights can be found in the PATENTS file in the same directory.
{-# LANGUAGE OverloadedStrings #-}
module Duckling.Numeral.JA.Corpus
( corpus ) where
import Prelude
import Data.String
import Duckling.Lang
import Duckling.Numeral.Types
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus = (testContext {lang = JA}, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (NumeralValue 0)
[ "0"
, ""
, "ゼロ"
]
, examples (NumeralValue 1)
[ "1"
, ""
]
, examples (NumeralValue 33)
[ "33"
, "三十三"
, "0033"
]
, examples (NumeralValue 14)
[ "14"
, "十四"
]
, examples (NumeralValue 16)
[ "16"
, "十六"
]
, examples (NumeralValue 17)
[ "17"
, "十七"
]
, examples (NumeralValue 18)
[ "18"
, "十八"
]
, examples (NumeralValue 100)
[ "100"
, ""
]
, examples (NumeralValue 101)
[ "101"
, "百一"
]
, examples (NumeralValue 200)
[ "200"
]
, examples (NumeralValue 1.1)
[ "1.1"
, "1.10"
, "01.10"
]
, examples (NumeralValue 0.77)
[ "0.77"
, ".77"
]
, examples (NumeralValue 100000)
[ "100,000"
, "100000"
, "100K"
, "100k"
]
, examples (NumeralValue 3000000)
[ "3M"
, "3000K"
, "3000000"
, "3,000,000"
]
, examples (NumeralValue 1200000)
[ "1,200,000"
, "1200000"
, "1.2M"
, "1200K"
, ".0012G"
]
, examples (NumeralValue (-1200000))
[ "- 1,200,000"
, "-1200000"
, "-1.2M"
, "-1200K"
, "-.0012G"
]
, examples (NumeralValue 5000)
[ "5千"
]
, examples (NumeralValue 20000)
[ "2万"
]
]