duckling/Duckling/Numeral/FA/Corpus.hs
Sajjad Heydari 700118644c FA Setup (#520)
Summary: Pull Request resolved: https://github.com/facebook/duckling/pull/520

Reviewed By: patapizza

Differential Revision: D25072459

Pulled By: chessai

fbshipit-source-id: 5db72eda36fe166a452b2345cab75fb1508b192b
2020-11-19 12:20:00 -08:00

103 lines
2.5 KiB
Haskell
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

-- 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.FA.Corpus
( corpus
) where
import Data.String
import Prelude
import Duckling.Locale
import Duckling.Numeral.Types
import Duckling.Resolve
import Duckling.Testing.Types
corpus :: Corpus
corpus = (testContext {locale = makeLocale FA Nothing}, testOptions, allExamples)
allExamples :: [Example]
allExamples = concat
[ examples (NumeralValue 0)
[ "0"
, "۰"
, "صفر"
]
, examples (NumeralValue 1)
[ "1"
, "۱"
, "یک"
]
, examples (NumeralValue 11)
[ "یازده"
]
, examples (NumeralValue 17)
[ "هفده"
]
, examples (NumeralValue 21)
[ "بیست و یک"
]
, examples (NumeralValue 23)
[ "بیست و سه"
]
, examples (NumeralValue 70)
[ "هفتاد"
]
, examples (NumeralValue 71)
[ "هفتاد و یک"
]
, examples (NumeralValue 78)
[ "هفتاد و هشت"
]
, examples (NumeralValue 73)
[ "هفتاد و سه"
]
, examples (NumeralValue 80)
[ "هشتاد"
]
, examples (NumeralValue 81)
[ "هشتاد و یک"
]
, examples (NumeralValue 82)
[ "هشتاد و دو"
]
, examples (NumeralValue 90)
[ "نود"
]
, examples (NumeralValue 91)
[ "نود و یک"
]
, examples (NumeralValue 92)
[ "نود و دو"
]
, examples (NumeralValue 99)
[ "نود و نه"
]
, examples (NumeralValue 33)
[ "33"
, "۳۳"
, "سی و سه"
]
, examples (NumeralValue 118)
[ "صد و هجده"
]
, examples (NumeralValue 4020)
[ "چهار هزار و بیست"
]
, examples (NumeralValue 100000)
[ "صد هزار"
, "100000"
, "۱۰۰۰۰۰"
]
, examples (NumeralValue 3000000)
[ "سه میلیون"
, "3000000"
]
]