В начальной школе дети узнают о правильных дробях, где числитель меньше знаменателя, и, следовательно, значение дроби меньше единицы. Позже им рассказывают о дробях, в которых значение дроби больше единицы, и двух разных способах выражения этих дробей: смешанные дроби и неправильные дроби.

Для заданной смешанной дроби определите, эквивалентна ли она неправильной дроби, в которой целочисленное значение и числитель объединены вместе. Например, для ввода 1 3/4неправильная дробь равна 13/4.

Тестовые случаи

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

Для ввода вы можете принимать целочисленную часть и дробную часть как отдельные входные данные, но вы не можете принимать дробную часть как входные данные из двух частей и не можете принимать ее как десятичное значение. Вы можете отбросить целочисленную часть (не принимать ее в качестве входных данных), если вам не нужно ее использовать.

MATL , 7 байт

UsGXzU=

Ввод - это строка. Выход 1для правды, 0для фальси.

Попробуйте онлайн! Или проверьте все тестовые случаи .

объяснение

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 байт

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

Попробуйте онлайн!

Принимает ввод в виде строки, представляющей дробь. Оказывается, динамическая типизация Perl 6 может обрабатывать строки в рациональные дроби, кто знает? Таким образом, строка, приведенная "1/10"к числу, возвращает0.1

Блок анонимного кода просто проверяет, равна ли дробь плюс единица одному, объединенному с дробью. Спасибо ответу Python от xnor, который показал мне, что целочисленная часть не имеет значения.

Старое решение, 27 26 байт

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

Попробуйте онлайн!

Принимает ввод как рациональную смешанную дробь и возвращает истину или ложь. Возвращает false для четвертого контрольного примера, поскольку его можно упростить.

Объяснение:

.nudeвозвращает список [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

Сетчатка 0.8.2 , 17 16 байт

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

Попробуйте онлайн! Требуется только часть дроби, поэтому связанный набор тестов удаляет целое число из тестовых случаев. Объяснение: Неправильная конкатенация равна смешанному числу, только если знаменатель имеет степень 10, а числитель имеет одну цифру на каждый ноль в знаменателе. Балансирующие группы .NET используются для проверки наличия достаточных цифр. Редактировать: 1 байт сохранен благодаря @sundar.

Шелуха , 8 байт

§·=r¤+r+

Попробуйте онлайн!

объяснение

§(·=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 байта

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

Попробуйте онлайн!

R , 78 65 байт

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

Попробуйте онлайн!

-13 байтов благодаря Джузеппе и ДжейСе!

Stax , 5 байт

╡ÄLσ`

Запустите и отладьте его

Объяснение:

+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 байт

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

Попробуйте онлайн!

Например, ввод 3/4дает 3/4+1==13/4. Вместо того, чтобы брать целую часть дроби, мы просто устанавливаем ее 1для проверки равенства смешанной дроби. Тестовые случаи от Chas Brown.

Брахилог , 15 байт

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

Попробуйте онлайн!

Принимает дробную часть в качестве строкового ввода.

Косвенно использует ту же идею, что и мой ответ Юлии - «знаменатель равен 10 ^ {длина числителя}» можно сказать как «знаменатель - это степень десяти, а длина знаменателя равна длине числителя + длина "/" (то есть 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

Старый ответ:

15 20 байт

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

Попробуйте онлайн!

(-1 байт благодаря @Fatalize, но, к сожалению, +6 байт, так как я обнаружил ошибки в старом методе.)

Та же идея, что и у моего Джулии .

Юлия 0,6 , 29 байт

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

Попробуйте онлайн!

Основываясь на идее, что результат должен быть истинным только тогда, когда знаменатель представляет собой степень десяти с числом нулей, равным количеству цифр в числителе. Принимает ввод как Rationalтип, проверяет, что знаменатель равен 10, поднятому в число цифр в числителе.

чистый , 57 байт

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

Попробуйте онлайн!

Этот немного короче, но ломается для больших числителей / знаменателей.

Чистый , 77 61 60 58 байт

-1 спасибо подсказке OMᗺ на мой другой ответ

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

Попробуйте онлайн!

Это использует метод Нейла , это немного короче, чем делать это напрямую.
Есть некоторая хитрость с перегрузкой преобразования, где 1<+[48\\_<-:u]конвертирует [Int]в [Char]и затем в {#Char} (:== String), ноInt непосредственно в String.

Чисто , 91 89 байт

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

Попробуйте онлайн!

Определяет функцию, $ :: String String -> Boolкоторая извлекает числитель и знаменатель, объединяет в строку целочисленную часть и числитель и проверяет эквивалентность.

05AB1E , 7 байтов

'/¡ćg°Q

Только принимает фракции в качестве входных данных.

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

'/¡        # 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)

Или более общее объяснение:

Мы должны подтвердить две вещи:

• Является ли знаменатель фактором 10 ( 1, 10, 100, 1000и т. Д.)?
• Соответствует ли длина числителя + 1 длине знаменателя?
  • Эта вторая часть выполняется путем проверки, равен ли знаменатель как есть 10 степени длины числителя, что экономит 2 байта

PS: Если бы мы могли взять числитель и знаменатель в виде отдельных входов, всего 3 байта было бы достаточно: g°Q.

JavaScript, 26 байт

Принимает ввод в карринг-синтаксисе ( f(x)(y)), где xявляется целым числом и yдробью в виде строки.

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

Попробуйте онлайн

Java 10, 107 70 67 57 байт

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

Добро пожаловать в мир без eval ..

-40 байт, создав порт ответа @ChasBrown 's Python 2 .
-10 байт благодаря @Shaggy (мне следовало бы лучше прочитать ответ @ChasBrown и его использование find( indexOf) ..)

Попробуйте онлайн.

Объяснение:

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 байт

-7 благодаря OMᗺ

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

Попробуйте онлайн!

Порт моего Чистого ответа с использованием метода Нейла.

Perl 5 -p, 23 байта

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

Попробуйте онлайн!

Принимает только дробную часть в качестве входных данных (как разрешено OP), выводит 1 для true и ничего для false.

$_=       # 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

Десятичная часть, взятая сама по себе, будет в точности равна числителю, только если знаменатель на следующую десятую степень больше нумератора, что является условием, которое мы должны проверить.

Нетер, 17 байт

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

Попробуйте онлайн!

объяснение

$10^a$$a$$a = \lfloor \log_{10} n \rfloor + 1$ , где$n$ числитель и $\lfloor x \rfloor$ представляет функцию настила).

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 байтов

Первый вход - это дробь, второй - целое число.

Я только начал в TeaScript, так что это может быть много

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

Попробуйте онлайн!

R , 53 байта

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

Попробуйте онлайн!

Принимает только дробную часть в качестве ввода. Как упомянуто xnor в комментарии:

Похоже, это эквивалентно «учитывая, что входные данные, которые не имеют значения, и два числа в виде строки, разделенной косой чертой, определяют, равно ли второе число 10 степени длины первого числа».

Ответ Роберта С. не такой уж гольфистский, но гораздо интереснее моего.

C (gcc) , 67 56 55 байтов

• Сохранено одиннадцать байтов благодаря OOBalance .
• Сохраненный байт благодаря потолку .

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

Попробуйте онлайн!

Excel, 52 байта

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

Игнорирует целочисленный ввод. В принципе:IS Denominator = 10^LEN(Numerator)

Для знаменателей ограничено <10^9: 48 байтов:

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

Основная часть логики разделяется на /. Если вход может быть взят отдельно, 16 байтов:

=10^LEN(B1)-C1=0

Эликсир , 81 байт

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

Попробуйте онлайн!

Может быть в состоянии получить где-то с {n,"/"<>d}=Integer.parse b, но не уверен, как.

2DFuck , 86 байт

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

Попробуйте онлайн!

Принимает ввод без целочисленной части.

C (gcc / clang), 59 49 47 байт

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

Порт Часа Брауна Python 2 ответ . Попробуйте это онлайн здесь .

Игнорирует целочисленную часть ввода. Спасибо Джонатану Фречу за игру в гольф 2 байта.

Ungolfed:

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 байт

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