পেরেটো বিতরণ নমুনা করুন

22

Pareto বিতরণ একটি সম্ভাব্যতা বিতরণের যে প্রকৃতিতেও অনেক আসে। এর রয়েছে প্রচুর বিশেষ সম্পত্তি, যেমন অসীম গড়। এই চ্যালেঞ্জে, আপনি এই বিতরণ থেকে নমুনাযুক্ত একটি সংখ্যা আউটপুট পাবেন।

পেরেটো ডিস্ট্রিবিউশনটিকে xসম্ভাব্যতার চেয়ে বড় বা সমান হিসাবে সংজ্ঞায়িত করা হয় 1/x, এর xচেয়ে বড় বা 1 এর সমান।

সুতরাং, এই বিতরণ থেকে নমুনাযুক্ত একটি সংখ্যা সম্ভাব্যতা 1 এর সাথে 1 এর চেয়ে বড় বা সমান, সম্ভাবনার সাথে ঠিক 1/2 এর চেয়ে বড় বা সমান, 3 / এর চেয়ে বড় বা সমান সম্ভাবনার সাথে ঠিক 1/3, এর চেয়ে বড় বা সমান 11.4 সম্ভাব্যতার সাথে ঠিক 1 / 11.4 ইত্যাদি।

যেহেতু আপনি এই বিতরণটিকে নমুনা দেবেন, আপনার প্রোগ্রাম বা ফাংশন কোনও ইনপুট নেবে না এবং উপরের সম্ভাব্যতাগুলির সাথে একটি এলোমেলো সংখ্যা আউটপুট নেবে। তবে, যদি আপনার প্রোগ্রামটি ভাসমান-পয়েন্ট ছাপের কারণে উপরের সম্ভাব্যতার সাথে পুরোপুরি মেলে না, তবে তা ঠিক OK আরও তথ্যের জন্য চ্যালেঞ্জের নীচে দেখুন।

(একে একে সঠিক হিসাবে আলফা 1 এবং নিম্ন সীমা 1 দিয়ে পেরিটো ডিস্ট্রিবিউশন বলা হয়)

এই বিতরণ থেকে এখানে 10 টি উদাহরণ দেওয়া হয়েছে:

1.1540029602790338
52.86156818209856
3.003306506971116
1.4875532217142287
1.3604286212876546
57.5263129600285
1.3139866916055676
20.25125817471419
2.8105749663695208
1.1528212409680156

লক্ষ্য করুন যে কীভাবে তাদের 5 টি 2 এর নীচে এবং 5 এর উপরে 2 রয়েছে this এটি যেহেতু গড় ফলস্বরূপ এটি অবশ্যই উচ্চতর বা নিম্নতর হতে পারত।

আপনার উত্তরটি কেবল আপনার ভাসমান পয়েন্টের ধরণ, আসল সংখ্যা প্রকারের বা আপনি যা কিছু ব্যবহার করেন তার সীমা অবধি সঠিক হওয়া দরকার তবে আপনাকে অবশ্যই কমপক্ষে কমপক্ষে 3 দশমিক সংখ্যার যথাযথ সংখ্যা উপস্থাপন করতে সক্ষম হতে হবে এবং 1,00,000 অবধি সংখ্যা উপস্থাপন করতে সক্ষম হতে হবে । কিছু ঠিক আছে কিনা তা আপনি যদি নিশ্চিত না হন তবে নির্দ্বিধায় জিজ্ঞাসা করুন।

এটি কোড গল্ফ।

অসম্পূর্ণতা সম্পর্কে বিশদ:

  • প্রতিটি ব্যাপ্তির জন্য [a, b], যেখানে 1 <= a < b, নমুনাটি এই ব্যাপ্তিতে পড়বে এমন আদর্শ সম্ভাবনা 1/a - 1/b। সম্ভাব্যতা আপনার প্রোগ্রাম যা সীমার মধ্যে একটি সংখ্যা উৎপন্ন সঙ্গে হতে হবে 0.001এর 1/a - 1/b। যদি Xআপনার প্রোগ্রামের আউটপুট হয় তবে এটির প্রয়োজন |P(a <= X <= b) - (1/a - 1/b)| < 0.001।

  • নোট করুন যে উপরের নিয়মটি প্রয়োগ করে a=1এবং bযথেষ্ট পরিমাণে বড়, আপনার প্রোগ্রামটি অবশ্যই কমপক্ষে সম্ভাব্যতা 0.999 সহ 1 এর চেয়ে বড় বা সমান একটি সংখ্যা আউটপুট করতে হবে case বাকি সময় এটি ক্রাশ, আউটপুট Infinity, বা অন্য যা কিছু করতে পারে।

আমি মোটামুটি নিশ্চিত যে ফর্মের বিদ্যমান জমাগুলি 1/1-xবা 1/xযেখানে xএলোমেলোভাবে ভাসমান আছে [0, 1)বা (0, 1)বা [0, 1], সমস্তই এই প্রয়োজনীয়তা পূরণ করে।

code-golf  number  random  probability-theory 
— isaacg
সূত্র
আসুন আমরা এই আলোচনাটি আড্ডায় চলতে থাকি ।
— isaacg
2
প্রত্যেককে নোট করুন: ইস্যাকাগে কিছু নিয়ম যুক্ত হয়েছে যা কিছু অনর্থককে অনুমোদন করে, সুতরাং এখানে বেশিরভাগ উত্তর প্রয়োজনের চেয়ে দীর্ঘ। [মন্তব্যের অপব্যবহারের জন্যও দুঃখিত, তবে ওপি যখন প্রশ্নটি উল্লেখযোগ্যভাবে পরিবর্তন করবে]
— ব্যবহারকারী 202729

উত্তর:

6

এমএটিএল , 3 বাইট

1r/

এটি অনলাইন চেষ্টা করুন! অথবা এটির 10000 বার চালিয়ে ফলাফলের সম্ভাবনাগুলি অনুমান করুন ।

ব্যাখ্যা

1    % Push 1
r    % Push random number uniformly distributed on the open interval (0,1)
/    % Divide. Implicitly display
— লুইস মেন্ডো
সূত্র
ওপিতে স্পষ্টতা এবং সম্পাদনার পরে, এই উত্তরটি চ্যালেঞ্জের নিয়মের সাথে
— লুইস মেন্ডো
5

আর, 10 বাইট

1/runif(1)

অনেকটাই অকপট.

— plannapus
সূত্র
2
নোট করুন যে runif ডিফল্ট ক্ষেত্রে কখনও 0 বা 1 ফেরায় না তাই এটির সাথে কোনও সমস্যা নেই।
— জিউসেপ
হ্যা ধন্যবাদ. এবং এই উত্তরটি প্রবেশ করার সময় আমি এটি সম্পর্কে ভাবি নি তবে আপনি প্রয়োজনে বিতরণটি যাচাই করতে পারবেন ।
— প্ল্যানাপাস
2
@ মেগো যা ভুল is পেরেটো বিতরণ একেবারে অবিচ্ছিন্ন এবং সুতরাং যে কোনও সংখ্যার জন্য পরিমাপ 0 রয়েছে।
— থের্কেল
3
@ মেগো ঠিক আছে এটি আমার জন্য চিকনসকন্ড হতে পারে (প্রদত্ত আমি ভাসমান পয়েন্ট সম্পর্কে কিছুই জানি না) তবে আমি আসলেই মনে করি যে runif1 দেওয়ার সম্ভাবনা শূন্য 1/runifহলেও ভাসমান পয়েন্ট যথার্থতার কারণে 1 দেওয়ার সম্ভাবনা নেই ( অর্থাত্ 1 / 0.9999999 আর তে 1 প্রদান করে)।
— প্ল্যানাপাস
1
@ প্ল্যানাপাস হুম ... এটি একটি ভাল বিষয়। ফ্লোটগুলি এটিকে সম্পূর্ণ জটিল করে তোলে।
— মেগো
4

টিআই-বেসিক, 2 বাইট

rand^-1      (AB 0C in hex)

যে কেউ ভাবছেন, randতার জন্য (0,1] এ এলোমেলো মান প্রদান করে "" এলোরিদম এলোমেলো সংখ্যা সংখ্যার নির্দিষ্টকরণের কারণে, সবচেয়ে কম সংখ্যক জেনারেট করা সম্ভব 0 এর চেয়ে সামান্য বেশি, সম্ভাব্য বৃহত্তম সংখ্যাটি আসলে 1 ... "( উত্স )। উদাহরণস্বরূপ, 196164532 এর সাথে র্যান্ডিং বীজ 1 প্রদান করে।

— Timtech
সূত্র
আশ্চর্যের বিষয় হল, সমমানের কোড টিআই-89 সিরিজের ক্যালকুলেটরটিতে কাজ করবে না। যদিও তাদের এলোমেলো সংখ্যার জেনারেটর প্রায় একইভাবে প্রয়োগ করা হয়েছে, যখনই টিআই -৩৩ + ০.৯৯৯৯৯৯৯৯৯৯৯৯৯ ফিরে আসবে একটি টিআই -৯৯ আবার ফিরে আসবে।
— মিশা লাভরভ
2
টিআই-বেসিক বিকাশকারীরা আগেই জানতেন যে এই চ্যালেঞ্জটি ঘটবে ...? মনে হচ্ছে এবার জিতবে।
— ব্যবহারকারী 202729
@ user202729 0 এবং 1 এড়িয়ে randযাওয়া ক্যালকুলেটরের অন্যান্য কমান্ডের জন্য সাব্রোটিন হিসাবে আরও দরকারী করে তোলে সম্ভবত এটি কারণেই টিআই এই নকশার সিদ্ধান্ত নিয়েছে। উদাহরণস্বরূপ, বীজ 196164532 নিয়ে randNorm(0,1রিটার্ন দেয় -7.02129...the বিনা সামঞ্জস্য ছাড়াই আরএনজি অ্যালগরিদম ব্যবহার করার মান দেয় 1e99যা সাধারণত বিতরণযোগ্য ভেরিয়েবলের জন্য একটি অযৌক্তিক মান।
— মিশা লাভরভ
@ ব্যবহারকারী 202729 হ্যাঁ, আসলে আমি এগুলি সম্পন্ন করার জন্য কেবলমাত্র একটু সময় ভ্রমণ করেছি। এই upvotes জন্য অবশ্যই এটি মূল্যবান।
— টিমটেক
4

আর , 12 বাইট

exp(rexp(1))

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

বিতরণ যাচাই করুন

এই ভিন্ন পদ্ধতি লাগে, শোষণ সত্য যে যদি Y~exp(alpha), তারপর X=x_m*e^Yপরামিতি সঙ্গে একটি Pareto হয় x_m,alpha। যেহেতু উভয় পরামিতিই 1, এবং এর জন্য ডিফল্ট হারের প্যারামিটারটি rexp1, এর ফলে যথাযথ পেরেটো বিতরণ হয়।

যদিও এই উত্তরটি মোটামুটি আর-নির্দিষ্ট পদ্ধতির, এটি দুঃখজনকভাবে প্ল্যানাপাসের চেয়ে কম গোলাপী ' ।

আর , 14 বাইট

1/rbeta(1,1,1)

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

এমনকি কম গোলভাল, তবে উত্তরটি পাওয়ার আরও একটি উপায়।

সূচকীয় বিতরণের আরেকটি সম্পত্তি হ'ল যদি X ~ Exp(λ) then e^−X ~ Beta(λ, 1)তাই 1/Beta(1,1)হয় Pareto(1,1)।

অতিরিক্তভাবে, একজন আগ্রহী পর্যবেক্ষক মনে রাখবেন যে যদি X ~ Beta(a,b)এবং a=b=1তারপর X~Unif(0,1), তাই এটি সত্যই 1/runif(1)।

— : Giuseppe
সূত্র
আমার কোন ধারণা নাই. তবে বাস্তবতাটি হ'ল, এই চ্যালেঞ্জের ক্ষেত্রে কী অনুমোদিত এবং কী নয় তা নিয়ে একটি বিশাল বিভ্রান্তি রয়েছে।
— ব্যবহারকারী 202729
@ ইউজার ২২২২২২ এটি ন্যায্য, তবে যারা এই বিষয়ে উদ্বিগ্ন হয়ে পড়েছেন তারা কমপক্ষে মন্তব্য করেছিলেন, তাই ডাউনভোটটি (আমার মতে) এর সাথে সম্পর্কিত হওয়ার সম্ভাবনা কম। সম্পাদনা: রহস্য ডাউনভোটার ডাউনভোটটি সরিয়ে দিয়েছে।
— জিউসেপ
আমি হ্রাস পেয়েছি কারণ আমি ভেবেছিলাম যে আর এর মতো চ্যালেঞ্জের জন্য আর ব্যবহার করা তুচ্ছ, তবে আমি কিছুটা ট্রিগার-খুশি ছিলাম। আমি বুঝতে পারি যে এটি অন্যান্য উত্তরগুলির চেয়ে বেশ কয়েকটি পৃথক পদ্ধতি ব্যবহার করে, তাই আমি আমার ডাউনটোটটি সরিয়েছি।
— কেএসমার্টস
@ কে স্মার্টস আর-তে "তুচ্ছ" উত্তরটি আসলে কেউই ব্যবহার করেননি: actuar::rpareto(1,1,1)কারণ এটি বেশি দীর্ঘ :)
— প্ল্যানাপাস
তথ্যের জন্য, সিএ আছে । বেস বেসে হার্ড-কোডেড 20 টি বিতরণ , তবে পেরেটো তাদের মধ্যে একটি নয়, তাই কোনও কাজের আশেপাশে বা একটি অতিরিক্ত প্যাকেজ ব্যবহার করার প্রয়োজন।
— প্ল্যানাপাস
3

কাঠকয়লা , 10 বাইট

Ｉ∕Ｘφ²⊕‽Ｘφ²

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

লিঙ্কটি ভার্জোজ সংস্করণে রয়েছে:

Print(Cast(Divide(Power(f, 2), ++(Random(Power(f, 2))))));

মন্তব্যসমূহ:

  • কাঠকয়ালে কেবল র্যান্ডম পূর্ণসংখ্যার সংখ্যা পাওয়ার জন্য পদ্ধতি রয়েছে, সুতরাং 0 এবং 1 এর মধ্যে একটি এলোমেলো ভাসমান-পয়েন্ট নম্বর পেতে আমাদের 0 এবং N এর মধ্যে একটি এলোমেলো পূর্ণসংখ্যা পেতে হবে এবং এন দ্বারা বিভাজন করতে হবে have
  • এই উত্তরের পূর্ববর্তী সংস্করণ যা 1/(1-R)সূত্রটি ব্যবহার করেছিল : এই ক্ষেত্রে, ওপিকে ন্যূনতম হতে বলায় এন 1000000 তে সেট করা আছে। এই নম্বর পেতে চারকোল একটি প্রিসেট ভেরিয়েবল f= 1000 সরবরাহ করে। সুতরাং কেবল গণনা করা হচ্ছে f^2আমরা 1000000 পাই event ঘটনাটি যে এলোমেলো সংখ্যা 999999 (সর্বাধিক) 1/(1-0.999999)=1000000,।
  • নিল এর ডগা (3 বাইট সঞ্চয় নয়): যদি আমি আছে 1/(1-R/N)যেখানে R0 এবং N মধ্যে একটি র্যান্ডম সংখ্যা, এটা শুধু ক্যালকুলেট হিসাবে একই N/(N-R)। তবে বিবেচনা করে যে এলোমেলোভাবে পূর্ণসংখ্যা N-Rএবং Rএকই সম্ভাবনা দেখা দেয়, এটি কেবল গণনা হিসাবে একই N/R( Rএই শেষ ক্ষেত্রে শূন্য দ্বারা বিভাগ এড়ানোর জন্য 1 এবং N সমেত একটি সংখ্যা)।
— রাতের পাহারাদার
সূত্র
— নীল
@ নীল দয়া করে আপনার কোডটি কী করে তা বোঝার চেষ্টা করার জন্য কিছুক্ষণ অপেক্ষা করুন ... :-)
— চার্লি
আসলে আমার আর কোনও দরকার MapAssignRightনেই, 10 বাইট! কাজ করে।
— নীল
আপনার কোডটির নিল এমিলিমেশন শেষ! উত্তর সম্পাদিত। :-D
— চার্লি
3

হাস্কেল , 61 56 বাইট

ফাংশন ব্যবধানেrandomIO :: IO Float এলোমেলো সংখ্যা তৈরি করে , তাই তাদের ব্যবহার করে রূপান্তর করা পেরেটো উপলব্ধি তৈরি করবে। [0,1)x -> 1/(1-x)

import System.Random
randomIO>>=print.(1/).((1::Float)-)

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

— flawr
সূত্র
প্রকারের টীকাটি স্থানান্তরিত করা কয়েকটি বাইট সংরক্ষণ করে:randomIO>>=print.((1::Float)/)
— লাইকনি
এবং যেমন ফাংশন অনুমোদিত, আমি বলতে চাই যে আপনি এটি ড্রপ করতে পারেন main=।
— লাইকোনি
Appranetly পরিসীমা এই উত্তর[0,1) অনুযায়ী হয়
— flawr
@ ফ্লোয়ার ওফস, আপনি ঠিক বলেছেন! আমি ভুলে গিয়েছিলাম কীভাবে অস্থায়ীভাবে ফ্লোটগুলি কাজ করে।
— মেগো
যাইহোক, মন্তব্য করার জন্য ধন্যবাদ, আমার কোনও ধারণা হত না :)
— flawr
3

এক্সেল, 9 বাইট

=1/rand()

হ্যাঁ, এক্সেল পরিবর্তনের জন্য (আধা) প্রতিযোগিতামূলক!

— Therkel
সূত্র
এছাড়াও
— লিব্রেফিস
আপনি এটি -1 বাইট ( =1/Rand() এর জন্য গুগল শিটগুলিতে পরিবর্তন করতে পারেন
— টেলর স্কট
3

ম্যাথমেটিকা, 10 বাইট

1/Random[]

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

এমস্টারন থেকে -4 বাইট

— J42161217
সূত্র
2
RandomRealএটিতে ব্যর্থ হওয়ার সম্ভাবনা রয়েছে, কারণ বদ্ধ পরিসরে একটি আসল সংখ্যা আউটপুট করে [0, 1]। সুতরাং, 0 দ্বারা বিভাজন সম্ভব। সেই সম্ভাবনাটি সরাতে আপনাকে এলোমেলো মানটি চালিত করতে হবে।
— মেগো
2
@ মেগো আপনি কোথায় সেই তথ্যটি খুঁজে পেয়েছেন?
— J42161217
1
@ মেগো 0 পাওয়ার সম্ভাবনা কত?
— J42161217
4
জেনি_ম্যাথি: মেটা সম্পর্কিত প্রস্তাবনা অনুসারে the burden of proof should be on the person claiming to have a valid answer- @ মেগোকে একটি অবৈধ পরীক্ষার কেস সরবরাহ করতে বলার নয়, এটি বৈধ প্রমাণ করার পক্ষে আপনার কাজ। এছাড়াও ভাসাটি বিচ্ছিন্ন হওয়ায় 0 পাওয়ার সম্ভাবনা ননজারো।
— ব্যবহারকারী 202729
1
বিষয়টিতে ফিরে এসে আমি বিশ্বাস করি না যে এই ফাংশনটি ব্যবহার করে শূন্য হওয়ার সম্ভাবনা রয়েছে। গাণিতিক আসলে সংখ্যা কম উত্পাদন করবে $MinMachineNumber। এই চেষ্টা করুন: Table[RandomReal[{0, $MinMachineNumber}], 100]। দেখা যাচ্ছে ম্যাথামেটিকা ​​যথেষ্ট পরিমাণে মেশিন নম্বরগুলি ত্যাগ করতে এবং নির্বিচারে নির্ভুলতার সংখ্যায় স্যুইচ করতে পারেন। হাঃ হাঃ হাঃ.
— কেলি লোডার
2

রুবি, 14 8 বাইট

p 1/rand

তুচ্ছ প্রোগ্রাম, আমি মনে করি না এটি কোনও ছোট হতে পারে get

— গিগাবাইট
সূত্র
প্রত্যেককে নোট করুন: ইস্যাকাগে কিছু নিয়ম যুক্ত হয়েছে যা কিছু অনর্থককে অনুমোদন করে, সুতরাং এখানে বেশিরভাগ উত্তর প্রয়োজনের চেয়ে দীর্ঘ।
— ব্যবহারকারী 202729
2

এক্সেল ভিবিএ, 6 বাইট

বেনামে VBE অবিলম্বে উইন্ডো ফাংশন যা কোনও ইনপুট নেয় না এবং ভিবিই তাত্ক্ষণিক উইন্ডোতে আউটপুট দেয়

?1/Rnd
— টেলর স্কট
সূত্র
1

পাইথন , 41 বাইট

lambda:1/(1-random())
from random import*

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

বিল্টিন ব্যবহার করা আসলে দীর্ঘতর:

পাইথন , 43 বাইট

lambda:paretovariate(1)
from random import*

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

উভয় সমাধান পাইথন 2 এবং পাইথন 3 উভয় ক্ষেত্রেই কাজ করে।

— ঐ মেগো
সূত্র
1
সম্পূর্ণ প্রোগ্রামগুলি এমন কাজের জন্য সংক্ষিপ্ত হয় যা printকোনও বাইট সংরক্ষণ করে ইনপুট ব্যবহার করে না ।
— এরিক আউটগলফার
1

জে , 5 বাইট

%-.?0

ওটি কীভাবে কাজ করে:

?0 0 এর চেয়ে বড় এবং 1 এর চেয়ে কম এলোমেলো মান উত্পন্ন করে

-. 1 থেকে বিয়োগ করুন

% পারস্পরিক

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

— গ্যালেন ইভানভ
সূত্র
প্রত্যেককে নোট করুন: ইস্যাকাগে কিছু নিয়ম যুক্ত হয়েছে যা কিছু অনর্থককে অনুমোদন করে, সুতরাং এখানে বেশিরভাগ উত্তর প্রয়োজনের চেয়ে দীর্ঘ।
— ব্যবহারকারী 202729
1

লাল , 19 বাইট

1 /(1 - random 1.0)

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

— গ্যালেন ইভানভ
সূত্র
প্রত্যেককে নোট করুন: ইস্যাকাগে কিছু নিয়ম যুক্ত হয়েছে যা কিছু অনর্থককে অনুমোদন করে, সুতরাং এখানে বেশিরভাগ উত্তর প্রয়োজনের চেয়ে দীর্ঘ।
— ব্যবহারকারী 202729
1

এপিএল (ডায়ালগ) , 5 বাইট

÷1-?0

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

কিভাবে?

 ÷   1-     ?0
1÷  (1-  random 0..1)
— ঊরীয়েল
সূত্র
প্রত্যেককে নোট করুন: ইস্যাকাগে কিছু নিয়ম যুক্ত হয়েছে যা কিছু অনর্থককে অনুমোদন করে, সুতরাং এখানে বেশিরভাগ উত্তর প্রয়োজনের চেয়ে দীর্ঘ।
— ব্যবহারকারী 202729
1

জাপট , 6 বাইট

1/1-Mr একই দৈর্ঘ্য কিন্তু এটি কিছুটা কম বিরক্তিকর অনুভূত!

°T/aMr

চেষ্টা করে দেখুন

ব্যাখ্যা

( °) শূন্য ( T) বৃদ্ধি এবং ( /) এর সাথে এর সম্পূর্ণ পার্থক্য ( a) দিয়ে ভাগ করুন Math.random()।

— রোমশ
সূত্র
প্রত্যেককে নোট করুন: ইস্যাকাগে কিছু নিয়ম যুক্ত হয়েছে যা কিছু অনর্থককে অনুমোদন করে, সুতরাং এখানে বেশিরভাগ উত্তর প্রয়োজনের চেয়ে দীর্ঘ।
— ব্যবহারকারী 202729
1

জেলি , 5 বাইট

জেলি এছাড়াও, র্যান্ডম ভাসা নেই তাই এই ব্যবহারসমূহ x/nযেখানে xসীমার মধ্যে একটি র্যান্ডম পূর্ণসংখ্যা [1, n](সহ) সীমার মধ্যে একটি র্যান্ডম ভাসা অনুকরণ (0, 1]। এই প্রোগ্রামে nসেট করা আছে ।108

ȷ8µ÷X

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

ব্যাখ্যা

ȷ8     Literal 10^8.
  µ    New monad.
   ÷   Divide by
    X  random integer.

তালিকাভুক্ত , 3 বাইট

ØXİ

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

জেলিকে মারধর করুন! (টিআই-বেসিক এখনও নয়)

ব্যাখ্যা

  İ    The inverse of...
ØX     a random float in [0, 1)

অবশ্যই এটির বিপরীতমুখী 0 নেওয়ার ননজারো সম্ভাবনা রয়েছে।

— user202729
সূত্র
ØXফেরত এলে তালিকাভুক্তির সমাধান কি ব্যর্থ হবে 0? (অস্বীকৃতি: আমি তালিকাভুক্ত মোটেও জানি না!)
— শেগি
@ শেগি your program must output a number greater than or equal to 1 with at least probability 0.999. The rest of the time it may crash(চ্যালেঞ্জ বিধি থেকে)
— ব্যবহারকারী 202729
1

আইবিএম / লোটাস নোটস সূত্র, 13 বাইট

1/(1-@Random)

নমুনা (10 রান)

এখানে চিত্র বর্ণনা লিখুন

— ElPedro
সূত্র
প্রত্যেককে নোট করুন: ইস্যাকাগে কিছু নিয়ম যুক্ত হয়েছে যা কিছু অনর্থককে অনুমোদন করে, সুতরাং এখানে বেশিরভাগ উত্তর প্রয়োজনের চেয়ে দীর্ঘ।
— ব্যবহারকারী 202729
নিশ্চিত নয় যে নিয়মের যে কোনও পরিবর্তনই করা হোক না কেন আমি এটিকে আরও খাটো করতে পারব :)
— এলপেড্রো
1

জাভাস্ক্রিপ্ট আরপিএল, 15 19 বাইট

1/Math.random()
— l4m2
সূত্র
3
Math.random() 0
— জনাব এক্সকোডার
1
সম্ভবত 1/(1-Math.random())?
— ব্যবহারকারী 202729
আপনার * 29 এর সমাধান ব্যবহার করে স্থির
— l4m2
_=>এটি একটি ফাংশন করতে আপনার শুরুতে প্রয়োজন ; স্নিপেটগুলি অনুমোদিত নয়।
— শেগি
এটি কনসোল চলমান ব্যবহার করে একটি সম্পূর্ণ প্রোগ্রাম
— l4m2
0

জে, 9 বাইট

p=:%@?@0:

কীভাবে এটি কোনও ইনপুট না নেওয়ার তা আমি বুঝতে পারি না, যেহেতু পি =:%? 0 অবিলম্বে মূল্যায়ন করবে এবং স্থির থাকবে। কারণ এটি তার সাজানোর দীর্ঘ।

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

p=:        | Define the verb p
       0:  | Constant function. Returns 0 regardless of input.
     ?@    | When applied to 0, returns a random float in the range (0,1)
   %@      | Reciprocal

20 বার মূল্যায়ন করা হয়েছে:

    p"0 i.20
1.27056 1.86233 1.05387 16.8991 5.77882 3.42535 12.8681 17.4852 2.09133 1.82233 2.28139 1.58133 1.79701 1.09794 1.18695 1.07028 3.38721 2.88339 2.06632 2.0793
— বলস বুসিয়ের
সূত্র
0

পাইথ , 4 বাইট

c1O0

এখানে চেষ্টা করুন!

বিকল্প: c1h_O0।

— মিঃ এক্সকোডার
সূত্র
c1tOZ5, এটা কি কাজ করে না?
— ডেভ
@ ডেভ কাজ করে না, যা নেতিবাচক মান দেয় returns আমার দরকার 1-nনেইn-1
— মিঃ এক্সকোডার
পাইথের কি ধ্রুবক নেই 100?
— শেগি
পছন্দ করুন দুর্ভাগ্যবশত, কোন ধ্রুবক 100আমি যতদূর জানি
— জনাব Xcoder
0

পরিষ্কার , 91 বাইট

import StdEnv,Math.Random,System.Time
Start w=1.0/(1.0-hd(genRandReal(toInt(fst(time w)))))

ক্লিন এলোমেলো সংখ্যা পছন্দ করে না।

যেহেতু এলোমেলো জেনারেটরকে (একটি মের্সেন টুইস্টার) একটি বীজ দেওয়া দরকার , তাই আমাকে প্রতি টাইমে প্যাসিভভাবে আলাদা কিছু পাওয়ার জন্য সিস্টেম টাইমস্ট্যাম্প নিতে হবে এবং আইও-সম্পর্কিত যে কোনও কিছু করার জন্য আমার পুরো ঘোষণাটি ব্যবহার করা দরকারStart কারণ এটি শুধুমাত্র প্রাপ্ত স্থান World।

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

— Οurous
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.