একটি পূর্ণসংখ্যা দেওয়া হয়েছে n >= 2, এর প্রধান গুণককরণের বৃহত্তম ব্যয়কারীকে আউটপুট দিন। এটি OEIS ক্রম A051903 ।
যাক n = 144। এটির প্রধান উপাদানটি হ'ল 2^4 * 3^2। সবচেয়ে বড় ব্যয়কারী 4।
2 -> 1
3 -> 1
4 -> 2
5 -> 1
6 -> 1
7 -> 1
8 -> 3
9 -> 2
10 -> 1
11 -> 1
12 -> 2
144 -> 4
200 -> 3
500 -> 3
1024 -> 10
3257832488 -> 3
উত্তর:
lambda n:max(k%n-n%(k/n+2)**(k%n)*n for k in range(n*n))ÆEṀ
ṀEṀ - সম্পূর্ণ প্রোগ্রাম / Monadic লিঙ্ক। --E - প্রধান ফ্যাক্টেরাইজেশনের এক্সেটরগুলির অ্যারে। Ṁ - সর্বোচ্চ।
এটি এম তেও কাজ করে । এটি অনলাইন চেষ্টা করুন!
n=input()
e=m=0
f=2
while~-n:q=n%f<1;f+=1-q;e=q*-~e;m=max(m,e);n/=f**q
print m-5 ovs ধন্যবাদ ।
এই উত্তরটি প্রাথমিক চেকগুলি করে না। পরিবর্তে, এটি একটি সংখ্যার যেকোন ফ্যাক্টরীকরণের ক্ষেত্রে অন্য কোনও ফ্যাক্টরের এক্সপোনেন্টের চেয়ে একটি প্রধান ফ্যাক্টরের সর্বাধিক প্রকাশক এর চেয়ে বড় বা সমান হবে এই সত্যটি গ্রহণ করে।
-h , k ü mÊn
k ü mÊn :Implicit input of integer
k :Prime factors
ü :Group by value
m :Map
Ê : Length
n :Sort
:Implicit output of last element
üসমান মানগুলির উপ-অ্যারে তৈরি করে। এটা তোলে করেন এছাড়াও সাজানোর মান প্রথম কিন্তু যে এখানে প্রাসঙ্গিক নয়।
Max@@Last/@FactorInteger@#&,। দুর্ভাগ্যক্রমে এটি কোনও বাইট সংরক্ষণ করে না।
YFX>
% implicit input
YF % Exponents of prime factors
X> % maximum
% implicit output
ḋḅlᵐ⌉
ḋ Prime decomposition
ḅ Group consecutive equal values
lᵐ Map length
⌉ Maximum
▲mLgp
p - প্রধান কারণগুলি পায়।g - সংলগ্ন মানগুলি গোষ্ঠীগুলি।mL - প্রতিটি গ্রুপের দৈর্ঘ্য পাওয়া যায়।▲ - সর্বোচ্চ।⎕CY'dfns'
⌈/1↓2pco⎕কিভাবে?
2pco⎕ - 2 ডি অ্যারের প্রধান উপাদান এবং ঘাঁটিঘটিত
1↓ - কারণগুলি বাদ দিন
⌈/ - সর্বাধিক
* ধরে নিচ্ছেন অসীম স্ট্যাক (কোড-গল্ফ চ্যালেঞ্জগুলির মতো)
P=(n,i=2,k)=>i>n?k:n%i?k>(K=P(n,i+1))?k:K:P(n/i,i,-~k)
console.log(P(2 )== 1)
console.log(P(3 )== 1)
console.log(P(4 )== 2)
console.log(P(5 )== 1)
console.log(P(6 )== 1)
console.log(P(7 )== 1)
console.log(P(8 )== 3)
console.log(P(9 )== 2)
console.log(P(10 )== 1)
console.log(P(11 )== 1)
console.log(P(12 )== 2)
console.log(P(144 )== 4)
console.log(P(200 )== 3)
console.log(P(500 )== 3)
console.log(P(1024 )== 10)
//console.log(P(3257832488 )== 3)n->vecmax(factor(n)[,2])
আমি যদি n->অংশটি গণনা না করি তবে এটি 21 বাইট।
@(n)[~,m]=mode(factor(n))factor(সম্ভবত পুনরাবৃত্তি হওয়া) প্রধান এক্সপোজারগুলির অ্যারে উত্পাদন করে এর দ্বিতীয় আউটপুট modeমোডের (অর্থাৎ সবচেয়ে পুনরাবৃত্ত এন্ট্রি) প্রদর্শিত হওয়ার সময় দেয়।
eS/LPQP(7 বাইট), eSlM.gkP(8 বাইট)।
f=lambda n,i=2,l=[0]:(n<2)*max(map(l.count,l))or n%i and f(n,i+1,l)or f(n/i,2,l+[i])ḋ)⌠)
ḋ- প্রধান মৌলিককরণকে [প্রধান, ঘনিষ্ঠ] জোড় হিসাবে গণনা করে ।
⌠ - সর্বাধিক মান সহ ফলাফলটি মানচিত্র করুন এবং সংগ্রহ করুন।
) - শেষ উপাদান (উদ্ঘাটনকারী)।
) - শেষ উপাদান (সর্বাধিক প্রকাশক)
ḋ)¦⌉
ḋ- প্রধান মৌলিককরণকে [প্রধান, ঘনিষ্ঠ] জোড় হিসাবে গণনা করে ।
)¦ - শেষ উপাদানটির সাথে মানচিত্র (ঘোষক)।
⌉ - সর্বাধিক উপাদান পায়।
ωĖ⍐←
ωĖ⍐←
ω = argument
Ė = prime exponents
⍐ = maximum
← = output without a newline
@(x)max(histc(a=factor(x),a));
a=factor(x)এর প্রধান উপাদানগুলি সহ একটি ভেক্টর প্রদান করে x। এটি একটি ভেক্টরটি আরোহী ক্রম অনুসারে বাছাই করা হয় যেখানে সমস্ত সংখ্যার গুণন নিজেই factor(x)ফলন xকরে যে ভেক্টরের প্রতিটি সংখ্যাই প্রধান।histc(...,a)প্রাইম ফ্যাক্টর ভেক্টরে একটি হিস্টোগ্রাম গণনা করে যেখানে বিনগুলি প্রধান উপাদান। হিস্টোগ্রাম গণনা করা হয়েছে যে আমরা প্রতিটি মৌলিক সংখ্যা এইভাবে প্রতিটি মৌলিক সংখ্যার প্রকাশককে ফলন করতে দেখেছি। আমরা এখানে কিছুটা প্রতারণা করতে পারি কারণ factor(x)ডুপ্লিকেট নম্বর বা বিনগুলি ফিরিয়ে দিলেও, কেবল একটি বিনের মধ্যে আমরা একটি প্রাথমিক সংখ্যা দেখতে পাই তার মোট পরিমাণ ক্যাপচার করবে।max(...) এইভাবে বৃহত্তম ব্যয়কারীকে ফেরত দেয়।/o
\i@/w].D:.t$Kq
/o
\i@/...
দশমিক I / O সহ এটি সরল-ইশ পাটিগণিত প্রোগ্রামগুলির জন্য কেবল একটি কাঠামো। ...প্রকৃত প্রোগ্রাম, যা ইতিমধ্যে স্ট্যাক ইনপুট এবং স্ট্যাকের উপর আউটপুট ছেড়ে যায়।
অ্যালিসের আসলে কোনও পূর্ণসংখ্যার (এমনকি প্রাইম-এক্সপোঞ্জেন্ট জোড়া দিয়ে) মূল ফ্যাক্টরিয়েশন পেতে বিল্ট-ইনগুলি রয়েছে তবে আমি যে সংক্ষিপ্ততমটি ব্যবহার করেছি তার চেয়ে 10 বাইট বেশি লম্বা।
পরিবর্তে ধারণাটি হ'ল আমরা বার বার প্রতিটি স্বতন্ত্র প্রধান উপাদানটির একটি অনুলিপি ইনপুট থেকে বিভক্ত করি, যতক্ষণ না আমরা 1 পৌঁছায় । এটি গ্রহণের পদক্ষেপের সংখ্যাটি বৃহত্তম প্রধান ব্যয়কারীর সমান। আমরা কাউন্টার ভেরিয়েবল হিসাবে টেপ মাথাটি গালি দেব।
w Remember the current IP position. Effectively starts a loop.
] Move the tape head to the right, which increments our counter.
.D Duplicate the current value, and deduplicate its prime factors.
That means, we'll get a number which is the product of the value's
unique prime factors. For example 144 = 2^4 * 3^2 would become
6 = 2 * 3.
: Divide the value by its deduplicated version, which decrements the
exponents of its prime factors.
.t Duplicate the result and decrement it. This value becomes 0 once we
reach a result of 1, which is when we want to terminate the loop.
$K Jump back to the beginning of the loop if the previous value wasn't 0.
q Retrieve the tape head's position, i.e. the number of steps we've taken
through the above loop.
print()। এছাড়াও, টিআইও তে চালানোর জন্য কোডটি আমি পাইনি, আমি ধরে নিয়েছি এটি সেখানে উপলব্ধ ভাষাটির অন্য কোনও সংস্করণে কাজ করে? এটি টিআইও-তে সূক্ষ্মভাবে চলে: print(maximum(collect(values(factor(parse(BigInt,readline()))))))
print()প্রয়োজন কারণ উত্তর একটি পুরো প্রোগ্রাম করা প্রয়োজন হয় (যে প্রদর্শন আউটপুট) অথবা একটি ফাংশন (যে আয় আউটপুট)। অন্যথায় আপনার সমাধান ঠিক আছে। দেখে মনে হচ্ছে আপনি এইভাবে কিছু বাইট সংরক্ষণ করতে পারেন (এবং মুদ্রণ এড়ানোর জন্য):f(x)=maximum(collect(values(factor(x))))
w♂NM
w♂NM - সম্পূর্ণ প্রোগ্রাম। ডাব্লু - প্রধান উপাদানটিকে [প্রধান, ঘাতক] জোড় হিসাবে চাপ দেয়। --N - প্রত্যেকের শেষ উপাদানটি (এক্সপোনেন্ট) পান। এম - সর্বাধিক
-4 বাইট H.PWiz ধন্যবাদ।
lambda n:max(a*(n%k**a<1)for a in range(n)for k in range(2,-~n))এইচপিউইজের হাস্কেল উত্তরটির বন্দর । আমি কেবল এটি ভাগ করছি কারণ আমি গর্বিত যে আমি হাস্কেল কোডের এই অংশটি বুঝতে এবং এটি অনুবাদ করতে সক্ষম হয়েছি। : P: P
range(1,n)কাজ না?
range(1, n)[1, n) এ সমস্ত পূর্ণসংখ্যার উত্পাদন করে।
a
(λ(n)(cadr(argmax cadr((let()(local-require math/number-theory)factorize)n))))
(সম্পূর্ণ র্যাকেট সমাধান গঠনের বিষয়ে conক্যমত্য আছে কিনা তা আমি নিশ্চিত নই, সুতরাং আমি গাণিতিক সম্মেলনের সাথে যাচ্ছি যে খাঁটি ফাংশন গণনা করা হয়েছে।)
factorizeজোড়গুলির তালিকা হিসাবে গুণকে (factorize 108)দেয় : দেয় '((2 2) (3 3))। একটি জোড়ার দ্বিতীয় উপাদানটি প্রদত্ত হয় (একটি তালিকার শীর্ষ) দিয়ে ( তালিকার শীর্ষে) cadrরচনাটির জন্য একটি শর্টহ্যান্ড ।carcdr
আমি (cadr (argmax cadr list))দ্বিতীয় উপাদানগুলির সর্বাধিক সন্ধান করার জন্য নির্বোধ কাজটি বোধ করি , তবে maxতালিকাগুলিতে কাজ (max (map cadr list))করে না : আমরা যা চাই তা করি না। আমি র্যাকেটের বিশেষজ্ঞ নই, তাই এটি করার জন্য সম্ভবত আরও একটি স্ট্যান্ডার্ড আরও ভাল উপায় আছে।
(λ(n)(define(p d m)(if(=(gcd m d)d)(+(p d(/ m d))1)0))(p(argmax(λ(d)(p d n))(range 2 n))n))
একটি বিকল্প সংস্করণ যা আমদানি করে না factorizeএবং এর পরিবর্তে কম বেশি কিছু স্ক্র্যাচ থেকে করে। ফাংশন (p m d)সর্বোচ্চ ক্ষমতা খুঁজে বের করে dযে ভাগ mএবং তারপর আমরা শুধু সর্বোচ্চ মান খুঁজে (p n d)জন্য dমধ্যবর্তী 2এবং n। (আমাদের এগুলি প্রাইমগুলির মধ্যে সীমাবদ্ধ করার দরকার নেই, যেহেতু এমন কোনও সংমিশ্রণ শক্তি থাকবে না যা প্রধান শক্তিগুলির চেয়ে আরও ভাল কাজ করে))
maxসমাধানটি (apply max (map cadr list)তবে (cadr (argmax cadr list))দুর্ভাগ্যক্রমে সংক্ষিপ্ত।
{⌈/+/¨v∘=¨v←π⍵}
পরীক্ষা:
f←{⌈/+/¨v∘=¨v←π⍵}
f¨2..12
1 1 2 1 1 1 3 2 1 1 2
f¨144 200 500 1024 3257832488
4 3 3 10 3
মন্তব্য:
{⌈/+/¨v∘=¨v←π⍵}
v←π⍵ π12 return 2 2 3; assign to v the array of prime divisors of argument ⍵
v∘=¨ for each element of v, build one binary array, show with 1 where are in v array, else puts 0
return one big array I call B, where each element is the binary array above
+/¨ sum each binary element array of B
⌈/ get the max of all element of B (that should be the max exponet)