不適切な分数に対する混合数

この課題では、混合数値を不適切な分数に変換します。

不適切な分数はより少ない数を使用するため、コードはできるだけ短くする必要があります。

例

4 1/2
9/2

12 2/4
50/4

0 0/2
0/2

11 23/44
507/44

仕様

入力の分母が0になることはないと想定できます。入力は常にx y/z、x、y、zが任意の非負整数である形式になります。出力を単純化する必要はありません。

これはコードゴルフなので、バイト単位の最短コードが優先されます。

Japt、10バイト

Woohoo、現在CJamを破っています！

U*W+V+'/+W

オンラインでお試しください！

使い方

       // Implicit: [U,V,W] = eval(input). This automatically discards the slash.
U*W+V  // Calculate the new numerator: (whole part * denominator) + numerator.
+'/+W  // Add the slash and the denominator.
       // Implicit: output last expression

LabVIEW、29のLabVIEWプリミティブ

CJam、16 15 14バイト

l'/']er~:Xb'/X

または

l'/']er~_@b'/@

ここでテストしてください。

説明

l      e# Read input.
'/']er e# Replace the "/" with a "]".
~      e# Evaluate the string as code. If the input was "i n/d", this pushes [i n] d.
:X     e# Store the denominator in X.
b      e# Treat [i n] as base-d digits. This effectively computes i*d + n.
'/     e# Push a slash.
X      e# Push the denominator.

もう1つのバージョンでは、スタックシフトをもう少し使用することで、変数の使用を避けています。

Mathematica、58バイト

ToExpression@StringReplace[#," "->"+"]~ToString~InputForm&

これは、単純化された結果を返します。文字列の代わりに有理数を出力するのが適切な場合、19バイトを節約できます。

ToExpression@StringReplace[#," "->"+"]&

PowerShell、47 44 42バイト

_{取り消し線44はまだ通常の44です;（}

$l,$n,$d=$args-split'\D';"$(+$l*$d+$n)/$d"

regexを使用して数バイトをゴルフしました-split。正規表現を交換して、TessellatingHecklerにさらに感謝しました。

$args-split'\D'私たちの入力引数を取り、数字以外の文字に分割されます。ここでは、2つの分割を実行します。1つは空白で、もう1つは/キャラクターでです。結果は、同時割り当てを使用して3つの変数に保存されます。次に、文字列出力を（$left数$dx分母+ $n分子）として、コードブロック、/スラッシュ、そして$d再び分母として実行します。

Java、10フィートレーザーポール 1.03、79 + 25（インポート）= 104バイト

が必要です import sj224.tflp.math.*;

String m(String[]a){return ""+new BigRational(a[0]).add(new BigRational(a[1]));}

これはほぼ確実に1.04でも動作しますが、ビルドパスでJavaプロジェクトが1.03でセットアップされているため、1.03でしかテストしていません。

JavaScript（ES6）、44 41バイト

m=>([x,y,z]=m.match(/\d+/g),+y+x*z+"/"+z)

@ETHproductionsのおかげで3バイト節約できました！

説明

とても簡単です。

m=>
  ([x,y,z]=m.match(/\d+/g), // x, y and z = numbers from input
    +y+x*z                  // numerator
    +"/"+z                  // denominator
  )

テスト

テストは、ほとんどのブラウザで機能するように割り当てを破壊することなく行われます。

var solution = m=>+(p=m.match(/\d+/g))[1]+p[0]*p[2]+"/"+p[2]

<input type="text" id="input" value="11 23/44" />
<button onclick="result.textContent=solution(input.value)">Go</button>
<pre id="result"></pre>

ジュリア、58 50バイト

s->eval(parse((r=replace)(r(s," ","+"),"/","//")))

これは、文字列を受け取り、Rationalタイプオブジェクトを返す匿名関数です。呼び出すには、名前を付けf=s->...ます。

入力をわずかに操作して、合理的と評価される式にすることができるという事実を利用できます。特に、整数と有理数は有理数であり、有理数は二重スラッシュで示されます。だから私たちが4 1/2になったら4+1//2、評価した結果になります9//2。

ゴルフをしていない：

function f(s::AbstractString)
    # Replace the space in the input with a plus
    r1 = replace(s, " ", "+")

    # Replace the / with //
    r2 = replace(r1, "/", "//")

    # Parse the resulting expression as a rational
    return eval(parse(r2))
end

Smalltalk – 76文字

入力は、Smalltalkの配列区切り文字と固有の小数表現に正確に一致します。それがそれほど冗長ではなかったら、それは真剣な候補だったかもしれません！

Compiler evaluate:'|p|p:=0.#(',FileStream stdin nextLine,')do:[:q|p:=p+q].p'

単純化は必須ではなく、Smalltalkが自動的に行います。

Bash + coreutils、28

dc<<<${@/\// }sarla*+n47Plap

$@すべてのコマンドラインパラメータに${@/\// }展開するため、すべてのコマンドラインパラメータに展開され、に/置き換えられます。これはdcのスタックに置かれます。残りは単純なスタック操作と算術です。

Haskell、74 67 63バイト

r=read
f x|(a,(c,s:d):_)<-lex<$>lex x!!0=show(r a*r d+r c)++s:d

オンラインでお試しください！

説明

以下のようH.PWizを考え出し我々はそれの部分に文字列を分割するためにここにHaskellのレクサーを使用することができます。（以前私が使っていたspan(>'/')）とLaikoniは指摘している<$>だけのような作品mapSndからData.Tuple。

パターンガードはコードを使いたい3つの数字に分解しますlex。 lexhaskellのレクサーを呼び出して、最初のトークンを打ち切ります。文字列を解析する可能な方法を表す各要素のリストを返します。これらの要素はタプルで、最初の要素は最初のトークンで、残りの文字列は2番目の要素です。入力形式は非常に規則的であるため、解析は1つだけになるため、常に最初の解析を使用できます。最初に行うことはlex、入力で呼び出すことです

lex x

次に、リストから展開して2タプルを作成します

lex x!!0

最初のトークンは、混合分数の全体であり、分数の前にスペースを追加して解析します。次にタプルが存在Functorsするため(<$>)、エイリアスを使用してタプルの2番目の要素fmapに適用できますlex。

lex<$>lex x!!0

これはスペースを食いつぶし、次のトークンである分数の分子を区切ります。次に、を使用してこれをパターンマッチにバインドし<-ます。私たちのパターンは

(a,(c,s:d):_)

a最初のトークンである分数の全体を取得します。:_は、2番目のから生じたリストのラップを解除しますlex。 c字句解析した2番目のトークン、つまり分数の分子を取得します。残っているものはすべてバインドさs:dれ、最初の文字に分割されます。/で、残りは分母になります。

入力を解析したので、実際の計算を行います。

show(r a*r d+r c)++s:d

r先ほどバインドした読み取り関数はどこにありますか。

lex失敗した場合は空のリストを返し、成功した場合は空ではないことに注意することが重要です。なぜこれがMaybe私にはわからないのですか？

Javascript ES6、62バイト

p=prompt;b=p(a=+p()).split`/`;alert((+b[1]*a+ +b[0])+"/"+b[1])

Perl、82 61 38バイト

#!perl -paF/\D/
$_=$F[0]*$F[2]+$F[1]."/$F[2]"

これはおそらくもっとゴルフできるでしょう。

変更点

• で正規表現を使用して16バイトを節約しsplit、の<>代わりにを使用して5 バイトを節約しました<STDIN>。
• デニスのおかげでさらに16バイト節約できました。

Mathematica、51バイト

Interpreter["ComputedNumber"]@#~ToString~InputForm&

興味深いことに、Mathematicaはこれをビルトインでサポートしています。数値の出力が許可されている場合、必要なのは28バイトだけです。

Interpreter@"ComputedNumber"

Java（登録商標）、159の 148 142 120 110バイト

String m(String[]a){Long b=new Long(a[0]),d=new Long((a=a[1].split("/"))[1]);return b*d+new Long(a[0])+"/"+d;}

FlagAsSpamのおかげで大量のバイトを節約できました。

ARBLE、13バイト

a*c+b.."/"..c

オンラインでお試しください！

05AB1E、17 15 バイト

#`'/¡R`Š©*+®'/ý

@MagicOctopusUrnのおかげで-2バイト。

オンラインそれを試してみたり、すべてのテストケースを確認してください。

説明：

#`         # Split input by spaces and push all items to the stack
           #  i.e. "4 1/2" → "4" and "1/2"
  '/¡      # Push the second item by "/"
           #  i.e. "1/2" → [1,2]
     R`    # Revert the list, and also push all items to the stack
           #  i.e. [1,2] → [2,1] → 2 and 1
Š          # Triple-swap the stack
           #  [4,2,1] → [1,4,2]
 ©         # Store the 2 in the register
  *        # Multiple the top two items
           #  4 and 2 → 8
   +       # Add the top two items
           #  1 and 8 → 9
®          # Push the 2 from the register to the stack again
 '/ý       # Join the two items by "/"
           #  9 and 2 → "9/2"

柔軟な入力および出力フォーマットでは、整数を順序どおりに取り、x,z,y分母と分母を別々の行に出力すると、4バイトになります（これが、チャレンジに解析タグを追加した理由です。）：

*+²»

オンラインそれを試してみたり、すべてのテストケースを確認してください。

説明：

*        # Multiply the first two inputs (x and z)
         #  i.e. 4 and 2 → 8
 +       # Add the third input (y)
         #  i.e. 8 and 1 → 9
  ²      # Take the second input again (z)
   »     # Join the stack by newlines and implicitly print it

Pythonの3、78の、76バイト

def f(s):a,b=s.split();b,c=b.split('/');return'%s/'%(int(a)*int(c)+int(b))+c

オンラインでお試しください！

スタックス、1バイト

+

実行してデバッグします（ただし、デバッグすることはあまりありません）

チャレンジ仕様には、「出力を単純化する必要はありません」とあります。単純化できると仮定すると、これを行うためのstaxに組み込みの命令があります。入力は、整数と有理数として暗黙的に解釈されます。+命令は、有理数に両方広がっ追加し、簡素化します。結果は暗黙的に出力されます。

-la -Mfeature = sayを使用したPerl 5、32 バイト 25バイト

m|/|;say$_*$'+$F[1],"/$'"

オンラインでお試しください！

（Dom Hastingsのおかげで7バイト）

$_は、数値コンテキスト（ここのような）x y/zの値を評価するinput全体です。ここでは後に来るものは何でも含まれている正規表現試合後の文字列は、ある-そう、。値を取得するには、入力をスペースで分割して配列に配置するフラグを使用します。したがって、ここで、これは、数値コンテキストで評価することを意味します（これは、の最初の連続した数字のシーケンスであるため）。x*$'/zy-a@F@F = ("x", "y/z")$F[1]="y/z"yy$F[1]

Lua、123バイト

m=io.read()z=string x=z.find c=z.sub b=tonumber s=x(m," ")f=x(m,"/")d=c(m,f+1)print(b(c(m,1,s))*b(d)+b(c(m,s,f-1)).."/"..d)

天の川1.6.0、31バイト

'" "\="/"\=>;<A;A;:>*;A+"/"+<+!

思ったよりずっと長くなってしまいました。

説明

'" "\="/"\=>;<A;A;:>*;A+"/"+<+!

'                                # read input from the command line
 " "  "/"               "/"      # push a string to the stack
    \    \                       # split the STOS at the TOS
     =    =                      # dump the TOS to the stack
           >       >             # rotate the stack rightward
            ;  ; ;   ;           # swap the TOS and STOS
             <              <    # rotate the stack leftward
              A A     A          # push the integer representation of the TOS
                  :              # duplicate the TOS
                    *            # multiply the STOS by the TOS
                       +   + +   # add the TOS and STOS
                              !  # output the TOS

使用法

./mw <path-to-code> -i <input>

Python 2.7、88バイト

a = input（）。split（ '/'）; print int（a [-1]）* int（a [0] .split（）[0]）+ int（a [0] .split（）[1 ]）、 '/'、a [1]

オンラインでお試しください！

入力は引用符で囲む必要があります。

おそらく最高ではない...

C、64

main(i,d,n){scanf("%d %d/%d",&i,&n,&d);printf("%d/%d",i*d+n,d);}

STDINから入力を読み取ります。かなり自明だと思います。

チェック、120バイト

>]+>:>32r#v
#d@0+\)  ##:>4;:>5'=:>48-\R-?
dd)R>32-#v
#>15-#v  #?
47r@>@   #v
#dd#v #?
r@>@     #v
    #\d@\: @*@+pd"/"op

オンラインでお試しください！

解析ループ（2行目）を再利用しないことで、いくつかのバイトを節約できる場合があります。そうすれば、ループをより具体的にすることができ、条件の膨大な混乱を回避でき、レジスタを他のことに使用できます。

ルビー、23バイト

->x{eval x.split*?++?r}

オンラインでお試しください！

C＃、112バイト

s=>{string[]a=s.Split(),b=a[1].Split('/');int o=int.Parse(b[1]);return int.Parse(a[0])*o+int.Parse(b[0])+"/"+o;}

フル/フォーマット済みバージョン：

namespace System.Linq
{
    class P
    {
        static void Main()
        {
            Func<string, string> f = s =>
            {
                string[] a = s.Split(), b = a[1].Split('/');
                int o = int.Parse(b[1]);
                return int.Parse(a[0]) * o + int.Parse(b[0]) + "/" + o;
            };

            Console.WriteLine(f("4 1/2"));
            Console.WriteLine(f("12 2/4"));
            Console.WriteLine(f("0 0/2"));
            Console.WriteLine(f("11 23/44"));

            Console.ReadLine();
        }
    }
}

APL（Dyalog Unicode）、31バイト

∊∘(⍕¨⊃,⍨'/',⍨⊃⊥1∘↓)¯1⌽#⍎¨∊∘⎕D⊆⊢

オンラインでお試しください！

⊃⊥1∘↓トリックをくれたngnに感謝

PHP、65バイト

オンラインで試す

コード

<?=(($a=preg_split("/[\s,\/]/",$argv))[0]*$a[2]+$a[1])."/".$a[2];

説明

$a=preg_split("/[\s,\/]/",$argv); # Split the string on "/" and " "
(($a)[0]*$a[2]+$a[1]) # as always denominator*whole number + numerator 
."/"                  # echo an slash
.$a[2];               # echo de denominator

Java 10、87バイト

からStringまでのラムダString。

s->{var p=s.split(" |/");return new Long(p[0])*new Long(p[2])+new Long(p[1])+"/"+p[2];}

オンラインで試す