Nomor Campuran ke Fraksi yang Tidak Benar

Dalam tantangan ini, Anda akan mengonversi angka campuran menjadi fraksi yang tidak tepat.

Karena pecahan yang tidak tepat menggunakan angka lebih sedikit, kode Anda harus sesingkat mungkin.

Contohnya

4 1/2
9/2

12 2/4
50/4

0 0/2
0/2

11 23/44
507/44

Spesifikasi

Anda dapat menganggap penyebut input tidak akan pernah menjadi 0. Input akan selalu dalam format di x y/zmana x, y, z adalah bilangan bulat non-negatif yang berubah-ubah. Anda tidak perlu menyederhanakan output.

Ini adalah kode-golf sehingga kode terpendek dalam byte menang.

Japt, 10 byte

Woohoo, saat ini mengalahkan CJam!

U*W+V+'/+W

Cobalah online!

Bagaimana itu bekerja

       // 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 Primitif

CJam, 16 15 14 byte

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

atau

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

Uji di sini.

Penjelasan

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.

Versi lain menghindari penggunaan variabel dengan menggunakan sedikit lebih banyak perpindahan tumpukan.

Mathematica, 58 byte

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

Ini mengembalikan hasil yang disederhanakan. Jika mengeluarkan bilangan rasional alih-alih string baik-baik saja, kita dapat menyimpan 19 byte:

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

PowerShell, 47 44 42 Bytes

_{Dicoret 44 masih teratur 44; (}

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

Golf beberapa byte dengan menggunakan regex -split. Golf beberapa lagi berkat TessellatingHeckler dengan menukar regex.

The $args-split'\D'mengambil argumen masukan dan membagi pada karakter non-digit. Di sini ia melakukan dua pemisahan, satu di spasi, yang lain pada /karakter. Hasilnya kemudian disimpan dalam tiga variabel menggunakan tugas simultan. Kami kemudian merumuskan output string sebagai ( $ljumlah eft kali $denominator ditambah $numerator) dieksekusi sebagai blok kode, /slash, dan kemudian $denominator lagi.

Java dengan Ten Foot Laser Pole 1.03, 79 + 25 (import) = 104 bytes

Membutuhkan import sj224.tflp.math.*;

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

Ini hampir pasti akan bekerja dengan 1.04 juga, tetapi sejauh ini saya hanya mengujinya dengan 1.03 karena saya sudah memiliki proyek java yang diatur dengan 1.03 di jalur build.

JavaScript (ES6), 44 41 byte

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

Disimpan 3 byte berkat @ETHproductions !

Penjelasan

Sangat sederhana.

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

Uji

Tes tanpa merusak penugasan untuk bekerja di sebagian besar browser.

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 50 byte

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

Ini adalah fungsi anonim yang menerima string dan mengembalikan Rationalobjek tipe. Untuk menyebutnya, berikan nama, mis f=s->....

Kita dapat mengambil keuntungan dari kenyataan bahwa input dapat sedikit dimanipulasi untuk menjadi ekspresi yang dievaluasi menjadi rasional. Secara khusus, bilangan bulat ditambah rasional adalah rasional, dan rasional dilambangkan dengan garis miring ganda. Jadi jika kita berubah 4 1/2menjadi 4+1//2, hasil yang dievaluasi akan menjadi 9//2.

Tidak Disatukan:

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 karakter

Masukan persis cocok dengan pembatas array dan representasi fraksi yang melekat dari Smalltalk. Kalau saja tidak begitu bertele-tele, itu bisa menjadi pesaing serius!

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

Penyederhanaan yang terlalu buruk bukanlah keharusan, Smalltalk melakukannya secara otomatis!

Bash + coreutils, 28

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

$@mengembang ke semua parameter baris perintah, jadi ${@/\// }mengembang ke semua parameter baris perintah dengan /diganti dengan , yang diletakkan di dcatas tumpukan. Sisanya adalah manipulasi tumpukan dan aritmatika sederhana.

Haskell , 74 67 63 byte

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

Cobalah online!

Penjelasan

Seperti yang diketahui oleh H.PWiz , kita dapat menggunakan lexer Haskell di sini untuk memecah string menjadi bagian-bagiannya. (Sebelumnya saya menggunakan span(>'/')) Dan Laikoni menunjukkan bahwa itu <$>berfungsi seperti mapSnddari Data.Tuple.

Pengawal pola memecah kode kami menjadi tiga angka yang ingin kita gunakan lex. lexmemanggil haskell's lexer untuk memutus token pertama. Ini mengembalikan daftar dengan masing-masing elemen yang mewakili cara yang mungkin untuk mengurai string. Elemen-elemen ini adalah tupel dengan elemen pertama menjadi token pertama dan sisanya dari string menjadi elemen kedua. Sekarang karena format input sangat teratur, kami hanya akan memiliki satu parse, jadi kami selalu dapat mengambil yang pertama. Hal pertama yang kita lakukan adalah memanggil lexinput

lex x

Lalu kami membuka bungkusnya dari daftar itu memberi kami 2-tuple

lex x!!0

Token pertama akan menjadi seluruh bagian dari fraksi campuran yang meninggalkan fraksi yang didahului oleh spasi untuk tetap diuraikan. Kemudian karena tupel Functorskita dapat menggunakan (<$>)alias untuk fmapmenerapkan lexke elemen kedua tupel.

lex<$>lex x!!0

Ini memakan ruang dan memutuskan token berikutnya, pembilang dari fraksi kami. Sekarang kita ikat ini ke pencocokan pola menggunakan <-. Pola kita adalah

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

ameraih seluruh bagian dari fraksi, token pertama kami. :_membuka daftar yang dihasilkan dari yang kedua lex. cmeraih token kedua yang kami lexed, yaitu pembilang dari pecahan. Segala sesuatu yang tersisa terikat pada s:dyang membaginya menjadi karakter pertama, dijamin oleh format menjadi /dan sisanya yang akan menjadi penyebutnya.

Sekarang kita telah mem-parsing input, kita melakukan perhitungan yang sebenarnya:

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

Di mana rfungsi baca yang kita ikat sebelumnya.

Penting untuk dicatat bahwa lexmengembalikan daftar kosong jika gagal dan tidak kosong jika berhasil. Kenapa ini bukan Maybesaya tidak tahu.

Javascript ES6, 62 byte

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

Perl, 82 61 38 byte

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

Ini mungkin bisa lebih banyak golf.

Perubahan

• Disimpan 16 byte dengan menggunakan regex split, dan 5 dengan menggunakan <>bukan <STDIN>.
• Disimpan 16 byte lagi berkat Dennis.

Mathematica, 51 byte

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

Menariknya, Mathematica mendukung ini dengan built-in. Jika mengeluarkan nomor diperbolehkan, maka kita hanya perlu 28 byte:

Interpreter@"ComputedNumber"

Jawa, 159 148 142 120 110 byte

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

Menyimpan banyak byte berkat FlagAsSpam.

ARBLE , 13 byte

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

Cobalah online!

05AB1E , 17 15 byte

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

-2 byte terima kasih kepada @MagicOctopusUrn .

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

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

Dengan input-dan output-format yang fleksibel, mengambil bilangan bulat dalam urutan x,z,ydan mengeluarkan nominator dan penyebut pada garis yang terpisah itu akan menjadi 4 byte (itulah sebabnya saya menambahkan -tag penguraian ke tantangan ..):

*+²»

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

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

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

Cobalah online!

Stax , 1 byte

+

Jalankan dan debug itu (meskipun tidak banyak yang bisa di-debug)

Spesifikasi tantangan mengatakan, "Anda tidak perlu menyederhanakan output." Dengan asumsi itu diizinkan untuk disederhanakan, maka ada instruksi bawaan untuk melakukan ini. Masukan secara implisit ditafsirkan sebagai bilangan bulat dan bilangan rasional. The +instruksi melebar baik untuk rasional, menambahkan, dan menyederhanakan. Hasilnya dicetak secara implisit.

Perl 5 dengan -la -Mfeature = katakanlah, 32 byte 25 byte

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

Cobalah online!

(-7 byte terima kasih kepada Dom Hastings)

$_adalah seluruh input x y/z, yang mengevaluasi nilai xdalam konteks numerik (seperti di *sini). $'adalah string pasca-pertandingan regex, yang di sini berisi apa pun yang muncul setelah /- jadi z,. Untuk mendapatkan ynilai, kami menggunakan -aflag yang membagi input pada spasi dan menempatkannya dalam @Farray. Jadi di sini,, @F = ("x", "y/z")yang berarti $F[1]="y/z"yang mengevaluasi dalam ykonteks numerik (karena yadalah urutan awal angka yang berdekatan $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)

Bima Sakti 1.6.0 , 31 byte

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

Akhirnya menjadi lebih lama dari yang saya kira.

Penjelasan

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

Pemakaian

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

Python 2.7, 88 Bytes

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

Cobalah online !

Anda harus mengetikkan input dalam tanda kutip.

Mungkin bukan yang terbaik ...

C, 64

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

Membaca input dari STDIN. Cukup jelas, saya kira.

Periksa , 120 byte

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

Cobalah online!

Saya mungkin dapat menyimpan beberapa byte dengan tidak mencoba menggunakan kembali parsing loop (baris kedua). Dengan begitu saya bisa membuat loop lebih spesifik, menghindari kekacauan besar kondisional, dan saya bisa menggunakan register untuk hal-hal lain.

Ruby , 23 byte

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

Cobalah online!

C #, 112 byte

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

Versi Lengkap / Diformat:

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 byte

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

Cobalah online!

Terima kasih ngn untuk ⊃⊥1∘↓triknya

PHP, 65 Bytes

Cobalah online

Kode

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

Penjelasan

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

Seekor lambda dari Stringke String.

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

Cobalah secara Online