Я совершенен (число)?

26

Это мой первый вызов!

Задний план

Совершенное число - это положительное целое число, равное сумме всех его делителей, кроме него самого.
Так 6это совершенное число, так как 1 + 2 + 3 = 6.
С другой стороны 12нет, потому что 1 + 2 + 3 + 4 + 6 = 16 != 12.

задача

Ваша задача проста, написать программу, которая, для данного nмомента, напечатает одно из следующих сообщений:

Я идеальный номер, потому что d1 + d2 + ... + dm = s == n
я не идеальный номер, потому чтоd1 + d2 + ... + dm = s [<>] n

Где
d1, ... dmвсе делители, nкроме n.
sэто сумма всех делителей d1, ..., dm(опять же, без n).
[<>]либо <(если s < n), либо >(если s > n).

Примеры

Для того, nчтобы быть 6: «Я идеальное число, потому что 1 + 2 + 3 = 6 == 6»
Для того, nчтобы быть 12: «Я не идеальное число, потому что 1 + 2 + 3 + 4 + 6 = 16> 12»
Для nтого, чтобы быть 13: «Я не идеальное число, потому что 1 = 1 <13»

правила

  • nне больше, чем стандарт вашего языка int.
  • Вы можете читать nиз стандартного ввода, из аргументов командной строки или из файла.
  • Выходное сообщение должно быть напечатано на стандартном выводе, и никакие дополнительные символы не могут появляться в выводе (оно может содержать пробел или перевод строки)
  • Вы не можете использовать какие-либо встроенные функции или библиотечные функции, которые бы решали задачу (или ее основную часть) за вас. Нет GetDivisors()или что-то в этом роде.
  • Все остальные стандартные лазейки применимы.

победитель

Это код-гольф, поэтому выигрывает самый короткий код в байтах !

code-golf number-theory Zereges
источник
@orlp Это не так, я редактировал вызов, спасибо за это.
Зерегес
7
Почему вы используете =и ==в том же уравнении? Это бессмысленно. Это должно быть d1 + d2 + ... + dm = s = nИМО.
orlp
Не могли бы вы привести пример ввода и вывода, например, с входами 6 и 12?
Згарб
14
@ Zereges Это бессмысленно. Там ничего не присваивается. Только по сравнению.
orlp
1
@orlp предназначен.
Зерегес

Ответы:

4

Pyth, 81 байт

jd[+WK-QsJf!%QTStQ"I am"" not""a perfect number, because"j" + "J\=sJ@c3"==<>"._KQ

Попробуйте онлайн: демонстрация или тестовый набор

Объяснение:

                                 implicit: Q = input number
               StQ               the range of numbers [1, 2, ..., Q-1]
          f                      filter for numbers T, which satisfy:
           !%QT                     Q mod T != 0
         J                       save this list of divisors in J
      -QsJ                       difference between Q and sum of J
     K                           save the difference in K

jd[                              put all of the following items in a list
                                 and print them joined by spaces: 
                  "I am"           * "I am"
   +WK                  " not"       + "not" if K != 0
"a perfect number, because"        * "a perfect ..."
j" + "J                            * the divisors J joined by " + "
       \=                          * "="
         sJ                        * sum of J
            c3"==<>"               * split the string "==<>" in 3 pieces:
                                        ["==", "<", ">"]
           @        ._K              and take the (sign of K)th one (modulo 3)
                       Q           * Q
Jakube
источник
9

Java, 255 270 байт (все еще FF в базе 17)

class C{public static void main(String[]a){int i=new Integer(a[0]),k=0,l=0;a[0]=" ";for(;++k<i;)if(i%k<1){l+=k;a[0]+=k+" ";}}System.out.print("I am "+(l==i?"":"not ")+"a perfect number, because "+a[0].trim().replace(" "," + ")+" = "+l+(l==i?" == ":l<i?" < ":" > ")+i);}}

И более читаемая версия:

class C {
    public static void main(String[] a) {
        int i = new Integer(a[0]), k = 0, l = 0;
        a[0] = " ";
        for(; ++k<i ;){
            if (i % k == 0) {
                l += k;
                a[0] += k + " ";
            }
        }
        System.out.print("I am " + (l == i ? "" : "not ") + "a perfect number, because " + a[0].trim().replace(" "," + ") + " = " + l + (l == i ? " == " : l < i ? " < " : " > ") + i);
    }
}

Раньше не работал на нечетные числа, поэтому мне пришлось подправить несколько вещей. По крайней мере, мне снова повезло с количеством байтов. :)

тротил
источник
Я буду работать = 255?
Два
Я знаю, уничтожит ли ваш счетчик байтов, но вы могли бы сохранить символ, заменив три последних (из четырех) вхождения [0] на «String b» и использовав вместо них «b»
Крейг
6

R 158 163 157 153 143 141 байт

Думаю, еще есть место для игры в гольф.
Редактировать: заменено if(b<n)'<'else if(b>n)'>'else'=='на c('<'[b<n],'>'[b>n],'=='[b==n]). paste(...)Заменяется rbind(...)[-1]. Спасибо @plannapus за еще пару байтов.

n=scan();a=2:n-1;b=sum(w<-a[!n%%a]);cat('I am','not'[b!=n],'a perfect number, because',rbind('+',w)[-1],'=',b,c('<'[b<n],'>'[b>n],'==')[1],n)

Ungolfed

n<-scan()             # get number from stdin
w<-which(!n%%1:(n-1)) # build vector of divisors
b=sum(w)              # sum divisors
cat('I am',           # output to STDOUT with a space separator
    'not'[b!=n],      # include not if b!=n
    'a perfect number, because',
    rbind('+',w)[-1], # create a matrix with the top row as '+', remove the first element of the vector
    '=',
    b,                # the summed value
    c(                # creates a vector that contains only the required symbol and ==
        '<'[b<n],     # include < if b<n
        '>'[b>n],     # include > if b>n
        '=='
    )[1],             # take the first element 
    n                 # the original number
)

Тестовый забег

> n=scan();b=sum(w<-which(!n%%1:(n-1)));cat('I am','not'[b!=n],'a perfect number, because',rbind('+',w)[-1],'=',b,c('<'[b<n],'>'[b>n],'==')[1],n)
1: 6
2: 
Read 1 item
I am a perfect number, because 1 + 2 + 3 = 6 == 6
> n=scan();b=sum(w<-which(!n%%1:(n-1)));cat('I am','not'[b!=n],'a perfect number, because',rbind('+',w)[-1],'=',b,c('<'[b<n],'>'[b>n],'==')[1],n)
1: 12
2: 
Read 1 item
I am not a perfect number, because 1 + 2 + 3 + 4 + 6 = 16 > 12
> n=scan();b=sum(w<-which(!n%%1:(n-1)));cat('I am','not'[b!=n],'a perfect number, because',rbind('+',w)[-1],'=',b,c('<'[b<n],'>'[b>n],'==')[1],n)
1: 13
2: 
Read 1 item
I am not a perfect number, because 1 = 1 < 13
>
MickyT
источник
+Между делителями должен быть знак.
Зерегес
@Zereges Я только что заметил это и скоро исправлю
MickyT
+1 за блестящий rbindтрюк! Вы можете сохранить 2 дополнительных байта, если вы присваиваете 2:n-1переменную, скажем a: which(!n%%1:(n-1)) таким образом, становится a[!n%%a]. (Полный код будет тогда n=scan();a=2:n-1;b=sum(w<-a[!n%%a]);cat('I am','not'[b!=n],'a perfect number, because',rbind('+',w)[-1],'=',b,c('<'[b<n],'>'[b>n],'==')[1],n))
plannapus
@plannapus Спасибо, я был очень доволен этим сам.
MickyT
5

Python 2, 183 173 170 байт

b=input();c=[i for i in range(1,b)if b%i<1];d=sum(c);print'I am %sa perfect number because %s = %d %s %d'%('not '*(d!=b),' + '.join(map(str,c)),d,'=<>='[cmp(b,d)%3::3],b)

Примеры:

$ python perfect_number.py <<< 6
I am a perfect number because 1 + 2 + 3 = 6 == 6
$ python perfect_number.py <<< 12
I am not a perfect number because 1 + 2 + 3 + 4 + 6 = 16 > 12
$ python perfect_number.py <<< 13
I am not a perfect number because 1 = 1 < 13
$ python perfect_number.py <<< 100
I am not a perfect number because 1 + 2 + 4 + 5 + 10 + 20 + 25 + 50 = 117 > 100
$ python perfect_number.py <<< 8128
I am a perfect number because 1 + 2 + 4 + 8 + 16 + 32 + 64 + 127 + 254 + 508 + 1016 + 2032 + 4064 = 8128 == 8128

Спасибо xnor за сохранение 13 байт!

Celeo
источник
4
'=<>'[cmp(b,d)]- Присоединяйся к революции!
orlp
Отлично, спасибо! Ой, подождите ... :)
Celeo
1
@Celeo Я придумал похожее решение. Вы можете написать b%i<1для b%i==0. Для ['not ',''][int(d==b)]вас не нужно int, потому что Python будет конвертировать автоматически. Кроме того, вы можете использовать строковую мультипликацию "not "*(d!=b).
xnor
@xnor спасибо за предложения!
Celeo
1
@Celeo Вы можете настроить предложение orlp, чтобы работать как "=<>="[cmp(b,d)%3::3].
xnor
4

Юлия, 161 157 байт

n=int(ARGS[1])
d=filter(i->n%i<1,1:n-1)
s=sum(d)
print("I am ",s!=n?"not ":"","a perfect number, because ",join(d," + ")," = $s ",s<n?"<":s>n?">":"=="," $n")

Ungolfed:

# Read n as the first command line argument
n = int(ARGS[1])

# Get the divisors of n and their sum
d = filter(i -> n % i == 0, 1:n-1)
s = sum(d)

# Print to STDOUT
print("I am ",
      s != n ? "not " : "",
      "a perfect number, because ",
      join(d, " + "),
      " = $s ",
      s < n ? "<" : s > n ? ">" : "==",
      " $n")
Алекс А.
источник
4

CJam, 90 байтов

"I am"rd:R{R\%!},:D:+R-g:Cz" not"*" a perfect number, because "D'+*'=+D:++'=C+_'=a&+a+R+S*

Для сравнения, печать одного =может быть достигнута в 83 байта.

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

Как это работает

"I am"  e# Push that string.
rd:R    e# Read a Double from STDIN and save it in R.
{       e# Filter; for each I in [0 ... R-1]:
  R\%!  e# Push the logical NOT of (R % I).
},      e# Keep the elements such that R % I == 0.
:D      e# Save the array of divisors in D.
:+R-g   e# Add the divisors, subtract R and compute the sign of the difference.
:Cz     e# Save the sign in C and apply absolute value.
"not "* e# Repeat the string "not " that many times.

" a perfect number, because "

D'+*    e# Join the divisors, separating by plus signs.
'=+D:++ e# Append a '=' and the sum of the divisors.
'=C+    e# Add the sign to '=', pushing '<', '=' or '>'.
_'=a&   e# Intersect a copy with ['='].
+a+     e# Concatenate, wrap in array and concatenate.
        e# This appends "<", "==" or ">".
R+      e# Append the input number.
S*      e# Join, separating by spaces.
Деннис
источник
2

Perl, 148 байт

$a=<>;$_=join' + ',grep{$a%$_==0}1..$a-1;$s=eval;print"I am ".($s==$a?'':'not ')."a perfect number because $_ = $s ".(('==','>','<')[$s<=>$a])." $a"

С переносами строк:

$a=<>;
$_=join' + ',grep{$a%$_==0}1..$a-1;
$s=eval;
print"I am ".($s==$a?'':'not ')."a perfect number because $_ = $s ".(('==','>','<')[$s<=>$a])." $a"
faubi
источник
У меня было ткнуть над этим , и вы можете сэкономить 10 байт, удалив внешние скобки вокруг 'not 'и '==','>','<'отчетности и перехода от .к ,(так как ничего не добавляется , когда printИНГ список). Кроме того, двигая задания в круглые скобки в первый раз , они используются экономишь пару, а если немного изменить логику grep$a%_<1,1..($a=<>)-1и $a!=($s=eval)&&'not 'вы должны сбрить несколько больше! Надеюсь, что все имеет смысл!
Дом Гастингс
2

Луа, 244 231 байт

Golfed:

n=io.read("*n")d={}s="1"t=1 for i=2,n-1 do if n%i==0 then table.insert(d,i)s=s.." + "..i t=t+i end end print(("I am%s a perfect number, because %s = %s"):format(t==n and""or" not", s, t..(t==n and" == "or(t>n and" > "or" < "))..n))

Ungolfed:

n=io.read("*n")
divisors={}
sequence="1"
sum=1
for i=2,n-1 do
    if n%i==0 then 
        table.insert(divisors,i)
        sequence=sequence.." + "..i
        sum=sum+i
    end
end

print(("I am%s a perfect number, because %s = %s"):format(sum==n and""or" not", sequence, sum..(sum==n and" == "or(sum>n and" > "or" < "))..n))
Nikolai97
источник
2

JavaScript (ES6), 146

Используя шаблоны строк, он работает в Firefox и последней версии Chrome.

for(n=prompt(),o=t=i=1;++i<n;)n%i||(t+=i,o+=' + '+i)
alert(`I am ${t-n?'not ':''}a perfect number because ${o} = ${t} ${t<n?'<':t>n?'>':'=='} `+n)
Развернуть фрагмент

edc65
источник
2

Рубин, 174 160 155 136 134 128 122 байт

n=6;a=[*1...n].reject{|t|n%t>0};b=a.inject(:+)<=>n;print"I am#{" not"*b.abs} a perfect number, because ",a*?+,"<=>"[b+1],n

Сохранено еще 6 байт :)

Спасибо Tips за игру в гольф в Ruby

Юрий Казаков
источник
Команда печати все еще беспокоит меня. И мне нужно найти способ сократить троичный оператор if? нужен пункт else, который я не могу предоставить, и принимает только один вызов для каждого случая
Юрий Казаков
осталось только одно печатное заявление :)
Юрий Казаков
1

C #, 252 байта

class A{static void Main(string[]a){int i=int.Parse(a[0]);var j=Enumerable.Range(1,i-1).Where(o=>i%o==0);int k=j.Sum();Console.Write("I am "+(i!=k?"not ":"")+"a perfect number, because "+string.Join(" + ",j)+" = "+k+(k>i?" > ":k<i?" < ":" == ")+i);}}
Yitz
источник
1

Калий , 285 байт

Отказ от ответственности: работает только с последней версией Hodium из-за проблем с аргументами командной строки.

func main(){n=Convert.toNumber(args[0]);s=1;l="1";foreach(x in range(2,n-3)){if(n%x==0){l+=" + "+x;s+=x;}}if(s==n)println("I am a perfect number, because "+l+" = "+s+" == "+s);else {print("I am not a perfect number, because "+l+" = "+s);if(s>n)println(" > "+n);else println(" < "+n);}}

Более читаемая версия:

func main() {
    n = Convert.toNumber(args[0]);
    s = 1;
    l = "1";
    foreach(x in range(2, n - 3)) {
            if (n % x== 0) {
                    l += " + " + x;
                    s += x;
            }
    }
    if (s == n)
            println("I am a perfect number, because " + l + " = " + s + " == " + s);
    else {
            print("I am not a perfect number, because " + l + " = " + s);
            if (s > n)
                    println(" > " + n);
            else
                    println(" < " + n);
    }

}

Яков Мисирян
источник
1
1. Я не могу убедить Халия прочитать мои аргументы командной строки. Если я выполню mono src/Hassium/bin/Debug/Hassium.exe t.hs 6, это говорит System.ArgumentException: The file 6 does not exist.. 2. Это не работает с этой версией , которая является последним коммитом перед публикацией этого вызова. Пожалуйста, добавьте заявление об отказе от ответственности, в котором говорится, что ваша заявка не является конкурентной.
Деннис
Я попробовал это на Windows (построено с использованием MVS2015) и получил ту же ошибку.
Зерегес
Эта проблема была обновлена ​​буквально 15 минут назад. Клонируй Калий и скомпилируй снова. Мне очень жаль, поскольку я столкнулся с точно такой же проблемой.
Джейкоб Мисирян
1
Работает нормально с последней версией. Теперь, если вы могли бы просто добавить отказ от ответственности, я буду рад удалить мое понижение. (Кстати, вы можете пропинговать меня, добавив @Dennisв свой комментарий. В противном случае, я не получу уведомление о вашем ответе.)
Деннис
@ Денис Я добавил это. Спасибо за ваше уведомление :)
Джейкоб Мисирян
1

МАТЛАБ, 238

Никогда не буду самым коротким из всех языков, но вот моя попытка с MATLAB:

n=input('');x=1:n-1;f=x(~rem(n,x));s=sum(f);a='not ';b=strjoin(strtrim(cellstr(num2str(f')))',' + ');if(s>n) c=' > ';elseif(s<n) c=' < ';else c=' == ';a='';end;disp(['I am ' a 'a perfect number, because ' b ' = ' num2str(s) c num2str(n)])

И это в несколько более читаемой форме:

n=input();      %Read in the number using the input() function
x=1:n-1;        %All integers from 1 to n-1
f=x(~rem(n,x)); %Determine which of those numbers are divisors
s=sum(f);       %Sum all the divisors
a='not ';       %We start by assuming it is not perfect (to save some bytes)
b=strjoin(strtrim(cellstr(num2str(f')))',' + '); %Also convert the list of divisors into a string 
                                                 %where they are all separated by ' + ' signs.
%Next check if the number is >, < or == to the sum of its divisors
if(s>n)  
    c=' > ';    %If greater than, we add a ' > ' to the output string
elseif(s<n) 
    c=' < ';    %If less than, we add a ' < ' to the output string
else
    c=' == ';   %If equal, we add a ' == ' to the output string
    a='';       %If it is equal, then it is a perfect number, so clear the 'not' string
end

%Finally concatenate the output string and display the result
disp(['I am ' a 'a perfect number, because ' b ' = ' num2str(s) c num2str(n)])

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

Том Карпентер
источник
1

Perl 6 , 138 байт

$_=get;
my$c=$_ <=>my$s=[+] my@d=grep $_%%*,^$_;
say "I am {
    'not 'x?$c
  }a perfect number, because {
    join ' + ',@d
  } = $s {
    «> == <»[1+$c]
  } $_"

(Счетчик игнорирует переводы строки и отступы, потому что они не нужны)

@dмассив, содержащий делители
$sсодержит сумму делителей.
$cявляется значением сравнения между входом и суммой делителей.
(Фактически $cэто один из -1, 0, 1, но на самом деле один из Order::Less, Order::Sameили Order::More)

В 'not 'x?$c, ?$cв этом случае фактически такой же , как abs $cи xоператор строки повторения.

«> == <»это сокращение от ( '>', '==', '<' ).
Так как $cимеет одно из -1,0,1, мы должны сдвинуть его на единицу, чтобы иметь возможность использовать его для индексации в списке.

Технически это будет работать для чисел значительно выше 2⁶⁴, но занимает слишком много времени для чисел выше 2¹⁶.

Брэд Гилберт b2gills
источник
0

Pyth, 84 байта

jd+,+"I am"*.aK._-QsJf!%QTtUQ" not""a perfect number, because"+.iJm\+tJ[\=sJ@"=<>"KQ

Неверный ответ, потому что я отказываюсь реализовать =и ==в том же уравнении.

orlp
источник
2
+1 за отказ "реализовать = и == в одном уравнении".
theonlygusti
0

Рубин, 164 байта

->i{t=(1...i).select{|j|i%j==0};s=t.inject &:+;r=['==','>','<'][s<=>i];puts "I am #{'not ' if r!='=='}a perfect number, because #{t.join(' + ')} = #{s} #{r} #{i}"}

Тест

irb(main):185:0> ->i{t=(1...i).select{|j|i%j==0};s=t.inject &:+;r=['==','>','<'][s<=>i];puts "I am #{'not ' if r!='=='}a perfect number, because #{t.join(' + ')} = #{s} #{r} #{i}"}.call 6
I am a perfect number, because 1 + 2 + 3 = 6 == 6

irb(main):186:0> ->i{t=(1...i).select{|j|i%j==0};s=t.inject &:+;r=['==','>','<'][s<=>i];puts "I am #{'not ' if r!='=='}a perfect number, because #{t.join(' + ')} = #{s} #{r} #{i}"}.call 12
I am not a perfect number, because 1 + 2 + 3 + 4 + 6 = 16 > 12

irb(main):187:0> ->i{t=(1...i).select{|j|i%j==0};s=t.inject &:+;r=['==','>','<'][s<=>i];puts "I am #{'not ' if r!='=='}a perfect number, because #{t.join(' + ')} = #{s} #{r} #{i}"}.call 13
I am not a perfect number, because 1 = 1 < 13
Васу Адари
источник
0

Emacs Lisp, 302 байта

(defun p(n)(let((l(remove-if-not'(lambda(x)(=(% n x)0))(number-sequence 1(- n 1)))))(setf s(apply'+ l))(format"I am%s a perfect number, because %s%s = %s %s %s"(if(= s n)""" not")(car l)(apply#'concat(mapcar'(lambda(x)(concat" + "(number-to-string x)))(cdr l)))s(if(= sum n)"=="(if(> sum n)">""<"))n)))

Безголовая версия:

(defun perfect (n)
  (let ((l (remove-if-not '(lambda (x) (= (% n x) 0))
              (number-sequence 1 (- n 1)))))
    (setf sum (apply '+ l))
    (format "I am%s a perfect number, because %s%s = %s %s %s" (if (= sum n)"" " not") (car l)
        (apply #'concat (mapcar '(lambda (x) (concat " + " (number-to-string x))) (cdr l)))
        sum (if(= sum n)
            "=="
          (if(> sum n)
              ">"
            "<"))
        n)))
плаксивый
источник
0

Powershell, 164 байта

$a=$args[0]
$b=(1..($a-1)|?{!($a%$_)})-join" + "
$c=iex $b
$d=$a.compareto($c)
"I am $("not "*!!$d)a perfect number, because $b = $c $(("==","<",">")[$d]) $a"

Несколько распространенных и не очень распространенных трюков с PoSh;

  • Создайте сумму, затем оцените ее с помощью iex
  • Сравните для индексации массива gt, lt, eq
  • $ d будет иметь значение true == 1 для $ d = 1 или -1, а false == 0 для $ d = 0
tomkandy
источник
0

awk, 150

n=$0{for(p=i=s=n>1;++i<n;)for(;n%i<1;p+=i++)s=s" + "i;printf"I am%s a perfect number, because "s" = "p" %s "n RS,(k=p==n)?_:" not",k?"==":p<n?"<":">"}

Потрачено впустую несколько байтов, чтобы исправить это для ввода 1. Я не уверен, что это ожидается.

n=$0{
    for(p=i=s=n>1;++i<n;)
        for(;n%i<1;p+=i++)s=s" + "i;
    printf "I am%s a perfect number, because "s" = "p" %s "n RS,
           (k=p==n)?_:" not",k?"==":p<n?"<":">"
}
Cabbie407
источник
0

05AB1E , 58 байт

„I€ÜIѨ©OIÊi'€–}“€…íÀ‚³,ƒ«“®vy'+}\'=®ODI.S"==><"211S£sèIðý

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

Объяснение:

„I€Ü              # Push dictionary string "I am"
IѨ               # Push the divisors of the input-integer, with itself removed
   ©              # Store it in the register (without popping)
    O             # Get the sum of these divisors
     IÊi   }      # If it's not equal to the input-integer:
        '€–      '#  Push dictionary string "not"
“€…íÀ‚³,ƒ«“       # Push dictionary string "a perfect number, because"
®v   }            # Loop `y` over the divisors:
  y'+            '#  Push the divisor `y`, and the string "+" to the stack
      \           # Discard the final "+"
       '=        '# And push the string "="
®O                # Get the sum of the divisors again
  D               # Duplicate it
I.S               # Compare it to the input-integer (-1 if smaller; 0 if equal; 1 if larger)
   "==><"         # Push string "==><"
         211S£    # Split into parts of size [2,1,1]: ["==",">","<"]
              sè  # Index into it (where the -1 will wrap around to the last item)
I                 # Push the input-integer again
ðý                # Join everything on the stack by spaces
                  # (and output the result implicitly)

Посмотрите этот мой совет 05AB1E (раздел Как использовать словарь? ), Чтобы понять, почему „I€Üесть "I am", '€–есть "not"и “€…íÀ‚³,ƒ«“есть "a perfect number, because".

Кевин Круйссен
источник