英語を数値に変換する[終了]


27

課題の簡潔でわかりやすい説明:

このサイトの他のいくつかの質問のアイデアに基づいて、あなたの挑戦は、英語で書かれた数字を入力として受け取り、それを整数形式に変換するプログラムで最も創造的なコードを書くことです。

本当に乾燥した、長くて徹底した仕様:

  • あなたのプログラムは、入力として整数を受け取ります小文字の英語の間zeroおよびnine hundred ninety-nine thousand nine hundred ninety-nine包括的。
  • それは間の番号の出力のみ整数形成しなければならない0999999何もない(スペースなし)。
  • 入力には、またはのように、またはが含まれません,andone thousand, two hundredfive hundred and thirty-two
  • 10の位と1の位が両方とも0でなく、10の位がより大きい場合1-スペースではなくハイフンマイナス文字で区切られます。数千と数千の場所のための同上。たとえば、six hundred fifty-four thousand three hundred twenty-one
  • プログラムは、他の入力に対して未定義の動作をする場合があります。

適切に動作するプログラムの例:

zero->-> 0
fifteen-> 15
ninety-> 90
seven hundred four-> 704
sixty-nine thousand four hundred eleven-> 69411
five hundred twenty thousand two->520002


これは特に創造的ではなく、ここの仕様と正確に一致するものでもありませんが、出発点としては有用かもしれません:github.com/ghewgill/text2num/blob/master/text2num.py
グレッグ

この質問への答えをほとんど投稿できました。
GRC

なぜ複雑な文字列解析を行うのですか?pastebin.com/WyXevnxb
blutorange

1
ところで、この質問の答えであるIOCCCエントリを見まし
スナック14年

2
「4と20」のようなものはどうですか?
ふわふわ14年

回答:


93

Applescript

Cupertino / Mountain Viewの人々を混乱させるような、馬鹿げたハックマッシュアップですが、創造的な馬鹿げた、ハックマッシュアップだと思います

set myNumber to text returned of (display dialog ¬
    "Enter number as text:" buttons {"Continue…"} ¬
    default answer "" default button 1)
tell application "Google Chrome"
    activate
    open location "https://www.google.com"
end tell
delay 5
say "ok google. " & myNumber
delay 2
tell application "System Events"
    tell application process "Google Chrome"
        set fullURL to value of text field 1 of toolbar 1 of window 1
    end tell
end tell
set AppleScript's text item delimiters to "="
display alert item 2 of text items of fullURL

OSXテキスト読み上げを使用してテキスト番号を読み上げ、Googleオーディオ検索を使用してそれを聞き取り、整数に変換します。

必要条件

  • OSX
  • グーグルクローム
  • Googleアカウントで音声認識が有効になっています
  • ボリュームが妥当なレベルになった

遅延時間は、クロムのロード時間とGoogleのルックアップ時間に応じて調整する必要がある場合があります。

入力例:

ここに画像の説明を入力してください

出力例:

ここに画像の説明を入力してください


13
それが少し創造的かもしれないと思う ...;)
アブラハム14年

5
笑、これはクールです
ちょうど半分14年

2
たぶん創造的すぎる
チージー14年

1週間後、あなたの答えは明らかに74票で首位に立っているので、それはあなたが勝つことを意味すると思います。ちなみに、このコードを使用してもかまいませんか?これは、私が現在取り組んでいる多くの現実世界のプロジェクトに本当に役立つでしょう!;)
アブラハム14

3
@アブラハムありがとう!これを本番コードで使用することについて冗談を言っていますよね?
デジタル外傷14

34

Bash、93 64 55文字*

bsd-gamesほとんどのLinuxオペレーティングシステムで使用できる素晴らしいパッケージには、と呼ばれる小さなコマンドライングッズがありnumberます。数字を英語のテキストに変換します。つまり、この質問の正反対を行います。それは本当に正反対ですnumber。問題のすべてのルールの後にが続きます。偶然になるにはあまりにも良いです。

$ number 42
forty-two.

もちろん、number質問には答えません。私たちは逆にそれを望んでいます。しばらく考えて、文字列解析などを試してみたところ、number999.999のすべての数字を呼び出して、入力に一致するものがあるかどうかを確認できることに気付きました。その場合、一致する最初の行には、探している行番号の2倍があります(numberすべての番号の後にドットの行を印刷します)。そのような単純な。したがって、これ以上苦労することなく、ここに私のエントリの完全なコードを示します。

seq 0 999999|number -l|awk "/$1/{print (NR-1)/2;exit}"

短絡することさえあるので、「2」の変換は非常に高速であり、通常、さらに大きい数値は私のボックスで1秒未満でデコードされます。実行例を次に示します。

wn@box /tmp> bash unnumber.sh "zero"
0
wn@box /tmp> bash unnumber.sh "fifteen"
15
wn@box /tmp> bash unnumber.sh "ninety" 
90
wn@box /tmp> bash unnumber.sh "seven hundred four"
704
wn@box /tmp> bash unnumber.sh "sixty-nine thousand four hundred eleven"
69411
wn@box /tmp> bash unnumber.sh "five hundred twenty thousand two"    
520002

もちろん、numberこれを機能させるにはインストールが必要です。


*:はい、私は知っています、これはcode-golf挑戦ではありませんが、短さが私のエントリーの唯一の識別できる品質なので、... :)


8
+1。私にとって、number逆に使用することは、この答えについて最も創造的なことです。ゴルフも良いです:)
デジタル外傷14年

1
これは実際には非常に創造的です!私はそれが好きです!
sokie 14年

13

Javascript

(function parse(input) {
  var pat = "ze/on/tw/th.?r/fo/fi/ix/se/ei/ni/ten/ele".split("/");
  var num = "", last = 0, token = input.replace(/-/g, " ").split(" ");
  for(var i in token) {
    var t = token[i];
    for(var p in pat) if(t.match(RegExp(pat[p])) !== null) num += "+" + p;
    if(t.indexOf("een") >= 0) num += "+10";
    if(t.indexOf("lve") >= 0) num += "+10";
    if(t.indexOf("ty") >= 0) num += "*10";
    if(t.indexOf("dr") >= 0) { last = 100; num += "*100"; }
    if(t.indexOf("us") >= 0) {
      if(last < 1000) num = "(" + num + ")"; last = 0;
      num += "*1000";
    }
  }
  alert(eval(num));
})(prompt());

好きですかeval()

ブラウザのコンソールでこのスクリプトを実行します。

編集:フィードバックをありがとう。バグが修正されました(再び)。


本当に素敵なコード^^
zsitro 14年

2
あなたが「116」のようなものを入力すると、それは126をあげる
scrblnrd3

このプログラムは、twelve戻ったときに始まるいくつかの番号で失敗します23
アブラハム14年

失敗し"twenty"ます。
200_success

seven thousand three hundred thirty five私を与える10335
赤ちゃん14年

7

Python

ボールを転がすだけです。

import re
table = {'zero':0,'one':1,'two':2,'three':3,'four':4,'five':5,'six':6,'seven':7,'eight':8,'nine':9,
         'ten':10,'eleven':11,'twelve':12,'thirteen':13,'fourteen':14,'fifteen':15,'sixteen':16,'seventeen':17,'eighteen':18,'nineteen':19,
         'twenty':20,'thirty':30,'forty':40,'fifty':50,'sixty':60,'ninety':90}
modifier = {'hundred':100,'thousand':1000}

while True:
    text = raw_input()
    result = 0
    tmp = 0
    last_multiplier = 1
    for word in re.split('[- ]', text):
        multiplier = modifier.get(word, 1)
        if multiplier > last_multiplier:
            result = (result+tmp)*multiplier
            tmp = 0
        else:
            tmp *= multiplier
        if multiplier != 1:
            last_multiplier = multiplier
        tmp += table.get(word,0)
    print result+tmp

5

Perl + CPAN

車輪が既に完成しているのに、なぜ車輪を再発明するのですか?

use feature 'say';
use Lingua::EN::Words2Nums;

say words2nums $_ while <>;

このプログラムは、標準入力(またはコマンドライン引数として指定された1つ以上のファイル)から1行に1つずつ英語の文字列を読み取り、対応する数値を標準出力に出力します。

チャレンジからのサンプル入力とbsd-games numberユーティリティを使用してテキストに変換された0から999999の数字で構成される網羅的なテストスイートの両方を使用してこのコードをテストしました(ありがとう、Wander Nauta !)、それは正しく解析しますそれらのすべて。ボーナスとして、minus seven(-7)、four and twenty(24)、four score and seven(87)、one gross(144)、a baker's dozen(13)、eleventy-one(111)、およびgoogol(10 100)などの入力も理解します。

注: Perlインタープリター自体に加えて、このプログラムにはCPANモジュールLingua :: EN :: Words2Numsも必要です。CPAN モジュールのインストール手順を次に示します。Debian / Ubuntu Linuxユーザーは、APTパッケージマネージャーを介してこのモジュールをインストールすることもできますliblingua-en-words2nums-perlとして)


4

Python

有効性チェックを使用した一般的な再帰的ソリューション。必要な数値の範囲を単純化することもできますが、ここでは誇示することをお勧めします。

terms = 'zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen'.split()
tee  = 'twenty thirty forty fifty sixty seventy eighty ninety'.split()
for t in tee:
    terms.append(t)
    for s in terms[1:10]:
        terms.append(t+'-'+s)

terms = dict(zip(terms, range(100)))

modifiers = [('hundred', 100), ('thousand', 1000), ('million', 10**6), ('billion', 10**9)]

def read_num(words):
    if len(words) == 0: return 0
    elif len(words) == 1:
        if words[0] in terms:
            return terms[words[0]]
        else:
            raise ValueError(words[0]+' is not a valid english number.')
    else:
        for word, value in reversed(modifiers):
            if word in words:
                i = words.index(word)
                return read_num(words[:i])*value+read_num(words[i+1:])

    raise ValueError(' '.join(words)+' is not a valid english number.')

while True:
    try:
        print(read_num(input().split()))
    except ValueError as e:
        print(e)

2

VBScript 474

これはかなり日常的な答えです...残念ながら、@ Snackがほとんど同じプロセスを投稿しましたが、私の前に。

i=split(REPLACE(REPLACE(inputbox(""),"lve","een"),"tho","k"))
o=split("z on tw th fo fi si se ei ni ten ele")
y=split("red *100) k )*1000 ty *10) een +10)")
z=""
p=0
for t=0 to UBOUND(i)
    s=split(i(t),"-")
    u=ubound(s)
    r=s(0)
    for x=0 to UBOUND(o)    
        IF INSTR(r,o(x)) THEN
            z=z+"+"+CSTR(x)
        END IF
        IF u Then
            IF INSTR(s(1),o(x)) THEN
                z=z+CSTR(x)
            END IF
        END IF
    next
    for m=0 to UBOUND(y)
        IF INSTR(r,y(m))AND u=0 THEN
            z=z+y(m+1)
            p=p+1
        END IF
    next
next
Execute("MSGBOX "+String(p,"(")+z)

1

ハスケル

私が推測する他の再帰的ソリューションと同様ですが、私はそれをきれいにするのに時間をかけました。

すべての説明を含む完全なソースは次のとおりです。http//ideone.com/fc8zcB

-- Define a type for a parser from a list of tokens to the value they represent.
type NParse = [Token] -> Int    

-- Map of literal tokens (0-9, 11-19 and tens) to their names.
literals = [
        ("zero", 0), ("one", 1), ("two", 2), ("three", 3), ("four", 4), ("five", 5), ("six", 6), ("seven", 7), ("eight", 8), ("nine", 9),
        ("eleven", 11), ("twelve", 12), ("thirteen", 13), ("fourteen", 14), ("fifteen", 15), ("sixteen", 16), ("seventeen", 17), ("eighteen", 18), ("nineteen", 19),
        ("ten", 10), ("twenty", 20), ("thirty", 30), ("fourty", 40), ("fifty", 50), ("sixty", 60), ("seventy", 70), ("eighty", 80), ("ninety", 90)
    ]

-- Splits the input string into tokens.
-- We do one special transformation: replace dshes by a new token. Such that "fifty-three" becomes "fifty tens three". 
prepare :: String -> [Token]

-- Let's do the easy stuff and just parse literals first. We just have to look them up in the literals map.
-- This is our base parser.
parseL :: NParse
parseL [tok] = case lookup tok literals of 
    Just x -> x

-- We're going to exploit the fact that the input strings have a tree-like structure like so
--                    thousand
--          hundred             hundred
--      ten       ten       ten         ten
--    lit   lit lit  lit   lit  lit    lit  lit
-- And recursively parse that tree until we only have literal values.
--
-- When parsing the tree
--       thousand
--     h1       h2
-- The resulting value is 1000 * h1 + h2.
-- And this works similarly for all levels of the tree.
-- So instead of writing specific parsers for all levels, let's just write a generic one :

{- genParse :: 
    NParse      : the sub parser
    -> Int      : the left part multiplier
    -> Token    : the boundary token 
    -> NParse   : returns a new parser -}   
genParse :: NParse -> Int -> Token -> NParse    
genParse delegate mul tok = newParser where
    newParser [] = 0
    newParser str = case splitAround str tok of
        -- Split around the boundary token, sub-parse the left and right parts, and combine them
        (l,r) -> (delegate l) * mul + (delegate r)  

-- And so here's the result: 
parseNumber :: String -> Int
parseNumber = parseM . prepare
    where   -- Here are all intermediary parsers for each level
    parseT = genParse   parseL  1       "tens"       -- multiplier is irregular, because the fifty in fifty-three is already multiplied by 10
    parseH = genParse   parseT  100     "hundred"
    parseK = genParse   parseH  1000    "thousand"
    parseM = genParse   parseK  1000000 "million" -- For fun :D

test = (parseNumber "five hundred twenty-three thousand six hundred twelve million two thousand one") == 523612002001

0

Common Lisp、94

(write(cdr(assoc(read-line)(loop for i to 999999 collect(cons(format()"~r"i)i)):test #'equalp)))

数値からテキストへの変換はCLに組み込まれていますが、その逆ではありません。数値の逆マッピングを作成し、その入力をチェックします。

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.