ตัวเลขผสมกับเศษส่วนที่ไม่เหมาะสม

ในการท้าทายนี้คุณจะแปลงตัวเลขผสมให้เป็นเศษส่วนที่ไม่เหมาะสม

เนื่องจากเศษส่วนที่ไม่เหมาะสมใช้จำนวนน้อยรหัสของคุณจะต้องสั้นที่สุด

ตัวอย่าง

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 Primitives

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.

รุ่นอื่นหลีกเลี่ยงการใช้ตัวแปรโดยใช้การเลื่อนสแต็กอีกเล็กน้อย

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"

แข็งแรงเล่นกอล์ฟไบต์คู่โดยใช้ -splitregex Golfed อีกสองสามขอบคุณ TessellatingHecklerโดยการแลกเปลี่ยน regex

การ$args-split'\D'โต้แย้งของเรานำเข้าและแยกตัวอักษรที่ไม่ใช่ตัวเลข ที่นี่มันทำการแยกสองแบบอันหนึ่งบนช่องว่างอีกช่องหนึ่งบน/อักขระ ผลลัพธ์จะถูกเก็บไว้ในตัวแปรสามตัวโดยใช้การกำหนดพร้อมกัน จากนั้นเราจะกำหนดเอาท์พุทสตริงเป็น ( $lหมายเลข eft $dคูณตัว$nดำเนินการบวกตัวดำเนินการ) ดำเนินการเป็นบล็อคโค้ด/สแลชจากนั้นจึงกำหนด$dอีกครั้ง

Java พร้อมเสาเลเซอร์สิบฟุต 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 เช่นกัน แต่จนถึงตอนนี้ฉันเพิ่งทดสอบด้วย 1.03 เท่านั้นเพราะฉันได้ตั้งค่าโปรเจ็กต์ java ด้วย 1.03 ในพา ธ บิลด์แล้ว

JavaScript (ES6), 44 41 ไบต์

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

บันทึก 3 ไบต์ด้วย@ETHproductions !

คำอธิบาย

ง่ายมาก.

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>

Julia 58 58ไบต์

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

นี่คือฟังก์ชันที่ไม่ระบุชื่อที่ยอมรับสตริงและส่งคืนRationalวัตถุชนิด หากต้องการเรียกใช้ให้ตั้งชื่อเช่นf=s->...เรียกว่าให้มันชื่อเช่น

เราสามารถใช้ประโยชน์จากข้อเท็จจริงที่ว่าข้อมูลนั้นสามารถถูกจัดการได้เล็กน้อยเพื่อให้เป็นนิพจน์ที่ประเมินว่ามีเหตุผล โดยเฉพาะอย่างยิ่งจำนวนเต็มบวกเหตุผลคือเหตุผลและปันส่วนจะแสดงด้วยเครื่องหมายทับสองครั้ง ดังนั้นถ้าเราเปิด4 1/2เข้าไปในผลการประเมินจะได้รับ4+1//29//2

Ungolfed:

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 ถ้ามันไม่ได้ verbose มันอาจเป็นคู่แข่งที่ร้ายแรง!

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คิดออกเราสามารถใช้ lexer ของ Haskell ที่นี่เพื่อแยกสตริงออกเป็นส่วนต่างๆ (ก่อนหน้านี้ผมใช้span(>'/')) และ Laikoni ชี้ให้เห็นว่า<$>การทำงานเช่นเดียวmapSndจากData.Tupleจาก

lexยามรูปแบบการแบ่งรหัสของเราในสามตัวเลขที่เราต้องการใช้ lexเรียกใช้ lexer ของ haskell เพื่อแยกโทเค็นแรก มันจะส่งกลับรายการที่มีองค์ประกอบที่เป็นวิธีที่เป็นไปได้ในการแยกสตริง องค์ประกอบเหล่านี้เป็นสิ่งอันดับที่องค์ประกอบแรกเป็นโทเค็นแรกและส่วนที่เหลือของสตริงเป็นองค์ประกอบที่สอง ตอนนี้เนื่องจากรูปแบบอินพุตเป็นปกติมากเราจะมีการแยกวิเคราะห์เพียงหนึ่งครั้งเท่านั้นดังนั้นเราจึงสามารถใช้รูปแบบแรกได้เสมอ สิ่งแรกที่เราทำคือเรียกใช้lexอินพุต

lex x

จากนั้นเราก็แกะมันออกจากรายการซึ่งให้ 2-tuple

lex x!!0

โทเค็นแรกจะเป็นส่วนทั้งหมดของเศษส่วนผสมที่ออกจากส่วนที่จัดทำขึ้นโดยเว้นวรรคเพื่อแยกวิเคราะห์ จากนั้นเนื่องจากสิ่งอันดับFunctorsเราสามารถใช้(<$>)นามแฝงสำหรับfmapการสมัครlexไปกับองค์ประกอบที่สองของสิ่งอันดับ

lex<$>lex x!!0

นี่กินผ่านอวกาศและแยกโทเค็นถัดไปเป็นตัวเศษของเศษส่วนของเรา <-ตอนนี้เราผูกนี้ให้ตรงกับรูปแบบการใช้ รูปแบบของเราคือ

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

aหยิบเศษส่วนทั้งหมดเป็นโทเค็นแรกของเรา :_unwraps lexรายการที่เกิดจากการที่สองของเรา cจับโทเค็นที่สองที่เราอ่านอยู่นั่นคือตัวเศษของเศษส่วน ทุกสิ่งที่ยังคงมีอยู่จะถูก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 ไบต์โดยใช้ regex splitและ 5 โดยใช้<>แทน<STDIN>.
• บันทึกอีก 16 ไบต์ด้วย Dennis

Mathematica, 51 bytes

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

Interestingly, Mathematica supports this with a built-in. If outputting a number is allowed, than we only need 28 bytes:

Interpreter@"ComputedNumber"

Java, 159 148 142 120 110 bytes

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;}

Saved a bunch of bytes thanks to FlagAsSpam.

ARBLE, 13 bytes

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

Try it online!

05AB1E, 17 15 bytes

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

-2 bytes thanks to @MagicOctopusUrn.

Try it online or verify all test cases.

Explanation:

#`         # 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"

With flexible input- and output-format, taking the integers in the order x,z,y and outputting the nominator and denominator on separated lines it would be 4 bytes (which is why I added the parsing-tag to the challenge..):

*+²»

Try it online or verify all test cases.

Explanation:

*        # 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 bytes

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

Try it online!

Stax, 1 byte

+

Run and debug it (although there's not much to debug)

The challenge specification says "You do not need to simplify the output." Assuming it's allowed to simplify, then there's a built-in instruction in stax to do this. The input is implicitly interpreted as an integer and a rational number. The + instruction widens both to rationals, adds, and simplifies. The result is implicitly printed.

Perl 5 with -la -Mfeature=say, 32 bytes 25 bytes

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

Try it online!

(-7 bytes thanks to Dom Hastings)

$_ is the whole input x y/z, which evaluates the value of x in numeric contexts (like the * here). $' is the regex post-match string, which here contains whatever comes after / - so, z. To get the y value, we use the -a flag which splits the input on spaces and places them in the @F array. So here, @F = ("x", "y/z"), which means $F[1]="y/z" which evaluates in y in numeric contexts (since y is the initial contiguous sequence of digits with $F[1]).

Lua, 123 Bytes

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)

Milky Way 1.6.0, 31 bytes

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

Ended up being much longer than I thought it would be.

Explanation

'" "\="/"\=>;<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

Usage

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

Python 2.7, 88 Bytes

a=input().split('/');print int(a[-1])*int(a[0].split()[0])+int(a[0].split()[1]),'/',a[1]

Try it online!

You have to type the input in quotes.

Probably not the best ...

C, 64

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

Reads input from STDIN. Fairly self-explanatory, I think.

Check, 120 bytes

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

Try it online!

I might be able to save some bytes by not trying to reuse the parsing loop (the second line). That way I could make the loop more specific, avoid the huge mess of conditionals, and I could use the register for other things.

Ruby, 23 bytes

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

Try it online!

C#, 112 bytes

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;}

Full/Formatted Version:

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 bytes

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

Try it online!

Thanks to ngn for the ⊃⊥1∘↓ trick

PHP, 65 Bytes

Try it online

Code

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

Explanation

$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 bytes

A lambda from String to String.

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

Try It Online