Обчисліть прості коефіцієнти

27

Нещодавно у нас виникла найважливіша проблема факторизації , але це завдання майже шість років і ледве відповідає нашим сучасним вимогам, тому я вважаю, що прийшов час для нового.

Виклик

Напишіть програму або функцію, яка приймає як вхід ціле число, що перевищує 1, і виводить або повертає список його основних факторів.

Правила

  • Введення та вихід можуть бути надані будь-яким стандартним методом та в будь-якому стандартному форматі.
  • У висновку повинні бути включені повторювані фактори.
  • Вихід може бути в будь-якому порядку.
  • Вхід не буде менше 2 або більше 2 31 - 1.
  • Вбудовані дозволені, але рекомендується включати не вбудоване рішення.

Тестові справи

2 -> 2
3 -> 3
4 -> 2, 2
6 -> 2, 3
8 -> 2, 2, 2
12 -> 2, 2, 3
255 -> 3, 5, 17
256 -> 2, 2, 2, 2, 2, 2, 2, 2
1001 -> 7, 11, 13
223092870 -> 2, 3, 5, 7, 11, 13, 17, 19, 23
2147483646 -> 2, 3, 3, 7, 11, 31, 151, 331
2147483647 -> 2147483647

Оцінка балів

Це код-гольф , тому виграє найкоротший код у байтах.

code-golf  primes  factoring 
— ETHproductions
джерело
2
Було б набагато краще, якби ви забороняли вбудовані модулі.
— Буфер Прочитайте
2
Виклики @TheBitByte, які забороняють вбудовані модулі, як правило, розглядаються як Do X без викликів Y , тим більше, що іноді важко сказати, чи є рішення технічно вбудованим.
— ETHproductions
1
Ну тоді насолоджуйтесь припливом <5 байтних рішень! Коли я це пишу, Pyth вже робить це в 1 байт.
— Буфер Прочитайте
2
@TheBitByte Вважайте це, перш за все, мовним мовним завданням. Спробуйте перемогти рішення Python чи іншу мову без вбудованого.
— isaacg
1
@isaacg Що ж, мова за мовою - це кращий спосіб поглянути на це, я згоден.
— Буфер над

Відповіді:

15

Піт , 1 байт

P

Мені подобаються шанси Піта в цьому виклику.

— isaacg
джерело
16
Поки мова "P" не з'явиться і не зробить її в 0 байтах
— downrep_nation
10

Python 2, 53 байти

f=lambda n,i=2:n/i*[f]and[f(n,i+1),[i]+f(n/i)][n%i<1]

Спробує iпо черзі кожен потенційний дільник . Якщо iдільник, попередньо передує його та перезапустить n/i. Ще, намагається наступний дільник. Оскільки дільники перевіряються в порядку зростання, виявляються лише основні.

Як програма, на 55 байт:

n=input();i=2
while~-n:
 if n%i:i+=1
 else:n/=i;print i
— xnor
джерело
8

Математика, 38 30 байт

Дякую @MartinEnder за 8 байт!

Join@@Table@@@FactorInteger@#&
— JungHwan Min
джерело
Як щодо FactorInteger[#][[All, 1]]&? 26 байт
— Девід Г. Лелека
@ DavidG.Stork, який би не працював, тому що він не повторить основні фактори, якщо потужність більша за 1.
— JungHwan Min
4

JavaScript (ES6), 44 байти

f=(n,x=2)=>n-1?n%x?f(n,x+1):[x,...f(n/x)]:[]

Жахливо неефективна через те, що вона ітералізує від 2 до кожного основного фактора, включаючи останній. Ви можете різко скоротити складність часу за ціною 5 байт:

f=(n,x=2)=>x*x>n?[n]:n%x?f(n,x+1):[x,...f(n/x,x)]
— ETHproductions
джерело
2

тон-глухий , 3 байти

Ця мова є досить молодою і ще не дуже готова до будь-якого значного, але вона може зробити основну факторизацію:

A/D

Це зачекає на введення користувачем, а потім виведе список основних факторів.

— Каде
джерело
1

Bash + coreutils, 19 байт

factor|sed s/.*:.//

Спробуйте в Інтернеті!

— Денніс
джерело
Ви можете поголити байт, якщо пробіл не має значення у використанні виводу factor|sed s/.*://. Також factor|cut -d: -f2(або factor|cut -d\ -f2відповідати вашому поточному виводу) така ж довжина байтів, але вона буде працювати швидше і використовувати менше витрат на пам'ять.
— Калеб
Я запитаю ОП про пробіли. На жаль, мені потрібно factor|cut -d\ -f2-усунути провідний простір, який на один байт довший.
— Денніс
1

Пакетна, 96 байт

@set/an=%1,f=2,r=0
:l
@set/af+=!!r,r=n%%f
@if %r%==0 echo %f%&set/an/=f
@if %n% gtr 1 goto l
— Ніл
джерело
1

Шестикутник , 58 байт

Ще не займався гольфом, але @MartinEnder повинен мати можливість знищити це все одно

Виводить фактори, розділені на простір, із заднім простором

Гольф:

2}\..}$?i6;>(<...=.\'/})."@...>%<..'':\}$"!>~\{=\)=\}&<.\\

Виклав:

     2 } \ . .
    } $ ? i 6 ;
   > ( < . . . =
  . \ ' / } ) . "
 @ . . . > % < . .
  ' ' : \ } $ " !
   > ~ \ { = \ )
    = \ } & < .
     \ \ . . .

Пояснення надходять пізніше.

— Синій
джерело
1

C, 92 байти

int p(int n){for(int i=2;i<n;i++)if(n%i==0)return printf("%d, ",i)+p(n/i);printf("%d\n",n);}

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

#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>

int prime(int number) {
    for (int i = 2; i < number; i++) {
        if (number % i == 0) {
            printf("%d, ", i);
            return prime(number / i); //you can golf away a few bytes by returning the sum of your recursive function and the return of printf, which is an int
        }                             //this allow you to golf a few more bytes thanks to inline calls
    }
    printf("%d\n", number);
}

int main(int argc, char **argv) {
    prime(atoi(argv[1]));
}
— Валентин Марієт
джерело
0

Perl 6 , 77 64 байт   

{my$a=$_;.is-prime??$_!!map ->\f{|({$a%f||($a/=f)&&f}...^*!= f)},(2... *>$a)}

Спробуй це

{my$a=$_;map ->\f{|({$a%f||($a div=f)&&f}...^ f>*)},(2... *>$a)}

Спробуйте (зверніть увагу: у нього не вистачає часу, щоб закінчити)

Набагато ефективніша версія трохи довша на 100 байт.

{my$a=$_;map ->\f{|({$a.is-prime??($/=$a)&&($a=0)||$/!!($a%f||($a div=f)&&f)}...^ f>*)},(2... *>$a)}

Спробуй це

Розширено: (64-байтна версія)

{
  my $a = $_;  # the input ｢$_｣ is read-only by default
  map
    -> \f {
      |(              # slip ( flattens into outer list )

        # generate sequence of 0 or more ｢f｣s
        {
          $a % f      # is it not evenly divisible

          ||          # if it is evenly divisible
          ($a div=f)  # divide it
          &&          # and
          f           # return ｢f｣
        }
        ...^   # keep doing that until
        f > *  # ｢f｣ is bigger
      )

    },

    # do that over the following list

    (2 ... * > $a) # generate a sequence from 2
                   # up to whatever the value of $a
                   # is at the time of the check
}
— Бред Гілберт b2gills
джерело
0

VB.NET, 86 байт

Це мало місце в деяких програмах Project Euler. Прибрали оптимізацію в інтересах короткості, і це результат. Природно, VB дуже багатослівний, тому досить довгий. Я не рахую провідних пробілів. Його можна опустити, але з ним простіше читати.

Це приймає ціле число як параметр і друкує прості множники комою після. На кінці є кінцева кома.

Sub A(a)
    For i=2To a ' VB re-evaluates a each time, so the /= at the end of the loop shortens this
        While a Mod i=0 ' this is a factor. We've grabbed primes before this, so this must be a prime factor
            Console.Write(i &",") ' output
            a/=i ' "mark" the prime as "used"
        End While
    Next
End Sub
— Брайан Дж
джерело
0

Java (OpenJDK) , 259 байт

import java.util.*;interface g{static void main(String[]z){int a=new Scanner(System.in).nextInt();int b=0;int[]l={};for(int i=2;i<=a;i++){for(;a%i<1;l[b-1]=i){l=Arrays.copyOf(l,b=l.length+1);a/=i;}}for(int i=0;i<b;i++)System.out.print(l[i]+(i<b-1?", ":""));}}

Спробуйте в Інтернеті!

— Павло
джерело
Перегляньте цю суть, щоб дізнатися, як можна подати подання в гольф далі: gist.github.com/kritixilithos/fde37dc5a8ae54852aa134a6e70ea495 . Якщо вам потрібно щось уточнити, не соромтесь
— надіслати
0

Рубін, 61 байт

require'prime';->x{x.prime_division.flat_map{|x|[x[0]]*x[1]}}

Найкоротша вбудована версія, яку я міг придумати.

— Сейми
джерело
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.