Ở trường tiểu học, trẻ học về các phân số thích hợp, trong đó tử số nhỏ hơn mẫu số, và do đó giá trị của phân số nhỏ hơn một. Sau đó, họ được dạy về các phân số trong đó giá trị của phân số lớn hơn một và hai cách khác nhau để biểu thị các phân số này: phân số hỗn hợp và phân số không chính xác.

Cho một phân số hỗn hợp, xác định xem nó có tương đương với phân số không chính xác trong đó giá trị nguyên và tử số được nối với nhau không. Ví dụ, đối với đầu vào 1 3/4, phần không chính xác là 13/4.

Các trường hợp thử nghiệm

1 3/4        -> falsey
1 3/10       -> truthy
6 6/7        -> falsey
55 55/100    -> truthy
4 9/100      -> falsey
40 9/100     -> falsey
7 49/1000    -> falsey
9 1/2        -> falsey
999 999/1000 -> truthy
1 21/200     -> falsey
1 21/101     -> falsey

Đối với đầu vào, bạn có thể lấy phần nguyên và phần phân số làm đầu vào riêng biệt, nhưng bạn không thể lấy phân số làm đầu vào thành hai phần và bạn không thể lấy nó làm giá trị thập phân. Bạn có thể bỏ phần nguyên (không lấy nó làm đầu vào) nếu bạn không cần sử dụng nó.

MATL , 7 byte

UsGXzU=

Đầu vào là một chuỗi. Đầu ra là 1cho sự thật, 0cho falsey.

Hãy thử trực tuyến! Hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình

U     % Implicit input. Convert to number(s): gives a vector of two numbers
s     % Sum of that vector
G     % Push input again
Xz    % Remove spaces
U     % Convert to number
=     % Equal? Implicit display

Perl 6 , 16 12 byte

{1+$_==1~$_}

Hãy thử trực tuyến!

Lấy đầu vào dưới dạng một chuỗi đại diện cho phân số. Hóa ra kiểu gõ động của Perl 6 có thể xử lý các chuỗi thành các phân số hợp lý, ai biết? Vì vậy, chuỗi"1/10" khi bị ép buộc thành một số, trả về0.1

Khối mã ẩn danh chỉ đơn giản kiểm tra nếu phân số cộng với một bằng với một phân số được nối với phân số. Cảm ơn câu trả lời Python của xnor đã cho tôi thấy rằng phần nguyên không thành vấn đề.

Giải pháp cũ, 27 26 byte

{.nude[0]==.Int~[%] .nude}

Hãy thử trực tuyến!

Đưa đầu vào dưới dạng phân số hỗn hợp hợp lý và trả về giá trị đúng hoặc sai. Trả về false cho trường hợp thử nghiệm thứ tư vì nó có thể được đơn giản hóa.

Giải trình:

.nudetrả về một danh sách [numerator, denominator].

{                        } # Anonymous code block
 .nude[0]    # Check if the numerator of the mixed fraction
         ==  # Is equal to
           .Int  # The integer part of the fraction
               ~ # Concatenated to
                [%] .nude  # The numerator modulo the denominator
                           # And return implicitly

Võng mạc 0.8.2 , 17 16 byte

(.)+/1(?<-1>0)*$

Hãy thử trực tuyến! Chỉ yêu cầu phần phân số, vì vậy bộ kiểm tra được liên kết sẽ loại bỏ số nguyên khỏi các trường hợp kiểm tra. Giải thích: Ghép không đúng chỉ bằng số hỗn hợp chỉ khi mẫu số là lũy thừa 10 và tử số có một chữ số cho mỗi số 0 trong mẫu số. Các nhóm cân bằng của .NET được sử dụng để xác minh rằng có đủ chữ số tồn tại. Chỉnh sửa: Đã lưu 1 byte nhờ @sundar.

Husk , 8 byte

§·=r¤+r+

Hãy thử trực tuyến!

Giải trình

§(·=r)(¤+r)(+)  -- example arguments: "1" "3/10"
§               -- fork both arguments
      (¤ r)     -- | read both: 1 3/10
      ( + )     -- | and add them: 13/10
           (+)  -- | concatenate: "13/10"
                -- and do
 (· r)          -- | read the second argument: 13/10
 ( = )          -- | and compare: 13/10 == 13/10
                -- : 1

Python 2 , 43 byte

lambda k:k.split('/')[1]==`10**k.find('/')`

Hãy thử trực tuyến!

R , 78 65 byte

function(n,e=function(a)eval(parse(t=sub(" ",a,n))))e("")==e("+")

Hãy thử trực tuyến!

-13 byte nhờ cả Giuseppe và JayCe!

Stax , 5 byte

╡ÄLσ`

Chạy và gỡ lỗi nó

Giải trình:

+yj$e= Full program, implicit input
+      Add integer and fraction part
 y     Push unparsed input
  j$   Split on spaces and flatten, i.e. Remove spaces
    e  Evaluate
     = Check for equality

Python 3 , 26 byte

lambda k:eval(k+'+1==1'+k)

Hãy thử trực tuyến!

Ví dụ, đầu vào 3/4cho 3/4+1==13/4. Thay vì lấy toàn bộ phần của phân số, chúng tôi chỉ đặt nó 1để kiểm tra đẳng thức phân số hỗn hợp. Các trường hợp thử nghiệm từ Chas Brown.

Brachylog , 15 byte

ḍ{lᵛ&ht¬ị&t↔ị1}

Hãy thử trực tuyến!

Lấy phần phân đoạn một mình làm đầu vào chuỗi.

Sử dụng gián tiếp ý tưởng tương tự như câu trả lời Julia của tôi - "mẫu số là 10 ^ {chiều dài của tử số}" có thể nói là "mẫu số là lũy thừa mười và độ dài của mẫu số bằng độ dài của tử số + độ dài của "/" (tức là 1).

ḍ                   % split the input in half
 {            }     % and verify that
  lᵛ                % each half has the same length (i.e. the string had even length)
    &ht¬ị           % and the last character of the first half is 
                    %  not a number (it should be "/")
         &t↔ị1      % and the second half when reversed is the number 1
                    %  i.e. the denominator should be a power of 10

Câu trả lời cũ hơn:

15 20 byte

a₀ᶠịˢtl;10↺^.&a₁ᶠịˢh

Hãy thử trực tuyến!

(-1 byte nhờ vào @Firthize, nhưng không may là +6 byte kể từ khi tôi phát hiện ra các lỗi trong phương thức cũ hơn.)

Ý tưởng tương tự như câu trả lời Julia của tôi .

Julia 0,6 , 29 byte

r->10^ndigits(num(r))==den(r)

Hãy thử trực tuyến!

Dựa trên ý tưởng rằng đầu ra chỉ đúng khi mẫu số là lũy thừa mười với số không bằng số có các chữ số trong tử số. Lấy đầu vào dưới dạng một Rationalloại, kiểm tra mẫu số bằng 10 được nâng lên số chữ số trong tử số.

Sạch , 57 byte

import StdEnv,Text
$b#[u,v:_]=split"/"b
=v==""<+10^size u

Hãy thử trực tuyến!

Cái này ngắn hơn một chút nhưng ngắt cho tử số / mẫu số lớn.

Sạch , 77 61 60 58 byte

-1 cảm ơn lời khuyên của OM on về câu trả lời khác của tôi

import StdEnv,Text
$b#[u,v:_]=split"/"b
=1<+[48\\_<-:u]==v

Hãy thử trực tuyến!

Điều này sử dụng phương pháp của Neil , nó ngắn hơn một chút so với thực hiện trực tiếp.
Có một số mánh khóe với quá tải chuyển đổi, nơi 1<+[48\\_<-:u]chuyển đổi [Int]sang [Char]rồi chuyển sang {#Char} (:== String), nhưng Inttrực tiếp thành String.

Sạch , 91 89 byte

import StdEnv,Text
t=toInt
$a b#[b,c:_]=map t(split"/"b)
#d=t(a<+b)
=d/c==t a&&d-d/c*c==b

Hãy thử trực tuyến!

Xác định hàm $ :: String String -> Booltrích xuất tử số và mẫu số, nối chuỗi phần nguyên và tử số và kiểm tra tính tương đương.

05AB1E , 7 byte

'/¡ćg°Q

Chỉ lấy các phân số làm đầu vào.

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

'/¡        # Split the input by '/'
           #  i.e. '3/10' → ['3', '10']
   ć       # Head extracted:
           #  i.e. ['3', '10'] → 10 and 3
    g      # Take the length of the numerator
           #  i.e. '3' → 1
     °     # Take 10 to the power of this length
           #  1 → 10**1 → 10
      Q    # Check if that value equals the denominator
           #  10 and 10 → 1 (truthy)

Hoặc một lời giải thích tổng quát hơn:

Chúng ta phải xác nhận hai điều:

• Mẫu số là một yếu tố 10 ( 1, 10, 100, 1000, v.v.)?
• Độ dài của tử số + 1 có bằng độ dài của mẫu số không?
  • Phần thứ hai này được thực hiện bằng cách kiểm tra xem mẫu số có bằng 10 với công suất của độ dài của tử số hay không, giúp tiết kiệm 2 byte

PS: Nếu chúng ta có thể lấy tử số và mẫu số làm đầu vào riêng biệt, chỉ cần 3 byte là đủ : g°Q.

JavaScript, 26 byte

Lấy đầu vào theo cú pháp currying ( f(x)(y)) trong đó xlà số nguyên và ylà phân số dưới dạng chuỗi.

x=>y=>x==eval(x+y)-eval(y)

Dùng thử trực tuyến

Java 10, 107 70 67 57 byte

f->new Long(f.split("/")[1])==Math.pow(10,f.indexOf("/"))

Chào mừng đến với thế giới mà không có eval..

-40 byte bằng cách tạo một cổng của câu trả lời Python 2 của @ChasBrown .
-10 byte nhờ @Shaggy (Tôi nên đọc câu trả lời của @ChasBrown tốt hơn và việc anh ấy sử dụng find( indexOf) ..)

Hãy thử trực tuyến.

Giải trình:

f->                         // Method with String parameter and boolean return-type
  new Long(f.split("/")[1]) //  Take the denominator as integer
  ==Math.pow(10,            //  And check whether it is equal to 10 to the power of:
                f.indexOf("/"))
                            //   the length of the numerator-String

Haskell , 47 40 byte

-7 cảm ơn OMᗺ

f b|(u,v)<-span('/'<)b="/1"++('0'<$u)==v

Hãy thử trực tuyến!

Một cổng câu trả lời Sạch của tôi bằng phương pháp của Neil.

Perl 5 -p, 23 byte

$_=eval=~s/..//r eq$_+0

Hãy thử trực tuyến!

Lấy phần phân đoạn một mình làm đầu vào (như được OP cho phép), đầu ra 1 là true và không có gì sai.

$_=       # assign to be printed by -p
eval      # evaluate fraction to get 0.something, for eg. 0.54
=~s/..//r # remove the 0. part, giving 54
 eq       # string equality check
$_+0      # after first coercing input to number to remove / and denominator

Phần thập phân được lấy bởi chính nó sẽ chỉ chính xác bằng tử số khi mẫu số là công suất tiếp theo tức thời lớn hơn mười so với tử số, đây là điều kiện chúng ta cần kiểm tra.

Noether, 17 byte

I#I"/"^WL1-%WL_=P

Hãy thử trực tuyến!

Giải trình

Vậy làm thế nào để làm việc này? Chà, nếu bạn nhìn vào các trường hợp thử nghiệm, trường hợp đúng duy nhất là khi mẫu số là lũy thừa mười,$10^a$, Ở đâu $a$ là độ dài của tử số cộng với một ($a = \lfloor \log_{10} n \rfloor + 1$, Ở đâu $n$ là tử số và $\lfloor x \rfloor$ đại diện cho chức năng sàn).

I#                - Push the first input then pop it off the stack
  I"/"^           - Push the second input and split the string at "/"
       W          - Convert the top (the denominator) of the stack from a string to a number
        L1-       - Take the log 10 of the top of the stack and subtract 1 (a)
           %      - Rotate the stack
            WL_   - Convert the top of the stack (the numerator) to a number, take the log10 and floor the result (b)
               =  - Check if a and b are equal
                P - Print the top of the stack

TeaScript , 25 byte

Đầu vào đầu tiên là phân số, thứ hai là số nguyên.

Tôi mới bắt đầu chơi TeaScript nên có thể chơi golf rất nhiều

s"/")▒⌐ep(xs"/")░.n

Hãy thử trực tuyến!

R , 53 byte

function(n,x=el(strsplit(n,"/")))x[2]==10^nchar(x[1])

Hãy thử trực tuyến!

Chỉ lấy phần phân đoạn làm đầu vào. Như được đề cập bởi xnor trong một bình luận:

Điều này dường như tương đương với "đưa ra một đầu vào không quan trọng và hai số là một chuỗi được phân tách bằng dấu gạch chéo, xác định xem số thứ hai có bằng 10 với sức mạnh của độ dài của số thứ nhất không".

Câu trả lời của Robert S. ít chơi gôn hơn nhưng thú vị hơn tôi nhiều.

C (gcc) , 67 56 55 byte

• Đã lưu mười một byte nhờ OOBalance .
• Lưu một byte nhờ trần .

m;x(char*_){for(m=1;*_++;m*=10)*_*=*_^47;m=m==atoi(_);}

Hãy thử trực tuyến!

Excel, 52 byte

=10^FIND("/",B1)/10-MID(B1,FIND("/",B1)+1,LEN(B1))=0

Bỏ qua đầu vào Integer. Về cơ bản:IS Denominator = 10^LEN(Numerator)

Đối với mẫu số giới hạn ở <10^9: 48 byte:

=10^FIND("/",B1)/10-MID(B1,FIND("/",B1)+1,1E9)=0

Hàng loạt logic đang tách ra /. Nếu đầu vào có thể được lấy riêng, 16 byte:

=10^LEN(B1)-C1=0

Thuốc tiên , 81 byte

fn b->[n,d]=String.split b,"/";String.to_integer(d)==:math.pow 10,byte_size n end

Hãy thử trực tuyến!

Có thể có được một nơi nào đó với {n,"/"<>d}=Integer.parse b, nhưng không biết làm thế nào.

2DFuck , 86 byte

..!x..!...,,,,[>,,,,,,,,],,,,,,,,,[v!],[v!],[v!],![v!],,,[,,[v!],[v!],[v!],[v!]<,,,]r.

Hãy thử trực tuyến!

Đưa đầu vào mà không có phần nguyên.

C (gcc / clang), 59 49 47 byte

f(a,b){a=atoi(b=strchr(a,47)+1)==pow(10,b+~a);}

Câu trả lời Python 2 của Port of Chas Brown . Dùng thử trực tuyến tại đây .

Bỏ qua phần nguyên của đầu vào. Cảm ơn Jonathan Frech chơi golf 2 byte.

Ung dung:

f(a, b) { // function returning an int and taking a string as input; also declaring another string variable
          // this abuses the parameters as much as possible, omitting the type int and implicitly converting it to char *
    a =                             // return a truthy or falsey value based on
        atoi(b = strchr(a, 47) + 1) // the denominator (as integer; 47 is the ASCII code for '/')
        == pow(10, b + ~a);         // is equal to 10 to the power of the length of the numerator-string
}

ForceLang, 86 78 byte

set a io.readnum()
set b io.readnum()
set d number.parse a+b+""
io.write d=a+b