交互の辺から数式を解く


9

式の交互の側の要素を使用して数式を解くプログラムを作成します。それが行われる方法は、左から右に読むのではなく、最初の文字、最後、2番目、最後から2番目の文字を読み取ることです。これにより、評価して出力する必要がある新しい式が得られます。

a*b/c+d-e
135798642  <-- Order you read the expression in
ae*-bd/+c  <-- Order of operation. 

例:

1*3/2+4-5
15*-34/+2 = -255

式が「動作しない」場合は、動作1させるために必要な位置にaを挿入する必要があります。

いくつかの例はおそらくそれをよりよく説明します:

Input: 1+1+1+1+1
Result: 23     // Because 1+1+1+1+1 -> 11++11++1 -> 23

Input: 1+2-3+12-5
Result: -19    // Because 1+2-3+12-5 -> 15+-22-13+ -> 15+-22-13+1 -> -19
               //                                 |
               //                                 Not valid expression

Input: 2*2*2*2*2
Result: 968    // Because 2*2*2*2*2 -> 22**22**2 -> 22*1*22*1*2 -> 968
               //                        ||  ||
               //                        Not valid, 1 must be inserted

Input: 17/2
Output: 127    // Because 17/2 = 127/ -> 127/1 -> 127

サポートする必要のある演算子は+ - * /です。括弧はありません。通常の数学のルールと「構文」が使用されているため、たとえば**指数を意味するものではありません。(つまり、C ++ではなくMATLABスタイル)a++++1と同等a+1です。

疑問がある場合、有効な操作は次のとおりです。

-a
+a
a++b
a+-b
a*-b
a*+b
a*++b
a/b
a/-b
a/+b
-a/--b

ただし、以下のすべては無効です。それらを何に置き換える必要があるかが示されています。

a+      | a+1
a-      | a-1
a++++   | a++++1   (This is equivalent to a+1)
a*+++   | a*+++1   (This is equivalent to a*1)
a**b    | a*1*b
a*/b    | a*1/b
a/*b    | a/1*b
a*      | a*1
*a      | 1*a
***a    | 1*1*1*a

ルール:

  • コードは関数または完全なプログラムにすることができます
  • 入力はSTDINまたは関数の引数です
  • 入力は、引用符なしの''""有効な数式またはである必要があります。
  • 出力は、整数、小数、または簡略化された小数として、新しい式に対する答えになります。
  • 小数点以下少なくとも3桁がサポートされている必要があります。そう1/3 = 0.333じゃない0.330.333333333受け入れられます。
  • ans = ... 受け入れられます。
  • 先頭と末尾の改行とスペースを使用できます。
  • 入力は整数のみになります
  • ゼロによる除算は、エラー、NaN、Infなどを引き起こす可能性があります。数値の出力は受け入れられません。

いつものように、バイト単位の最短コードが優先されます。勝者は、チャレンジが投稿された日から1週間後に選ばれます。後で投稿された回答は、現在のリーダーより短い場合でも勝つ可能性があります。


入力文字列の最大長または入力された演算子/整数の数はありますか?また、私はまでの数学をサポートする2^64必要がありますか?それを超えた場合、エラーまたはラップする必要がありますか?

「出力は答え[ 。。。] 単純化された小数部である必要があります...」ですから0/0、式がゼロによる整数除算またはモジュロに評価された場合、単に返すことができますか?

2
答えがゼロによる除算を与える場合、それx/0は有効な出力です。不正解を出力しない限り問題ありません。エラーと「数字ではない」は定義により正しい、無限大は「十分に正しい」
Stewie Griffin

念のため-evalを使用できますよね?
orlp

はい、評価は大丈夫です。
Stewie Griffin

回答:


3

Perl、108 100バイト

$_="";while(@F){$_.=shift@F;$_.=pop@F}s@(\*|/)\1+@\1@g;s@^[*/]@1$&@;s@\D$@$&1@;s@\D@$&@g;$_=eval

コードは96バイトで、コマンドライン引数-pF//に4を加えたものです。

  • -pインサートwhile (<>) { .. } continue { print }
  • -F//入力を分割してに入れ@Fます。

入力には末尾の改行を含めないでください。そのため、 /bin/echo -n 'formula' | perl ...

より少ないゴルフ:

$_='';              # reset $_
while(@F) {         # reorder input
   $_.=shift @F;    # take first element off of @_
   $_.=pop @F       # idem for last; if @F is empty, undef is appended
}

s@(\*|/)\1+@\1@g;   # replace 2 or more '*' or '/' with just one: *1 and /1 = nop
s@^[*/]@1$&@;       # if expression starts with * or / prepend a 1
s@\D$@$&1@;         # if expression doesn't end with a number, append 1
s@\D@$& @g;         # eval doesn't like '++1': add spaces after operators
$_ = eval           # set $_ to 3v1l, so the `-p` will print the new value

テスト中

上記をと呼ばれるファイルに入れ、114.pl以下のテストスクリプトをその隣のファイルに入れます。

%test = (
    '1+1+1+1+1' =>   23,
    '1*3/2+4-5' => -255,
    '1+2-3+12-5'=>  -19,
    '2*2*2*2*2' =>  968,
    '17/2'      =>  127,
    '--/-1-2-'  =>   -2,
    '**2*'      =>    2,
    '++1++'     =>    1,
    '/2/'       =>  0.5,
    '10/'       =>   '',
);

printf "%-20s -> %5s: %5s\n", $_, $test{$_}, `/bin/echo -n '$_' | perl -pF// 114.pl`
for keys %test;

それを実行すると出力:

++1++                ->     1:     1
**2*                 ->     2:     2
17/2                 ->   127:   127
10/                  ->      :
1+1+1+1+1            ->    23:    23
1*3/2+4-5            ->  -255:  -255
2*2*2*2*2            ->   968:   968
1+2-3+12-5           ->   -19:   -19
--/-1-2-             ->    -2:    -2
/2/                  ->   0.5:   0.5

1/0ゼロ除算エラーが発生することに注意してください。eval出力undefは空の文字列で表されます。


さらにいくつかのテストケース!私はそれらを使用します
edc65

3

JavaScript ES6、105 106

編集保存1バイトthx @ケニー

t=>eval("for(t=[...t],p=o='';c=t.reverse().pop();p=c)o+=p<'0'?(c=='/'|c<'+'||' ')+c:c;eval(p<'0'?o+1:o)")

// Less golfed
t=>{
  for(t = [...t], p = o = '';
      c = t.reverse().pop();
      p = c)
    o += p<'0' 
     ? (c=='/' | c=='*' || ' ')+c  // '1' or ' '
     : c;
  return eval(p<'0' ? o+1 : o)
}

テストスニペット

f=t=>eval("for(t=[...t],p=o='';c=t.reverse().pop();p=c)o+=p<'0'?(c=='/'|c<'+'||' ')+c:c;eval(p<'0'?o+1:o)")

console.log=x=>O.innerHTML+=x+'\n'

function test() { console.log(I.value + ' -> '+f(I.value)) }

;['1+1+1+1+1', '1*3/2+4-5', '1+2-3+12-5', '2*2*2*2*2',
  '17/2', '--/-1-2-', '**2*', '++1++', '/2/', '10/' ]
.forEach(t=>console.log(t+' -> '+f(t)))
Your test <input id=I><button onclick="test()">-></button>
<pre id=O></pre>


バイトを節約しました:p < '0' ? ( c=='/' | c<'+' || ' ' )+c : c ;
ケニー
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.