duckling/Duckling/Numeral/NB/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

114 lines
2.6 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.NB.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 = NB}, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (NumeralValue 0)
[ "0"
, "null"
]
, examples (NumeralValue 1)
[ "1"
, "én"
, "en"
, "Ett"
]
, examples (NumeralValue 2)
[ "2"
, "to"
, "et par"
]
, examples (NumeralValue 7)
[ "7"
, "syv"
, "sju"
]
, examples (NumeralValue 14)
[ "14"
, "fjorten"
]
, examples (NumeralValue 16)
[ "16"
, "seksten"
]
, examples (NumeralValue 17)
[ "17"
, "sytten"
, "søtten"
]
, examples (NumeralValue 18)
[ "18"
, "atten"
]
, examples (NumeralValue 20)
[ "20"
, "tyve"
, "Tjue"
]
, 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"
, "minus 1.200.000"
, "negativ 1200000"
, "-1,2M"
, "-1200K"
, "-,0012G"
]
, examples (NumeralValue 5000)
[ "5 tusen"
, "fem tusen"
]
, examples (NumeralValue 5020)
[ "fem tusen og tjue"
]
]