Sphenic Number, tam olarak üç ayrı astarın çarpımıdır. İlk birkaç Sphenic sayılardır 30, 42, 66, 70, 78, 102, 105, 110, 114. Bu, OEIS'deki A007304 dizisidir .

Senin görevin:

Girilen bir tamsayının Sphenic sayı olup olmadığını belirlemek için bir program veya işlev yazın.

Giriş:

Sphenic Number olabilen veya olamayabilen 0 ile 10 ^ 9 arasında bir tam sayı.

Çıktı:

Girişin Sphenic Number olup olmadığını gösteren bir truthy / falsy değeri.

Örnekler:

30  -> true
121 -> false
231 -> true
154 -> true
4   -> false
402 -> true
79  -> false
0   -> false
60  -> false
64  -> false
8   -> false
210 -> false

puanlama:

Bu kod golf , bayt cinsinden kazanılan en kısa koddur.

Brachylog , 6 3 bayt

ḋ≠Ṫ

Çevrimiçi deneyin!

açıklama

ḋ        The prime factorization of the Input…
 ≠       …is a list of distinct elements…
  Ṫ      …and there are 3 elements

bash, 43 bayt

factor $1|awk '{print $2-$3&&$3-$4&&NF==4}'

Çevrimiçi deneyin!

Komut satırı argümanı üzerinden girdi, çıktı 0veya 1stdout.

Oldukça kendini açıklayıcı; factorBirinci ve ikinci faktörlerin farklı olduğunu, ikinci ve üçüncülüğün farklı olduğunu kontrol etmek için çıktıyı ayrıştırır (sıralı düzendedirler, bu yüzden bu yeterlidir) ve dört alan vardır (giriş numarası ve üç faktör).

MATL , 7 bayt

_YF7BX=

Çevrimiçi deneyin! Veya tüm test durumlarını doğrulayın .

açıklama

_YF   % Implicit input. Nonzero exponents of prime-factor decomposition
7     % Push 7
B     % Convert to binary: gives [1 1 1] 
X=    % Is equal? Implicit display

C, 88 78 126 58 77 73 + 4 ( lm) = 77 bayt

l,j;a(i){for(l=1,j=0;l++<i;fmod(1.*i/l,l)?i%l?:(i/=l,j++):(j=9));l=i==1&&j==3;}

Ungolfed yorum yaptı:

look, div; //K&R style variable declaration. Useful. Mmm.

a ( num ) { // K&R style function and argument definitions.

  for (
    look = 1, div = 0; // initiate the loop variables.
    look++ < num;) // do this for every number less than the argument:

      if (fmod(1.0 * num / look, look))
      // if num/look can't be divided by look:

        if( !(num % look) ) // if num can divide look
          num /= look, div++; // divide num by look, increment dividers
      else div = 9;
      // if num/look can still divide look
      // then the number's dividers aren't unique.
      // increment dividers number by a lot to return false.

  // l=j==3;
  // if the function has no return statement, most CPUs return the value
  // in the register that holds the last assignment. This is equivalent to this:
  return (div == 3);
  // this function return true if the unique divider count is 3
}

Çevrimiçi deneyin!

CJam , 11 bayt

rimFz1=7Yb=

Çevrimiçi deneyin! Veya tüm test durumlarını doğrulayın .

açıklama

MATL cevabıma dayanarak.

ri    e# Read integer
mF    e# Factorization with exponents. Gives a list of [factor exponent] lists
z     e# Zip into a list of factors and a list of exponents
1=    e# Get second element: list of exponents
7     e# Push 7
Yb    e# Convert to binary: gives list [1 1 1]
=     e# Are the two lists equal? Implicitly display

Jöle , 8 bayt

ÆEḟ0⁼7B¤

Çevrimiçi deneyin!

Luis Mido'nun algoritmasını kullanır.

Açıklama:

ÆEḟ0⁼7B¤
ÆE       Prime factor exponents
  ḟ0     Remove every 0
    ⁼7B¤ Equal to 7 in base 2?

Kabuğu , 6 bayt

≡ḋ3Ẋ≠p

Çevrimiçi deneyin!

Sfenik sayılar için 1, aksi takdirde 0 döndürür.

açıklama

≡ḋ3Ẋ≠p    Example input: 30
     p    Prime factors: [2,3,5]
   Ẋ≠     List of absolute differences: [1,2]
≡         Is it congruent to...       ?
 ḋ3           the binary digits of 3: [1,1]

Son bölümde, iki liste arasındaki uyum, aynı uzunluk ve aynı truthy / falsy değerlerinin dağılımına sahip olduğu anlamına gelir. Bu durumda, sonucumuzun iki hakikat (yani sıfır olmayan) değerlerden oluştuğunu kontrol ediyoruz.

Mathematica, 31 bayt

SquareFreeQ@#&&PrimeOmega@#==3&

Jöle , 6 bayt

ÆE²S=3

Çevrimiçi deneyin!

Nasıl çalışır

ÆE²S=3  Main link. Argument: n

ÆE      Compute the exponents of n's prime factorization.
  ²     Take their squares.
   S    Take the sum.
    =3  Test the result for equality with 3.

05AB1E , 7 5 bayt

ÓnO3Q

Çevrimiçi deneyin!

Dennis'in algoritmasını kullanır.

Aslında , 7 bayt

w♂N13α=

Çevrimiçi deneyin!

Açıklama:

w♂N13α=
w       Push [prime, exponent] factor pairs
 ♂N     Map "take last element"
   1    Push 1
    3   Push 3
     α  Repeat
      = Equal?

Haskell , 59 bayt

f x=7==sum[6*0^(mod(div x a)a+mod x a)+0^mod x a|a<-[2..x]]

Çevrimiçi deneyin!

J , 15 bayt

7&(=2#.~:@q:)~*

Çevrimiçi deneyin!

açıklama

7&(=2#.~:@q:)~*  Input: integer n
              *  Sign(n)
7&(         )~   Execute this Sign(n) times on n
                 If Sign(n) = 0, this returns 0
          q:       Prime factors of n
       ~:@         Nub sieve of prime factors
    2#.            Convert from base 2
   =               Test if equal to 7

Dyalog APL, 26 bayt

⎕CY'dfns'
((≢,∪)≡3,⊢)3pco⎕

Çevrimiçi deneyin!

Ruby, 81 49 46 bayt

Komut satırı seçenekleri için 6 bayt içerir -rprime.

->n{n.prime_division.map(&:last)==[1]*3}

Çevrimiçi deneyin!

Python 3 , 54 53 bayt

lambda n:sum(1>>n%k|7>>k*k%n*3for k in range(2,n))==6

1 byte kapalı golf için @xnor için teşekkürler!

Çevrimiçi deneyin!

C, 91 102 bayt, düzeltildi (tekrar), golf ve gerçek zamanlı olarak test edildi:

<strike>s(c){p,f,d;for(p=2,f=d=0;p<c&&!d;){if(c%p==0){c/=p;++f;if(c%p==0)d=1;}++p;}c==p&&f==2&&!d;}</strike>
s(c){int p,f,d;for(p=2,f=d=0;p<c&&!d;){if(c%p==0){c/=p;++f;if(c%p==0)d=1;}++p;}return c==p&&f==2&&!d;}

/ * Bu aynı zamanda 93 baytta da çalışır, ancak dinamik değişkenlerde varsayılan int türünü engelleyen standart kuralları ve atama olmadan örtük dönüş değerlerine izin vermemeyi unuttuğum için almayacağım:

p,f,d;s(c){for(p=2,f=d=0;p<c&&!d;){if(c%p==0){c/=p;++f;if(c%p==0)d=1;}++p;}p=c==p&&f==2&&!d;}

(C hakkında bir şey bildiğimi kim söyledi? ;-)

İşte yorumlarda kabuk betiği ile test çerçevesi:

/* betseg's program for sphenic numbers from 
*/
#include <stdio.h>
#include <stdlib.h>
#include <limits.h>
#include <math.h> /* compile with -lm */

/* l,j;a(i){for(l=1,j=0;l<i;i%++l?:(i/=l,j++));l=i==1&&j==3;} */
#if defined GOLFED
l,j;a(i){for(l=1,j=0;l++<i;fmod((float)i/l,l)?i%l?:(i/=l,j++):(j=9));l=i==1&&j==3;}
#else 
int looker, jcount;
int a( intval ) {
  for( looker = 1, jcount = 0; 
    looker++ < intval; 
    /* Watch odd intvals and even lookers, as well. */
    fmod( (float)intval/looker, looker )  
      ? intval % looker /* remainder? */
        ? 0 /* dummy value */
        : ( inval /= looker, jcount++ /* reduce the parameter, count factors */ ) 
      : ( jcount = 9 /* kill the count */ ) 
  )
    /* empty loop */;
  looker = intval == 1 && jcount == 3; /* reusue looker for implicit return value */
}
#endif

/* for (( i=0; $i < 100; i = $i + 1 )) ; do echo -n at $i; ./sphenic $i ; done */

Sürümüme ulaşmak için Betseg'in önceki cevabını ödünç aldım.

Bu benim çözümüme ulaşmak için golf oynadığım betseg'in algoritması versiyonum:

/* betseg's repaired program for sphenic numbers
*/
#include <stdio.h>
#include <stdlib.h>
#include <limits.h>

int sphenic( int candidate )
{
  int probe, found, dups;
  for( probe = 2, found = dups = 0; probe < candidate && !dups; /* empty update */ ) 
  { 
    int remainder = candidate % probe;
    if ( remainder == 0 ) 
    {
      candidate /= probe;
      ++found;
      if ( ( candidate % probe ) == 0 )
        dups = 1;
    }
    ++probe;
  } 
  return ( candidate == probe ) && ( found == 2 ) && !dups;
}

int main( int argc, char * argv[] ) { /* Make it command-line callable: */
  int parameter;
  if ( ( argc > 1 ) 
       && ( ( parameter = (int) strtoul( argv[ 1 ], NULL, 0 ) ) < ULONG_MAX ) ) {
    puts( sphenic( parameter ) ? "true" : "false" );
  }
  return EXIT_SUCCESS; 
}

/* for (( i=0; $i < 100; i = $i + 1 )) ; do echo -n at $i; ./sphenic $i ; done */

Pyth, 9 bayt

&{IPQq3lP

Burada dene.

Javascript (ES6), 87 bayt

n=>(a=(p=i=>i>n?[]:n%i?p(i+1):[i,...p(i,n/=i)])(2)).length==3&&a.every((n,i)=>n^a[i+1])

Örnek kod pasajı:

f=
n=>(a=(p=i=>i>n?[]:n%i?p(i+1):[i,...p(i,n/=i)])(2)).length==3&&a.every((n,i)=>n^a[i+1])

for(k=0;k<10;k++){
  v=[30,121,231,154,4,402,79,0,60,64][k]
  console.log(`f(${v}) = ${f(v)}`)
}

Python 2 , 135 121 bayt

• Çok uzun zamandır bu işlem tüm prosedürleri içeriyor: asal kontrol, asal alma faktörleri ve küre numarası durumunu kontrol etme

lambda x:(lambda t:len(t)>2and t[0]*t[1]*t[2]==x)([i for i in range(2,x)if x%i<1and i>1and all(i%j for j in range(2,i))])

Çevrimiçi deneyin!

Python 2 , 59 bayt

lambda x:6==sum(5*(x/a%a+x%a<1)+(x%a<1)for a in range(2,x))

Çevrimiçi deneyin!

J, 23 bayt

0:`((~.-:]*.3=#)@q:)@.*

Çevrimiçi deneyin!

8 ve 0 numaralarını kullanmak bunu temelde mahvetti ...

q: tüm asal faktörleri size verir, ancak 0'ı ele almaz

Japt , 14 bayt

k
k@è¥X ÉÃl ¥3

Çevrimiçi deneyin!

Mathematica, 44 bayt

Plus@@Last/@#==Length@#==3&@FactorInteger@#&

Çevrimiçi deneyin!

VB.NET (.NET 4.5), 104 bayt

Function A(n)
For i=2To n
If n Mod i=0Then
A+=1
n\=i
End If
If n Mod i=0Then A=4
Next
A=A=3
End Function

Fonksiyon isminin de değişken olduğu VB özelliğini kullanıyorum. Yürütme sonunda, return ifadesi olmadığından, bunun yerine 'işlev' değerini geçecektir.

Sonuncusu C tabanlı dillerde A=A=3düşünülebilir return (A == 3).

2'de başlar ve yinelemeli asalları çeker. En küçük harflerle başladığımdan beri, bileşik sayıya bölünemez.

Aynı prime göre bölmek için ikinci kez deneyeceğim. Eğer (60'ın nasıl 2'ye 2'ye bölündüğü gibi) ise, prim sayısını 4'e (sphenic sayı için izin verilen maksimum değerin üstünde) ayarlayacaktır.

Çevrimiçi Deneyin!

Dyalog APL, 51 49 48 46 45 43 bayt

1∊((w=×/)∧⊢≡∪)¨(⊢∘.,∘.,⍨){⍵/⍨2=≢∪⍵∨⍳⍵}¨⍳w←⎕

Çevrimiçi deneyin! (TryAPL'de çalışabilmesi için değiştirildi)

Uzun olsa bile dfns ad alanına dayanmayan bir tane göndermek istedim .

J, 15 14 19 bayt

Önceki deneme: 3&(=#@~.@q:)~*

Şimdiki versiyonu: (*/*3=#)@~:@q: ::0:

Nasıl çalışır:

(*/*3=#)@~:@q: ::0:  Input: integer n
               ::0:  n=0 creates domain error in q:, error catch returns 0
            q:       Prime factors of n
         ~:@         Nub sieve of prime factors 1 for first occurrence 0 for second
(*/*3=#)@            Number of prime factors is equal to 3, times the product across the nub sieve (product is 0 if there is a repeated factor or number of factors is not 3)

Bu önceki versiyonun yapmadığı 0, 8 ve 60 numaralı durumlar için geçerlidir.

Mathematica, 66 57 bayt

Length@#1==3&&And@@EqualTo[1]/@#2&@@(FactorInteger@#)&

Anonim bir işlev tanımlar.

olduğunu Transpoze .

açıklama

FactorIntegerfaktör çiftlerinin ve üslerinin bir listesini verir. Örn FactorInteger[2250]=={{2,1},{3,2},{5,3}}. Bu kullanım kolaylığı için transpoze edilir ve fonksiyona beslenir Length@#1==3&&And@@EqualTo[1]/@#2&. İlk bölüm Length@#1==33 benzersiz faktör And@@EqualTo[1]/@#2olup olmadığını , ikincisi ise tüm üslerin 1 olduğunu kontrol eder.

PHP, 66 bayt:

for($p=($n=$a=$argn)**3;--$n;)$a%$n?:$p/=$n+!++$c;echo$c==7&$p==1;

Pipe ile çalıştırın -nRveya çevrimiçi deneyin .

Sonsuz döngü 0; düzeltmek için $n&&önce takın --$n.

Yıkmak

for($p=($n=$a=$argn)**3;    # $p = argument**3
    --$n;)                  # loop $n from argument-1
    $a%$n?:                     # if $n divides argument
        $p/=$n                      # then divide $p by $n
        +!++$c;                     # and increment divisor count
echo$c==7&$p==1;            # if divisor count is 7 and $p is 1, argument is sphenic

Örnek
bağımsız değişken = 30:
temel faktör 2, 3ve 5
diğer bölenler olan 1, 2 * 3 = 62 * 5 = 10ve 3 x 5 = 15
, ürün: 1*2*3*5*6*10*15olup 27000==30**3

Python 99 bayt

def s(n):a,k=2,0;exec('k+=1-bool(n%a)\nwhile not n%a:n/=a;k+=10**9\na+=1\n'*n);return k==3*10**9+3

İlk başvuru. Yanlış bir şey yaptıysam beni affet. Biraz aptalca, faktörlerin sayısını sayar nve daha sonra kaç kişi ntarafından bölünebilir (10 ** 9 ekleyerek).

~ 10-20 karakterleri kesmenin birkaç kolay yolu olduğuna eminim, ama yapmadım.

Ayrıca bu, 10 ** 9'da intraktabl olarak yavaş. Yapılmış olabilir tamam değiştirerek '...a+=1\n'*niçin '...a+=1\n'*n**.5biz sadece kare köküne gitmeye gerek olarak, n.