Crazy Librarianの興味深いPrime Permutation Index Number Generator

13

プライムシーケンスコードで1日を節約し、数学の先生はそれを気に入ってくれました。あまりにも多くのことで、司書（あなたの上司）に新たな挑戦がもたらされました。おめでとうございます。図書館員が数学教師に再び感銘を与えることができるように、ソリューションをコーディングすることができます。

10を底とするNの自然数のシーケンスから始めます

0、1、2、3、4、5、6 ...

0およびを除外すると1、このシーケンスのすべての数値は、P、P

2、3、5、7、11、13 ...

またはコンポジット、C

4、6、8、9、10、12、14、15、16、18、20、20 ...

司書思想から数の小数展開に整数数字を挿入する方法に反映P、数学教師ではなく関数作成G（x、y）は数取りxからNと1 <= x <= 9し、番号をyからCとインサートxにしy一意の数字のみを選択して、左から右の順に、すべての位置の10進数展開。

たとえば、G（3,14）は314, 134, 143です。しかし、G（1,14）があるだけで114, 141、あなたが前に付加または挿入するかどうかのように、1中に14、同じ番号が114生成されます。

数学の先生は、あなたがの番号を取得する前に、これらの置換を行う必要があるだろう何回不思議に思っPを、あなたがかかった場合、x昇順に。数学の先生は、これを数値の複合プライムインデックスと呼び、CPI（y）と書きました。

たとえば、4：二回しか行われる必要が14, 41あるため、41素数であるので、CPI（4）があります2。ただし、素数になる前に86回行う必要があるため、CPI（8）はです。18, 81, 28, 82, 38, 83836

あなたの仕事は、入力番号を指定して、このComposite-Prime Indexを出力するコードを書くことです。

入力

  • 単一の整数yような、yであるC、関数の引数、STDIN、または同等介して入力。
  • 計算のためyに、通常の整数範囲に収まると仮定できます（たとえば、上限を2 31 -1 と仮定）。
  • Cにyない場合の動作は未定義です。

出力

上記のように計算された結果のComposite-Prime Indexは、2つの例外を除き、STDOUTまたは同等のものに出力されます。

  • 場合は非常に最後の順列は（すなわち、追加9するにはy）首相、出力結果は1です-1。以下に展開する例はy=14です。
  • 順列がない場合（つまり、G（x、y）がすべてのCのサブセットである場合1 <= x <= 9）、output 0。以下に展開する例はy=20です。

例

 y -> operations             : output
 4 -> 14, 41                 : 2
 6 -> 16, 61                 : 2
 8 -> 18, 81, 28, 82, 38, 83 : 6
 9 -> 19                     : 1
10 -> 110, 101               : 2
12 -> 112, 121, 212, 122, 312, 132, 123, 412, 142, 124, 512, 152, 125, 612, 162, 126, 712, 172, 127 : 19
14 -> 114, 141, 214, 124, 142, 314, 134, 143, 414, 144, 514, 154, 145, 614, 164, 146, 714, 174, 147, 814, 184, 148, 914, 194, 149 : -1
15 -> 115, 151               : 2
16 -> 116, 161, 216, 126, 162, 316, 136, 163 : 8
18 -> 118, 181               : 2
20 -> 120, 210, 201, 220, 202, 320, 230, 203, 420, 240, 204, 520, 250, 205, 620, 260, 206, 720, 270, 207, 820, 280, 208, 920, 290, 209 : 0

制限事項

  • これはコードゴルフです。これは、図書館員が数学の先生を見せて、手がけいれんするのを簡単に示すことができるように、これをインデックスカードに転写する必要があるからです。
  • 標準的な抜け穴の制限が適用されます。司書は不正行為を容認しません。

リーダーボード

コードスニペットを表示

code-golf  math  sequence  primes  number-theory 
— AdmBorkBork
ソース
9の場合、19素数であるため、出力を1にすべきではありませんか？
— isaacg
うわー、クールな回答表！
— カスケードスタイル
1
@ cascading-styleリーダーボードを意味する場合、それは主にマーティンの手仕事です。
— AdmBorkBork 16

回答:

2

ハスケル、166 161バイト

p n=mod(product[1..n-1]^2)n>0
q=p.read
n#c=[h++c:t|i<-[0..length n],(h,t)<-[splitAt i n]]
[y]%i|q y= -1|1<2=0
(y:z)%i|q y=i|1<2=z%(i+1)
f n=((n#)=<<['1'..'9'])%1

使用例：f "8"-> 6、f "14"->-1、f "20"-> 0。

仕組み：p素数テスト（@Maurisの別の課題での回答から盗まれた）です。型を文字列から整数に変換するqためのラッパーp。n # cのcすべての位置に挿入しnます。%数字のリストとインデックスを取りますi。リストの最初の要素が素数である場合、return i、そうでない場合はリストの末尾およびで再帰しi+1ます。単一の要素が残っているときに停止し、-1それが素数である0場合はそれ以外を返します。

— ニミ
ソース
1

Minkolang 0.11、85バイト

n1(l*$d`)d9[i3G(0c2c$%$r2c*l*2c3c1+*++2gl:d2G)2gx1c2G3gx]r3XS(2M4&I)N.ikI1-4&1~N.1+N.

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

説明（近日公開予定）

n            Take integer from input (say, n)
1(           Calculate smallest power of 10 greater than n (say, a)
  l*         Multiply by 10
    $d`      Duplicate stack and push n>a
       )     Close while loop (ends when n<=a)
        d    Duplicates a (let's call it b)

9[                                                 For loop that runs 9 times 
  i1+                                              Loop counter + 1 (say, i)
     3G                                            Puts the loop counter in position 3
       (                                           Opens while loop
        0c2c$%                                     Copies n and b and pushes n//b, n%b
              $r                                   Swaps top two elements of stack
                2c*l*                              Copies b and multiplies by 10
                     2c3c*                         Copies b and i and multiplies them
                          ++                       Adds it all together (inserts i)
                            2gl:                   Gets b and divides by 10
                                d2G                Duplicates and puts one copy back
                                   )               Closes while loop (breaks when b=0)
                                    2gx            Gets and dumps b
                                       1c2G        Copies a and puts it in b's place
                                           3gx     Get and dumps i
                                              ]    Close for loop

r       Reverses stack
 3X     Dumps the top three elements (namely, n, a, and b)
   S    Removes duplicates

(                           Opens while loop
 2M                         Pushes 1 if top of stack is prime, 0 otherwise
   4&                       Jump four spaces if prime
     I)N.                   If the loop actually finishes, then all were composite,
                             so output 0 and stop.
         ik                 Pushes loop counter and breaks
           I1-              Pushes length of stack minus 1 (0 if last one was prime)
              4&1~N.        If this is 0, pushes -1, outputs as integer, and stops.
                    1+N.    Adds 1, outputs as integer, and stops.
— エレンディア・スターマン
ソース
1

Javascript、324バイト

y=>(p=(n,c)=>n%c!=0?c>=n-1?1:p(n,++c):0,u=a=>a.filter((c,i)=>a.indexOf(c)==i),g=(x,y)=>u(((x,y,z)=>z.map((c,i)=>z.slice(0,i).join("")+x+z.slice(i).join("")).concat(y+x))(x,y,y.split(''))),h=(x,y)=>g(x,y).concat(x==9?[]:h(++x,y)),i=h(1,y).reduce((r,c,i)=>r?r:p(c,2)?i+1:0,0),console.log(p(y,2)||y<2?'':i==h(1,y).length?-1:i))

yがCにない場合、STDOUT出力は空です。

説明

y=>(
    //Prime Test function
    p=(n,c)=>n%c!=0?c>=n-1?1:p(n,++c):0,

    //Unique function
    u=a=>a.filter((c,i)=>a.indexOf(c)==i),

    //Generates numbers from a couple x and y
    g=(x,y)=>u(((x,y,z)=>z.map((c,i)=>z.slice(0,i).join("")+x+z.slice(i).join("")).concat(y+x))(x,y,y.split(''))),

    //Generates all possible numbers from y using recusion
    h=(x,y)=>g(x,y).concat(x==9?[]:h(++x,y)),

    //Check if any prime in the generated numbers
    i=h(1,y).reduce((r,c,i)=>r?r:p(c,2)?i+1:0,0),

    console.log(
        //Is Y in C ?
        p(y,2)||y<2?
            ''
            :
            // Check if the answer is not the last one
            i==h(1,y).length?-1:i)
    )
— ナウアック
ソース
これにコメントするのは非常に遅いかもしれませんがn%c!=0、n%c;に置き換えて数バイト節約できませんでした。c>=n-1とc>n-2; とx==9とx-9？
— ザカリー
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.