チャレンジ：

の範囲の0 to Infinity非負の整数の配列が与えられた場合、それらのすべてが素数であるかどうかを確認します。（必要に応じて入力を文字列として受け取ることもできます）

入力：

入力：数字の配列

出力：すべての要素が次のいずれかに置き換えられた配列：

-1                 -----> If 0, 1
1                  -----> If it is a prime number greater than 1
the highest factor -----> If that number is not prime

-1（0、1）、1（素数> = 2の場合）、または指定された数の最大因子（非素数の場合）を返します

例：

[1, 2, 3, 4, 10, 11, 13]                        ---> [-1, 1, 1, 2, 5, 1, 1]
[100, 200, 231321, 12312, 0, 111381209, 123123] ---> [50, 100, 77107, 6156, -1, 1, 41041]

注意：

入力は常に有効です。つまり、数字のみで構成され、小数はテストされません。配列は空でもかまいませんが、空の場合は空の配列を返します。

制限：

これはコードゴルフなので、各言語のバイト単位の最短コードが優先されます。

リーダーボード：

これは、通常のリーダーボードと言語ごとの勝者の概要の両方を生成するスタックスニペットです。

回答が表示されるようにするには、次のマークダウンテンプレートを使用して、見出しから回答を開始してください。

# Language Name, N bytes

N提出のサイズはどこですか。スコアを改善する場合、古いスコアを打つことで見出しに残すことができます。例えば：

# Ruby, <s>104</s> <s>101</s> 96 bytes

ヘッダーに複数の数字を含める場合（たとえば、スコアが2つのファイルの合計であるか、インタープリターフラグペナルティーを個別にリストする場合）、実際のスコアがヘッダーの最後の数字であることを確認します。

# Perl, 43 + 2 (-p flag) = 45 bytes

言語名をリンクにして、リーダーボードスニペットに表示することもできます。

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=163882,OVERRIDE_USER=8478;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

ゼリー、 7 6 バイト

ÆḌṪ€o-

負でない整数のリストを受け入れ、-1以上の整数のリストを取得するモナドリンク。

オンラインでお試しください！

どうやって？

ご了承ください：

• すべての素数には単一の適切な除数（1）があります
• すべてのコンポジットには、複数の適切な除数があります（1つに他の除数）
• 適切な除数としての数字はありません
• Jellyのget-proper-divisorsアトムはÆḌ、昇順で適切な除数のリストを生成します
• 0と1には適切な除数がありません（それらは素数でも合成でもありません）
• Ṫ空のリストにJellyのテールアトムを適用すると、ゼロになります
• ゼロの適切な除数を持つ数値はありません（最大値であることは言うまでもありません）
• ゼリーではゼロ以外の数字はすべて真実ですが、ゼロは偽です

ÆḌṪ€o- | Link: list of integers   e.g. [ 0, 1,  2,  5,     10,    5183]
ÆḌ     | proper divisors (vectorises)  [[],[],[1],[1],[1,2,5],[1,71,73]]
  Ṫ€   | tail €ach                     [ 0, 0,  1,  1,      5,      73]
     - | literal minus one
    o  | logical OR (vectorises)       [-1,-1,  1,  1,      5,      73]

ゼリー、9 8バイト

@Dennisのおかげで1バイト節約

:ÆfṂ€$~~

オンラインでお試しください！またはすべてのテストケースを実行する

コメント済み

我々は両方のその事実を利用nanしてinfなる0ビット単位が適用されないときはゼリーに。

:ÆfṂ€$~~ - main link, taking the input list
 ÆfṂ€$   - treat these two links as a monad:
 Æf      -   get the lists of prime factors (0 --> 0; 1 --> empty list; prime --> itself)
    €    -   for each list,
   Ṃ     -   isolate the minimum prime factor (turns empty lists into 0)
:        - divide each entry by its minimum prime factor (0/0 --> nan; 1/0 --> inf)
      ~~ - bitwise NOT x2 (nan or inf --> 0 --> -1; other entries are unchanged)

R、68 62バイト

Map(function(n,v=rev(which(!n%%1:n)))"if"(n<2,-1,v[2]),scan())

ベースRのみを使用し、ライブラリを使用しないソリューション！6バイトのゴルフをしてくれたGiuseppeに感謝します。

scanスペースで区切られた数字のリストを読み取り、%%要因を特定するために使用します。v次に、すべての因子のベクトルが昇順で含まれます（1とnを含む）。これには、reverseのときに必要なv数が2番目になり、lengthまたはtail（nprimeの場合、vcontains n 1、それ以外の場合にn (factors in descending order) 1）の呼び出しを回避するという素晴らしい特性があります。

出力例（TIOリンクはこちら）：

> Map(function(n,v=rev(which(!n%%1:n)))"if"(n<2,-1,v[2]),scan())
1: 0 1 2 3 4 5 6 7 8 9
11: 
Read 10 items
[[1]]
[1] -1

[[2]]
[1] -1

[[3]]
[1] 1

[[4]]
[1] 1

[[5]]
[1] 2

[[6]]
[1] 1

[[7]]
[1] 3

[[8]]
[1] 1

[[9]]
[1] 4

[[10]]
[1] 3

リストが受け入れ可能な戻り値の型ではないと思う場合は、3バイトを交換しMapてsapply追加します。

05AB1E、11 9 8 バイト

Ñε¨àDd<+

-3のおかげバイト@Emigna変化、©d1-®+にDd<+と۬ۈしますε¨à。

私の2番目の05AB1Eの回答のみなので、間違いなくゴルフをすることができます。

オンラインでお試しください。

説明：

Ñ           # Divisors of each item in the input-list (including itself)
            #  [1,2,10,3] → [[1],[1,2],[1,2,5,10],[1,2,3]]
 ε          # For each:
  ¨         #  Remove last item (so it's now excluding itself)
            #   [[1],[1,2],[1,2,5,10],[1,2,3]] → [[],[1],[1,2,5],[1,2]]
   à        #  And get the max
            #   [[],[1],[1,2,5],[1,2]] → ['',1,5,2]
    D       # Duplicate the list
     d      # Is it a number (1 if it's a number, 0 otherwise)
            #  ['',1,5,2] → [0,1,1,1]
      <     # Subtract 1
            #  [0,1,1,1] → [-1,0,0,0]
       +    # Add both lists together
            #  ['',1,5,2] and [-1,0,0,0] → ['-1',1,5,2]

J、21バイト

_1:`(%{.@q:)@.(>&1)"0

オンラインでお試しください！

説明：

(>&1)"0 各数値は1より大きいですか？

@. そうでない場合は、戻ります _1:

(%{.@q:)2以上の場合%、数を最初{.の素因数で除算しますq:

Japt、6バイト

ゴルフの後、ジョナサンの解決策とほぼ同じで、同じくらい短いものになりました。

®â¬ÌªJ

それを試してみてください

説明

®          :Map
 ⬠       :  Proper divisors
   Ì       :  Get last element (returns null if the array is empty)
    ª      :  Logical OR
     J     :  -1

Python 3、62バイト

lambda l:[max([k for k in range(1,n)if n%k<1]+[-1])for n in l]

オンラインでお試しください！

ため0と1 range(1,n)、従ってコードが空に評価されますmax([]+[-1]) = -1。素数の場合、[1、n）の唯一の除数は1であり、これは望ましい出力です。

ココナッツ、50バイト

map$(n->max([k for k in range(1,n)if n%k<1]+[-1]))

オンラインでお試しください！

Java 8、105 103 87バイト

a->{for(int i=a.length,n,x;i-->0;a[i]=n<2?-1:n/x)for(n=a[i],x=1;++x<n;)if(n%x<1)break;}

バイトを節約するために新しい配列を返す代わりに、入力配列を変更します。

オンラインでお試しください。

説明：

a->{                  // Method with integer-array parameter and no return-type
  for(int i=a.length,n,x;i-->0;
                      //  Loop backward over the array
      a[i]=           //    After every iteration: change the current item to:
           n<2?       //     If the current item is 0 or 1:
            -1        //      Change it to -1
           :          //     Else:
            n/x)      //      Change it to `n` divided by `x`
     for(n=a[i],      //   Set `n` to the current item
         x=1;++x<n;)  //   Inner loop `x` in range [2,`n`)
       if(n%x<1)      //    If `n` is divisible by `x`:
         break;}      //     Stop the inner loop (`x` is now the smallest prime-factor)
                      //   (if the loop finishes without hitting the `break`,
                      //    it means `n` is a prime, and `x` and `n` will be the same)

Haskell、52 49バイト

map(\x->last$[d|d<-[1..x-1],mod x d<1]++[-1|x<2])

オンラインでお試しください！

map                     -- for each element in the input array
  \x->                  -- apply the lambda function
    last                -- pick the last element of the following list
     [d|d<-[1..x-1]     --  all d from 1 to x-1 
           ,mod x d<1]  --    where d divides x 
     ++[-1|x<2]         --  followed by -1 if x<2

殻、8バイト

m(|_1→hḊ

オンラインでお試しください！

説明

m(|_1→hḊ  Implicit Input         [1,2,3,4,10]
m(        Map each element
       Ḋ    List of divisors     [[1],[1,2],[1,3],[1,2,4],[1,2,5,10]]
     →h     Penultimate element  [0,1,1,2,5]
  |_1       If falsy then -1     [-1,1,1,2,5]

アタッシュ、23バイト

@{Max&-1!Divisors@_@-2}

オンラインでお試しください！

29バイト、ポイントフリー： @(Max&-1@Last@ProperDivisors)

24バイト、ポイントフリー： @(Max&-1@`@&-2@Divisors)

これは、単純に最後から2番目の除数を取得し、nその最大値とを取得し-1ます。要素が2つ未満の配列の最後から2番目の要素はnil、およびMax[-1, nil]です-1。@この関数を単純にベクトル化し、各アトムに適用します。

Wolfram言語（Mathematica）、33バイト

Divisors[#][[-2]]/._Part:>-1&/@#&

オンラインでお試しください！

R + numbers、88 79バイト

主に提出方法についてのいくつかのアドバイスに対するコメントに感謝します。

function(y)sapply(y,function(x)"if"(x<2,-1,prod(numbers::primeFactors(x)[-1])))

最小の要素を除くすべての素因数の積を使用し、空のベクトルの要素の積がであると定義されるという事実を使用します1。

オンラインでお試しください！

Brachylog、10バイト

{fkt|∧_1}ˢ

オンラインでお試しください！

以下の説明は、簡潔にするためにほとんどの場合必須であり、ブラキログの宣言的な性質を正確に反映していません。

{          Start of inline predicate.
           Implicit input to the predicate.
 f         Create a list of all of the input's factors (including itself).
  k        Remove the last item of this list so that it no longer contains the original number.
   t       Take the last item of the list with the last item removed.
           Implicitly unify the output with the aforementioned last item.
    |      If that failed, because one of the lists was empty...
     ∧     discarding the input, (there's probably some obvious reason ∨ won't work here but I don't know what it is)
      _1   unify the output with -1 instead.
        }  End of the inline predicate.
         ˢ For every item of the input, unify it with the predicate's input and get a list of the corresponding outputs.

浸透を通じて実際のPrologの動作の一部を学びたいと思って、コードゴルフを楽しみながらブラキログを学ぶことにしました。実行制御文字が機能します。

スタックス、14 13 バイト

ü±p╞Ö*«òτ♀╣â▀

実行してデバッグする

説明（開梱）：

m|fc%c{vsH1?}U? Full program, implicit input-parsing
m               Map
 |fc%c            Get factorisation and length of it (0 and 1 yield [])
      {     } ?   If length != 0:
       v            Decrement
           ?        If still != 0:
        sH            Last element of factorisation
           ?        Else:
          1           Push 1
              ?   Else:
             U      Push -1

マップ内の擬似コード：

f = factorisation(i)
l = length(f)
if l:
    if --l:
        return f[-1]
    else:
        return 1
else:
    return -1

Pyth、12バイト

me+_1f!%dTSt

ここで試してみてください

説明

me+_1f!%dTSt
m            Q    For each number d in the (implicit) input...
          Std     ... get the range [1, ..., d - 1]...
     f!%dT        ... take the ones that are factors of d...
  +_1             ... prepend -1...
 e                ... and take the last.

J、14バイト

1(%0{q:,-)@>.]

オンラインでお試しください！

nごとに、代わりに最大値（n、1）を取ります。
否定された数をその素因数のリスト（1の空のリスト）に追加し、リストの最初の項目で数を除算します。

また14バイト

(%0{q:) ::_1"0

オンラインでお試しください！

すべての数をその素因数の最初の要素で割ります。0ではドメインエラーが発生しq:、1の空のリストで0番目のアイテムを探します。これもエラーです。エラーが発生した数値の場合、-1を返します。

Japt、14 11 8バイト

®/k v)ªÉ
®        // For each input number,
 /k v    // return the number divided by it's first prime factor,
     )ªÉ // or -1 if such a number doesn't exist (the previous result is NaN).

オンラインでお試しください！

Shaggyのおかげで、これらの厄介な3バイトを削った。

JavaScript（Node.js）、61 55バイト

@shaggyのおかげで-6バイト

_=>_.map(_=>eval('for(v=_/(d=_>>1);v!=~~v;v=_/--d);d'))

オンラインでお試しください！

説明 ：

_ =>                                     // input i.e : the original array
    _.map(                               // map over all elements of the array
        eval('                           // eval a string
            for(v=_/(d=_>>1);            // set v = _ / _ >> 1 and set that to d
                v!=~~v;                  // and keep going until v !== floor(v)
                        v=_/d--);        // to _ / d again (d was changed)
                    d'                   // return d
            ))                           // end eval and map and function

これはまだ古いコードがこれを更新していないためです。

ES5にも対応：

 const primeOrNot = function(input) { // the function with argument input
      return input.map(function(value) { // returns the array after mapping over them
           d = Math.floor(value * 0.5); // multiply each element by 0.5 and floor it 
           for(let v = value / d; v != Math.floor(v);) { // for loop goes until v!=~~v
                d --; // subtract one from d
                v = value / d; // set v again to value / d
           }
           return d; // return d
      })
 };

Bash + GNUユーティリティ、49

• @Cowsquackのおかげで9バイト節約

factor|sed '/:$/c-1
/: \w+$/c1
s%: %/%
y/ /#/'|bc

説明

• factor STDINから入力番号を1行に1つずつ読み取り、次の形式で出力します <input number>: <space-separated list of prime factors (ascending)>
• sed これを次のように処理します。
  • /:$/c-1 入力番号0および1には素因数がなく、次のように置き換えられます -1
  • /: \w+$/c11つの素因数（自分自身）を持つ数は素数です。これらを置き換えます1
  • s%: %/%交換してください:と/。これにより、算術式が作成され、（非素数）入力数が最小の素因数で除算され、最大の因数が得られます
  • y/ /#/ 他の（不要な）要因のリストを削除する（コメントアウトする）
• bc 算術評価と表示

オンラインでお試しください！

パイソン2、61の 59バイト

lambda x:[max(k for k in[-1]+range(1,n)if n%k<1)for n in x]

オンラインでお試しください！

改善点

• デニスによる61〜59バイト。

JavaScript（Node.js）、37バイト

x=>x.map(a=>(f=t=>a%--t<1?t:f(t))(a))

オンラインでお試しください！

大量の入力に対する再帰的なスタックオーバーフロー

JavaScript（Node.js）、41バイト

x=>x.map(a=>eval('for(t=a;a%--t!=0;);t'))

オンラインでお試しください！

パリ/ GP、37バイト

a->[if(x<2,-1,x/divisors(x)[2])|x<-a]

オンラインでお試しください！

ラケット、105バイト

(λ(L)(map(λ(n)(if(< n 2)-1(p n(- n 1))))L))(define(p n d)(if(= d 1)1(if(=(modulo n d)0)d(p n(- d 1)))))

オンラインでお試しください！

Befunge-98（FBBI）、39バイト

j&:!+f0p1-1:::' -:!j;3k$.nbj;-\%!!j:1+a

オンラインでお試しください！

&数字がなくなると、で終わります。これにより、プログラムはTIOがプログラムを終了するまで60秒間停止します。Befunge-98では、少なくともTIOでは、両方のインタープリターがこれを行うため、これは避けられません。プレイを押した後、少し待ってから出力を確認するために、少し後にプログラムを停止できます。

基本的に、すべての新しい数値が0の場合、1に変わります。その後、スタックに-1を置き、その後に1から始まる数値を入力し、入力数値に達するまでカウントアップします。スタックの2番目の数値（0または1の入力の場合は-1、その他の場合は最高の係数）を出力します。ループを通るたびに、イテレーターの値をif（input % iterator == 0）の背後のスタックに追加します。つまり、入力に到達したら、イテレータを捨てて印刷するだけです。次に、スタックをクリアしnて、読み取り入力関数に戻ります。

私は後で説明を拡大するかもしれません、私たちは見るでしょう...

Retina 0.8.2、33バイト

%(`^0|^1$
-1
\d+
$*
^(1+)\1+$
$.1

オンラインでお試しください！リンクには、遅くないテストケースが含まれます。説明：

%(`

各入力番号をループします。

^0|^1$
-1

特殊なケース0および1。

\d+
$*

単項に変換します（-1には影響しません）。

^(1+)\1+$
$.1

各数値を10進数の最大の適切な係数で置き換えます。

tinylisp、75バイト

(load library
(q((L)(map(q((N)(i(l N 2)(- 1)(/ N(min(prime-factors N))))))L

オンラインでお試しください！（フッターで呼び出すことができるように、匿名関数に名前を付けるための4バイトが追加されています。）

未ゴルフ/説明

プライムに1を返すことに注意してください $n$ そして、以下の最大因子 $n$ コンポジット用 $n$ 組み合わせて返品可能 $n/p$ どこ $p$ の最小の素因数 $n$。

(load library)               Library gives us map, -, /, min, and prime-factors functions

(lambda (L)                  Anonymous function, takes a list of numbers L
 (map                         Map
  (lambda (N)                  Anonymous function, takes a number N
   (if (less? N 2)              If N < 2
    (- 1)                        -1; else
    (/ N                         N divided by
     (min                        the minimum
      (prime-factors N)))))      of the prime factors of N
  L)))                        ... to L