mirror of
https://github.com/facebook/duckling.git
synced 2024-12-11 06:46:26 +03:00
f70f991b38
Summary: Duckling didn't support Lao numerals, this diff adds it. Reviewed By: patapizza Differential Revision: D9323242 fbshipit-source-id: 5dad0d4dfb4843281a327947690e664c91ab8f1a
91 lines
2.3 KiB
Haskell
91 lines
2.3 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.LO.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 LO Nothing}, testOptions, allExamples)
|
|
|
|
allExamples :: [Example]
|
|
allExamples = concat
|
|
[ examples (NumeralValue 0)
|
|
[ "ສູນ"
|
|
]
|
|
, examples (NumeralValue 1)
|
|
[ "ໜຶ່ງ"
|
|
]
|
|
, examples (NumeralValue 2)
|
|
[ "ສອງ"
|
|
]
|
|
, examples (NumeralValue 3)
|
|
[ "ສາມ"
|
|
]
|
|
, examples (NumeralValue 4)
|
|
[ "ສີ່"
|
|
]
|
|
, examples (NumeralValue 5)
|
|
[ "ຫ້າ"
|
|
]
|
|
, examples (NumeralValue 6)
|
|
[ "ຫົກ"
|
|
]
|
|
, examples (NumeralValue 7)
|
|
[ "ເຈັດ"
|
|
]
|
|
, examples (NumeralValue 8)
|
|
[ "ແປດ"
|
|
]
|
|
, examples (NumeralValue 9)
|
|
[ "ເກົ້າ"
|
|
]
|
|
, examples (NumeralValue 11)
|
|
[ "ສິບເອັດ"
|
|
]
|
|
, examples (NumeralValue 15)
|
|
[ "ສິບຫ້າ"
|
|
]
|
|
, examples (NumeralValue 17)
|
|
[ "ສິບເຈັດ"
|
|
]
|
|
, examples (NumeralValue 22)
|
|
[ "ຊາວສອງ"
|
|
]
|
|
, examples (NumeralValue 24)
|
|
[ "ຊາວສີ່"
|
|
]
|
|
, examples (NumeralValue 26)
|
|
[ "ຊາວຫົກ"
|
|
]
|
|
, examples (NumeralValue 28)
|
|
[ "ຊາວແປດ"
|
|
]
|
|
, examples (NumeralValue 34)
|
|
[ "ສາມສິບສີ່"
|
|
]
|
|
, examples (NumeralValue 10)
|
|
[ "ສິບ"
|
|
]
|
|
, examples (NumeralValue 20)
|
|
[ "ຊາວ"
|
|
]
|
|
, examples (NumeralValue 50)
|
|
[ "ຫ້າສິບ"
|
|
]
|
|
]
|