এটি একটি কচ্ছপ প্রধানমন্ত্রী?

Question

যেমনটি আমরা সবাই জানি, এটি সমস্তভাবে কচ্ছপ । কিন্তু এটি কি সমস্ত উপায়ে ডাউন?

নিম্নলিখিত সংস্থাগুলি যদি সন্তুষ্ট হয় তবে একটি সংখ্যা একটি "টার্টল-প্রাইম" হিসাবে বিবেচিত হয়:

1) It is prime.
2) It is possible to remove a single digit leaving a prime number.
3) Step 2 can be repeated until left with a single digit prime.

উদাহরণস্বরূপ, 239এটি একটি "টার্টল-প্রাইম", কারণ এটি হ্রাস করা যেতে পারে 23তখন হয় হয় 2বা 3উভয়ই প্রধান। এটি 29তখন কমেও যেতে পারে 2। 151এটি কোনও কচ্ছপ প্রধান নয়, কারণ এটি হ্রাস 15(প্রধান নয়), 51(প্রধান নয়), বা 11। 11প্রধান, তবে কেবল হ্রাস করতে পারে 1, যা তা নয়।

ধনাত্মক পূর্ণসংখ্যা দেওয়া, এটি "টার্টল-প্রাইম" কিনা তা নির্ধারণ করুন। আপনার ফলাফল আউটপুট যেকোন ফর্মে থাকতে পারে যতক্ষণ না এটি কোনও সত্যবাদী বা মিথ্যা মানের জন্য একই আউটপুট দেয়।

পরীক্ষার কেস:

input -> output
1     -> false
2     -> true
17    -> true
19    -> false
239   -> true
389   -> false

স্কোরিং

এটি কোড-গল্ফ , তাই প্রতিটি ভাষার সংক্ষিপ্ত উত্তরটি জিতে যায়!

Comments

সম্পর্কিত

— ম্যাজিক অক্টোপাস উরান

@MagicOctopusUrn ওয়াও

— Keyu সালে Gan

প্রকৃতপক্ষে সম্পর্কিত

— FryAmTheEggman

আমরা কি অঙ্কের তালিকা হিসাবে ইনপুট নিতে পারি?

— সম্পূর্ণমানবিক

তোমার অবস্থার বলে যে সব একক অঙ্ক মৌলিক হয় না কচ্ছপ মৌলিক। শর্ত ২ ব্যর্থ হয়: একটি সংখ্যা মুছে ফেলা সম্ভব নয় এবং এখনও একটি মৌলিক সংখ্যাটি রেখে দেওয়া যায়, কারণ কেবলমাত্র অঙ্কটি অপসারণ করে কিছুই থাকে না।

— এইচডিভি

Answer 1

জেলি , 16 বাইট

DŒPḊṖLÐṀḌ߀¬Ȧ<ÆP

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

DŒPḊṖLÐṀḌ߀¬Ȧ<ÆP  Main link. Argument: n

D                 Decimal; convert n to base 10.
 ŒP               Powerset; get all sub-arrays of n's decimal digits.
   Ḋ              Dequeue; remove the first sub-array (empty array).
    Ṗ             Pop; remove the last sub-array (all of n's digits).
     LÐṀ          Maximal by length; keep those of the remaining subarrays that
                  have maximal length. This keep exactly those sub-arrays that have
                  one (and only one) digit removed. If n < 10, this yields an empty
                  array. Without Ḋ, it would yield [[]] instead.
        Ḍ         Undecimal; turn the generated digit arrays into integers.
         ߀       Recursively map the main link over the generated integers.
           ¬      Negate; map 1 to 0 and 0 to 1.
            Ȧ     Any and all; yield 0 if the array is empty (n < 10) or any of the
                  recursive calls returned 1 (mapped to 0). If all calls returned
                  0, this will yield 1.
              ÆP  Test n for primality, yielding 1 for primes, 0 otherwise.
             <    Test if the result to the left is less than the result to the
                  right. This is possible only if the left result is 0 (n < 10 or
                  removing a digit results in a turtle prime) and the right result
                  is 1 (n itself is prime).

Comments

আরও জাদু জেলি! ম্যান, এই

— স্টাফটি

Answer 2

হাস্কেল , 104 102 99 98 97 95 91 বাইট

p x=product[2..x-1]^2`mod`x>0
f[]=1>0
f x|y<-zip[0..]x=or[f[snd b|b<-y,b/=a]|a<-y,p$read x]

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

প্রথমে আমরা একটি প্রাথমিক পরীক্ষা স্থাপন করি

p x=product[2..x-1]^2`mod`x>0

এটি কোনও ইনপুটটির আদিত্ব নির্ধারণের জন্য উইলসনের উপপাদ্যটি ব্যবহার করে ।

তারপরে আমরা একটি বেস কেস ঘোষণা করি, যা খালি স্ট্রিংটি সত্য বলে দাবি করবে।

f[]=1>0

এখন আমরা আসল ফাংশনটি সংজ্ঞায়িত করি

f x|y<-zip[0..]x=or[f[snd b|b<-y,b/=a]|a<-y,p$read x]

আবদ্ধ zip[0..]xহওয়ার জন্য আমরা একটি প্যাটার্ন গার্ড yব্যবহার করি কারণ আমাদের এটি পরে দু'বার ব্যবহার করা দরকার। তারপরে আমরা জোর দিয়েছি উত্তরটি

or[f[snd b|b<-y,b/=a]|a<-y,p$read x]

[[snd b|b<-y,b/=a]|a<-y]আমাদের ইনপুট থেকে মুছে ফেলা ডিজিটের সমস্ত নম্বর। সুতরাং আমরা জোর দিয়ে বলছি যে এর মধ্যে কমপক্ষে একটি সংখ্যার জন্য সত্য f। সম্মিলিত সংখ্যাগুলি মিথ্যা হয় তা নিশ্চিত করার জন্য আমরা যুক্ত করি prime$read x। যদি সংখ্যাটি প্রধান না হয় তবে তালিকাটি খালি হয়ে যাবে এবং anyখালি তালিকার তালিকাটি মিথ্যা।

Comments

−2 বাইট: any f[[↦or[f[

— অ্যান্ডারস কাসের্গ

−4 বাইট: [b|(i,b)<-y,i/=a]|(a,_)<-y↦[snd b|b<-y,b/=a]|a<-y

— অ্যান্ডারস কাসের্গ

Answer 3

আর, 124 122 120 113 95 93 106 105 বাইট

 g=pryr::f(`if`(gmp::isprime(sum(x*10^((l<-sum(x|1)-1):0))),any(!l,sapply(0:l+1,function(z)g(x[-z]))),!1))

যা ফাংশন মূল্যায়ন:

function (x) 
if (gmp::isprime(sum(x * 10^((l <- sum(x | 1) - 1):0)))) any(!l, 
    sapply(0:l + 1, function(z) g(x[-z]))) else !1

পুনরাবৃত্তির সমাধান। অঙ্কের তালিকা হিসাবে ইনপুট নেয়।

2 টি যৌক্তিক বিবৃতি আছে:

1. সংক্ষিপ্ত xযখন প্রধান হয়?

2. নিম্নলিখিতগুলির মধ্যে একটি TRUE:

   1. xনঞ্জেরোর দৈর্ঘ্য কি ? এটি আমাদের চূড়ান্ত সমাপ্তির শর্ত।

   2. কি f TRUEকোন উপসেট জন্য x?

প্রথম বিবৃতিটি নিশ্চিত করে যে আমরা কেবল প্রাইমগুলির সাথে কাজ চালিয়ে যাচ্ছি। দ্বিতীয়টি আসল পুনরাবৃত্তি করে।

@ জিউসেপ্পেকে ধন্যবাদ দুটি বাইট সংরক্ষণ করা হয়েছে।

বাগের কারণে আমাকে আমার কিছু গল্ফ ফিরিয়ে নিতে হয়েছিল, যেখানে আমি দুর্ঘটনাক্রমে পূর্ববর্তী ফাংশন সংজ্ঞা দিয়ে পরীক্ষা করছিলাম।

আর, 98 বাইট, প্রতিদ্বন্দ্বী

আমি মন্তব্যে উল্লিখিত মত, আমি একটি প্যাকেজ তৈরি । যেহেতু চ্যালেঞ্জটি আগে থেকেই বলেছে যে এটি প্রতিযোগিতামূলক নয় তবে আমি এটি কিছুটা প্রদর্শন করতে চেয়েছিলাম। এটি এখন পর্যন্ত খুব বেশি নয়, তবে আমরা সেখানে পৌঁছে যাব।

g=pryr::f(`if`(gmp::isprime(RG::C(x)),any(!(l<-sum(x|1)-1),sapply(0:l+1,function(z)g(x[-z]))),!1))

C() এটি প্যাকেজের প্রথম কাজ এবং সংখ্যার সাথে সংখ্যাসূচক অঙ্কগুলির যত্ন নেয়।

Comments

এর মধ্যে কয়েকটি অপারেশন (আপনার দিকে তাকিয়ে sum(x*10^(((l<-sum(x|1))-1):0))) খুব খারাপ অভিব্যক্তিপূর্ণ। আমি সত্যিই এর জন্য একটি গল্ফ প্যাকেজ তৈরি করার বিষয়ে বিবেচনা করছি R।

— জেএডি

এটা আমার সমাধান হয়ে যেত কিন্তু আমি প্রায় আমার মাথা মোড়ানো করতে পারেনি sapply... এছাড়াও আমি মনে করি আপনি কাজ করতে চান করতে পারেন f=pryr::f(...)বা অন্য আপনি ব্যবহার করতে হবে fএ sapply।

— জিউসেপে

@ জিউসেপে সব কিছুর জন্য একক চিঠির নাম: ডি প্যাকেজ gবা কিছু কল করবেন না কেন ?

— জাদে

একটি প্যাকেজের জন্য শুরু নির্মিত @Giuseppe: P দেখে নিন: github.com/JarkoDubbeldam/RG

— JAD

পছন্দ করুন আমি নিশ্চিত যে ভবিষ্যতের চ্যালেঞ্জগুলি অতিরিক্ত কীগুলি যুক্ত করতে হবে তা স্পষ্ট করে দেবে। স্ট্রিং ম্যানিপুলেশন বড়: এর জন্য কিছু কিছু el(strsplit(x,''))টন বাইট সংরক্ষণ করতে পারে।

— বিএলটি

Answer 4

জেলি , 19 বাইট

DJḟЀ`ịDḌḟ0߀¬Ȧ¬aÆP

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

DJḟЀ`ịDḌḟ0߀¬Ȧ¬aÆP                input:239

D                    decimal         [2,3,9]
 J                   range@length    [1,2,3]
  ḟЀ`               filter out each [[2,3],[1,3],[1,2]]
      ịD             index&decimal   [[3,9],[2,9],[2,3]]
        Ḍ            undecimal       [39,29,23]
         ḟ0          filter out 0    [39,29,23]
           ߀        this@each       [1,1,1]
             ¬       logical not     [0,0,0]
              Ȧ      any and all     0
               ¬     logical not     1
                aÆP  and&is_prime    1

বেস কেস ftw ছাড়া পুনরাবৃত্তি।

Answer 5

জেলি , 27 26 বাইট

DµœcL’$Ḍµ€FÆPÐf
×⁵WÇÐĿFṪ<8

পূর্ণসংখ্যার গ্রহণ এবং ফেরত দেওয়ার এক মোনাডিক লিঙ্ক ( অন্যথায় 1কচ্ছপের জন্য 0)।

এটি অনলাইন চেষ্টা করুন!

কিভাবে?

DµœcL’$Ḍµ€FÆPÐf  Link 1: primes by digit removal: list of numbers  e.g. [19790]
D                cast to decimal list (vectorises)                      [[1,9,7,9,0]]
 µ      µ€       monadic chain for €ach:
      $            last two links as a monad:
    L                length                                             5
     ’               decrement                                          4
  œc             combinations without replacement                       [[1,9,7,9],[1,9,7,0],[1,9,9,0],[1,7,9,0],[9,7,9,0]]
       Ḍ         cast from decimal list (vectorises)                    [1979,1970,1990,1790,9790]
          F      flatten (from a list of lists form the for €ach to a single list)
             Ðf  filter keep if:
           ÆP      is prime?

×⁵WÇÐĿFṪ<8  Main Link: number, n             e.g. 1979
 ⁵          literal 10
×           multiply                              19790
              (this is so the first number is tested as prime too)
  W         wrap in a list                        [19790]
    ÐĿ      loop, collecting results (including the input×10) while change still occurs:
   Ç          call the last (1) link as a monad   [[19790],[1979],[197,199,179],[19,17,97,19,19,17,19,79],[7,7,7,7],[]]
      F     flatten                               [19790,1979,197,199,179,19,17,97,19,19,17,19,79,7,7,7,7]
       Ṫ    tail                                  7
        <8  less than 8?                          1
              (if a single digit prime was reached this will be 1
               otherwise it will be 0
               e.g. an input of 4 yields 40 at the end which is not <8)

Comments

দুটি আকর্ষণীয় জেলি দুটি উত্তর দেখতে আকর্ষণীয়। তাদের কে আরও কম কেটে ফেলতে পারে তা দেখুন।

— লর্ড ফারকোয়াড

Answer 6

রুবি , 72 57 + 8 = 80 65 বাইট

-rprimeপতাকা ব্যবহার করে । হিস্টোক্র্যাট থেকে -15 বাইট!

f=->n{n==''||n.to_i.prime?&!n.scan(/./){f[$`+$']&&break}}

এটি অনলাইন চেষ্টা করুন!

Comments

আপনি ন্যায়বিচারের &&!!সাথে প্রতিস্থাপন করতে পারেন &, এটি ফলাফলটি একটি বুলিয়ানকে ফেলে দেবে। আপনার পুনরাবৃত্ত কলটি পেরিলিসম ব্যবহার করে কিছুটা খাটোও পেতে পারে:!n.scan(/./){f[$`+$']&&break}}

— হিস্টোক্র্যাট

@ ইতিহাসবিদ আহা হ্যাঁ, আমি ভুলে গিয়েছিলাম যে প্রাথমিক অবস্থার কারণে আমার শেষ অংশের জন্য বুলিয়ান শর্ট সার্কিটের দরকার নেই। আপনি জানেন যে n.scanকৌশলটি কেন সেভাবে কাজ করে?

— মূল্য কালি

হ্যাঁ, সেখানে দুটি গ্লোবাল ভেরিয়েবল সর্বাধিক সাম্প্রতিক ম্যাচের বাম এবং ডানে স্ট্রিংয়ে সেট হয়েছে, সুতরাং তাদের সাথে সংযুক্ত করে স্ট্রিং বিয়োগটি একটি চরিত্র দেয়। যেহেতু আমাদের পুনরাবৃত্তির প্রতিটি বিন্দুতে রাষ্ট্রের প্রয়োজন, আমরা এর মতো কিছু করতে পারি না .scan.findতবে আমরা সাফল্যের সাথে লুপটি নিজেই বের করতে পারি। যদি আমরা ভাঙ্গি , scanফিরে আসে nil, অন্যথায় এটি স্ট্রিংটি দেয় যা সর্বদা সত্য।

— হিস্টোক্র্যাট

Answer 7

জাভা, 220 বাইট

এটি অনলাইন চেষ্টা করুন!

Golfed:

boolean t(String n){int l=n.length();if(f(x->{for(int i=2;i<x;)if(x%i++==0)return 1<0;return x>1;},new Integer(n)))if(l<2)return 1>0;else for(int i=0;i<l;)if(t(n.substring(0,i)+n.substring(++i,l)))return 1>0;return 1<0;}

Ungolfed:

  boolean t(String n) {
    int l = n.length();
    if (f(x -> {
      for (int i = 2; i < x;) {
        if (x % i++ == 0) {
          return 1 < 0;
        }
      }
      return x > 1;
    } , new Integer(n))) {
      if (l < 2) {
        return 1 > 0;
      }
      else {
        for (int i = 0; i < l;) {
          if (t(n.substring(0, i) + n.substring(++i, l))) {
            return 1 > 0;
          }
        }
      }
    }
    return 1 < 0;
  }

Comments

আমার আগের মন্তব্যটি উপেক্ষা করুন। তবে আপনি এটিকে গল্ফ করতে পারেন: boolean t(String n){int l=n.length(),x=new Integer(n),i;for(i=2;i<x;x=x%i++<1?0:x);if(x>1)if(l<2)return 1>0;else for(i=0;i<l;)if(t(n.substring(0,i)+n.substring(++i,l)))return 1>0;return 1<0;}( 191 বাইট )

— কেভিন ক্রুইজসেন

আপনি সত্য এবং মিথ্যা পরিবর্তে 1 এবং 0 ফিরিয়ে কিছু বাইট সংরক্ষণ করতে পারেন।

— নেভায়ে

@ নেভায়ে সি ++ এ কাজ করবে তবে জাভাতে নয়। পূর্ণসংখ্যার স্পষ্টতই বুলিয়ানগুলিতে রূপান্তর করা যায় না।

নিশ্চিত না তবে fকোথা থেকে এসেছে?

— রোমান গ্রাফ

প্রশ্নটিতে বলা হয়েছে যে কোনও মান সত্য / মিথ্যা জন্য ব্যবহার করা যেতে পারে; কেবলমাত্র যেখানে আপনার পদ্ধতির বুলিয়ান ফলাফল প্রয়োজন সেখানে যদি শেষ অবস্থানে থাকে (যেখানে আপনি >0বুলিয়ান রূপান্তর করতে যোগ করতে পারেন ) যা কেভিন ক্রুইজসেনের সংস্করণে 2 * 2 + 1 * 4 = 8 বাইট সংরক্ষণ করতে হবে।

— নেভায়ে

Answer 8

05 এ বি 1 ই , 28 27 বাইট

Iterative সমাধান।

¸[D0èg2‹#εæ¨D€gZQÏDpÏ}˜]p1å

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

¸                              # wrap input in a list
 [                             # start a loop
  D0èg2‹#                      # if the length of the first element is less than 2, break
         ε                     # apply to each element in the list
          æ                    # compute powerset
           ¨                   # remove last element (the full number)
            D€gZQÏ             # keep only the elements whose length is the max length
                  DpÏ          # keep only primes
                     }         # end apply
                      ˜        # flatten list
                       ]       # end loop
                        p1å    # is any element in the resulting list prime

Answer 9

পাইথন 2 , 132 124 119 বাইট

-8 ধন্যবাদ @ ওয়েট উইজার্ডকে

-5 @ লিক্যুনকে ধন্যবাদ

p=lambda i:i>1and all(i%v for v in range(2,i))
f=lambda n:n<'0'or any(f(n[:i]+n[i+1:])for i in range(len(n)))*p(int(n))

এটি অনলাইন চেষ্টা করুন!

কিছু বিল্টিন প্রাইম চেকার ছাড়াই এটিকে হোন করার জন্য কিছু ভাবতে পারে না। স্ট্রিং হিসাবে নম্বর নেয় (আমি ধরে নিয়েছি এটি দেওয়া ওপিতে অঙ্কের তালিকার অনুমতি দেওয়া হয়েছে, তবে অন্য ল্যাম্বডায় +14 বাইট না হলে), এবং প্রতিটি "কচ্ছপযুক্ত" সংখ্যার কচ্ছপকে পুনরাবৃত্তি করে গণনা করে।

Comments

সংক্ষিপ্ত আদিমত্ব পরীক্ষা

— গম উইজার্ড

আমি মনে করি f=lambda n,i=0:n==''or p(int(n))and i<len(n)and(f(n[:i]+n[i+1:])or f(n,i+1))একটি বাইট সংরক্ষণ করে পাইথন গল্ফিং দক্ষতার সাথে আরও ভাল কিছু সম্ভবত এটি আরও ছোট করা যেতে পারে।

— নিল

@ নীল, এটি একটি বাইট সংরক্ষণ করে, তবে "যে কোনও সত্যবাদী বা মিথ্যা মানের জন্য একই আউটপুট" শব্দটি আমাকে তা গ্রহণ করতে বাধা দেয়, কারণ ইনপুট করা অন্যান্য মামলার মতো ফ্যালসের পরিবর্তে 0 প্রদান করে (-8 প্রিমিটিটি চেকের কারণে) । যদি ওপি বিভিন্ন (যদিও সমার্থক) আউটপুটগুলিতে অনুমতি দেয় তবে আমি এটি পরিবর্তন করব।

— আর্নল্ড পামার

দুঃখিত, আমার আগের পরামর্শটি অবৈধ। 119 বাইট

— ফাঁস নুন

Answer 10

সি #, 355 বাইট

namespace System{using B=Numerics.BigInteger;class A{static void Main(){Console.WriteLine(D(Console.ReadLine()));}static bool P(B x){if(x<2)return 1<0;B r=1;for(int i=1;i<=x-1;i++)r*=i;return(r+1)%x==0;}static bool D(string x){if(x.Length==0)return 1>0;bool b;if(b=P(B.Parse(x))){var n=1<0;for(int i=0;i<x.Length;i++)n|=D(x.Remove(i,1));b&=n;}return b;}}}

এটি অনলাইন চেষ্টা করুন!

আমার প্রথম কোড গল্ফ, তাই আমি আশা করি আমি এটি ঠিকঠাকভাবে করেছি। আমি এটিকে আরও ছোট করার কোনও উপায়ের কথা ভাবতে পারি না (বিগআইন্টিজারের পরিবর্তে ইন্ট ব্যবহার করা ব্যতীত, তবে আমি এটি করেছি যাতে এটি সমস্ত সরবরাহিত পরীক্ষার ক্ষেত্রে কাজ করে)। যাইহোক, এখানে একই সঠিকভাবে ফর্ম্যাট করা আছে:

namespace System
{
    using B = Numerics.BigInteger;
    class A
    {
        static void Main()
        {
            Console.WriteLine(D(Console.ReadLine()));
        }

        static bool P(B x)
        {
            if (x < 2)
                return 1<0;
            B r = 1;
            for (int i = 1; i <= x - 1; i++)
                r *= i;
            return (r + 1) % x == 0;
        }

        static bool D(string x)
        {
            if (x.Length == 0)
                return 1>0;
            bool b;
            if (b = P(B.Parse(x)))
            {
                var n = 1<0;
                for (int i = 0; i < x.Length; i++)
                    n |= D(x.Remove(i, 1));
                b &= n;
            }
            return b;
        }
    }
}

Answer 11

পার্ল 6 , 65 বাইট

my&f={.is-prime&&(10>$_||?grep {f +[~] .list},m:ex/^(.*).(.*)$/)}

এটি অনলাইন চেষ্টা করুন!

Answer 12

পিএইচপি , 164 বাইট

function t($n){for($i=1;++$i<$n;)if($n%$i<1)return 0;if($n<10)return $n>1;foreach($r=str_split($n)as$k=>$v){$q=$r;array_splice($q,$k,1);$z|=t(join($q));}return $z;}

এটি অনলাইন চেষ্টা করুন!

প্রাথমিকতার জন্য নম্বরটি পরীক্ষা করে শুরু হয়, তারপরে অঙ্কগুলি অ্যারে হিসাবে লুপ করে প্রতিটিকে বের করে আনা হয় এবং বাকীগুলিকে আবার একসাথে যোগদান করে এবং পুনরায় ফাংশনটির মাধ্যমে পুনরাবৃত্তভাবে খাওয়ান। প্রতিটি লিঙ্ক নীচের দিকে একটি লজিকাল ওআর করে, কেবলমাত্র trueসমস্ত প্রাইমের কমপক্ষে একটি পথ থাকলে সেখানে ফিরে আসে ।

Answer 13

জাভাস্ক্রিপ্ট 167 বাইট

n=>{a=[];for(i=1;i++<=n;)a.every(x=>i%x)?a.push(i):0;b=k=>(s=''+k,a.indexOf(k)>-1&&(k<10||[...s].some((x,i)=>(r=[...s],r.splice(i,1),b(~~(r.join('')))))));return b(n)}

ব্যাখ্যা

n=>{
    a=[];                             // create array to store primes in
    for(i=1;i++<=n;)                  // iterate from 2 to n
        a.every(x=>i%x)?a.push(i):0;  // if i % x is truthy for all x in a,
                                      // then i is prime
    b=k=>(                            // function to test is k is turtle prime
        s=''+k,                       // convert k to a string
        a.indexOf(k)>-1 && (          // if k is prime and
            k<10 ||                   // k is a single digit or
            [...s].some((x,i)=>(      // iterate over the digits of k
                                      // and check to see if, by removing each
                                      // any of the resulting numbers is turtle prime
                                      // ... is spread operator
                                      // [...s] converts string s to an array of characters 
                r=[...s],             // convert s to an array again,
                                      // importantly, this cannot be the same array
                                      // we created above, as we need to
                r.splice(i,1),        // splice out the ith element of the array
                b(~~(r.join('')))     // join the array to a string, convert to int,
                                      // and check if this number is turtle prime
                                      // ~ is bitwise negate, implicitly converts to int first before negating
                                      // ~~ negates the negation, getting us the int
            ))
        )
    );
    return b(n)
}

F=n=>{a=[];for(i=1;i++<=n;)a.every(x=>i%x)?a.push(i):0;b=k=>(s=''+k,a.indexOf(k)>-1&&(k<10||[...s].some((x,i)=>(r=[...s],r.splice(i,1),b(~~(r.join('')))))));return b(n)}

$('#input').on('keyup', () => $('#output').text(F(parseInt($('#input').val(), 10))))

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<input type="text" id="input" />
<span id="output"></span>